C*_NSTREAM_
       INTEGER*4 _NSTREAM_
       PARAMETER (_NSTREAM_=40)
C*_NSTREAM_
       INTEGER*4 _NSTREAM_
       PARAMETER (_NSTREAM_=20)
C*L_CTERMID
       INTEGER*4 L_CTERMID
       PARAMETER (L_CTERMID=9)
C*L_CUSERID
       INTEGER*4 L_CUSERID
       PARAMETER (L_CUSERID=32)
C*SEEK_CUR
       INTEGER*4 SEEK_CUR
       PARAMETER (SEEK_CUR=1)
C*SEEK_END
       INTEGER*4 SEEK_END
       PARAMETER (SEEK_END=2)
C*SEEK_SET
       INTEGER*4 SEEK_SET
       PARAMETER (SEEK_SET=0)
C*RAND_MAX
       INTEGER*4 RAND_MAX
       PARAMETER (RAND_MAX=#07FFF)
C*_CRIT_ERROR_PROMPT
       INTEGER*4 _CRIT_ERROR_PROMPT
       PARAMETER (_CRIT_ERROR_PROMPT=0)
C*_CRIT_ERROR_FAIL
       INTEGER*4 _CRIT_ERROR_FAIL
       PARAMETER (_CRIT_ERROR_FAIL=1)
