include file: ARGWVSR 12
C*    *COMMON*  *SOURCE* - SOURCE FUNCTION AND TAIL FLAG.                  ARGWVSR.2      
C                                                                          ARGWVSR.3      
     & SL, FCONST,                                                         ARGWVSR.4      
                                                                           ARGWVSR.5