; 00001
.INCLUDE "LB:[MACROS]MACROS.MAC"
.INCLUDE "C.MAC"

MODULE FloatAccumulators, MNAME=FAC, VER=01, COMM=<>

  EXPORT QUALIFIED C$FAC, C$DONE

  $IDATA

    C$FAC:

      .FLT4 0.0
      .FLT4 0.0

    C$DONE:

      .FLT4 1.0

END FloatAccumulators

.END