LOOP
300
CONT SMLC -1   SSUM SMLT DSDX XCMP GEOS DSDX TEMP SMLT DSDX YCMP GEOS DSDY TEMP
CONT SSUM SMLT DSDY XCMP GEOS DSDX TEMP SMLT DSDY YCMP GEOS DSDY TEMP
SMLC   -1
WAIT 3SEC
SMLC 1+9 DNEG DVRG LAST C1-6&
TXT4  *** Level Q-vectors / *** Level Q-vector divergence -             .
ENDL
