SUBROUTINE LSTON C INCLUDE "FLX:FLXSY3" $NOLIST INCLUDE "FLX:FLXSY3" $LIST LSTFLG = .TRUE. RETURN END SUBROUTINE LSTOFF C INCLUDE "FLX:FLXSY3" $NOLIST INCLUDE "FLX:FLXSY3" $LIST LSTFLG = .FALSE. RETURN END