LOOP
CONT SMLT DSDX YCMP GEOS DSDY TEMP
CONT SMLC -1   SSUM SMLT DSDX XCMP GEOS DSDX TEMP 
CONT SMLT DSDY YCMP GEOS DSDY TEMP 
CONT SSUM SMLT DSDY XCMP GEOS DSDX TEMP   
SMLC   -1                                                                 
DNEG DVRG LAST&
TXT4 Q-VECTOR / Q-VECTOR DIVERGENCE -    
ENDL
LOOP
CONT SMLT DSDX YCMP WIND DSDY TEMP
CONT SMLC -1   SSUM SMLT DSDX XCMP WIND DSDX TEMP 
CONT SMLT DSDY YCMP WIND DSDY TEMP 
CONT SSUM SMLT DSDY XCMP WIND DSDX TEMP   
SMLC   -1                                                                 
DNEG DVRG LAST&
TXT4 F-VECTOR / F-VECTOR DIVERGENCE -    
ENDL
