CIPRIME PSFUNT                                                          PSFUNT      1
C---------------------------------------------------------------------  PSFUNT      2
C                                                                       PSFUNT      3
C        RELEASE    3        VERSION    1         JULY 15, 1985         PSFUNT      4
C                                                                       PSFUNT      5
C---------------------------------------------------------------------  PSFUNT      6
C                                                                       PSFUNT      7
C                                                                       PSFUNT      8
C        DEFINITION OF COMMON VARIABLES:                                PSFUNT      9
C                  HISTIN -  history input unit number.                 PSFUNT     10
C                  HISTOU -  history output unit number.                PSFUNT     11
C                  ITAPE  -  input unit number.                         PSFUNT     12
C                  JTAPE  -  output unit number.                        PSFUNT     13
C                  KTAPE  -  output unit number.                        PSFUNT     14
C                  L1     -  temporary file unit number.                PSFUNT     15
C                  L2     -  temporary file unit number.                PSFUNT     16
C                  LB1    -  unit number for line data (temporary)      PSFUNT     17
C                  LB2    -  unit number for area and regulating        PSFUNT     18
C                            data. (temporary)                          PSFUNT     19
C                  LB3    -  unit number for dc data. (temporary)       PSFUNT     20
C                  LB4    -  unit numberfor central scheduler data.     PSFUNT     21
C                            (temporary)                                PSFUNT     22
C                  RCFLAG -  recover saved case flag.                   PSFUNT     23
C                  SAVENM -  saved case unit number.                    PSFUNT     24
C                                                                       PSFUNT     25
C                                                                       PSFUNT     26
C---------------------------------------------------------------------  PSFUNT     27
C                                                                       PSFUNT     28
      INTEGER       HISTIN, HISTOU, ITAPE, JTAPE, KTAPE, L1, L2, LB1,   PSFUNT     29
     1              LB2, LB3, LB4, SAVENM                               PSFUNT     30
C                                                                       PSFUNT     31
      LOGICAL       RCFLAG, LDFLOW                                      PSFUNT     32
C                                                                       PSFUNT     33
      PARAMETER    ( ITAPE = 11 )                                       PSFUNT     34
      PARAMETER    ( JTAPE = 12 )                                       PSFUNT     35
      PARAMETER    ( KTAPE = 7 )                                        PSFUNT     36
      PARAMETER    ( HISTOU = 8 )                                       PSFUNT     37
      PARAMETER    ( HISTIN = 9 )                                       PSFUNT     38
      PARAMETER    ( L1 = 25 )                                          PSFUNT     39
      PARAMETER    ( L2 = 26 )                                          PSFUNT     40
      PARAMETER    ( LB1 = 13 )                                         PSFUNT     41
      PARAMETER    ( LB2 = 14 )                                         PSFUNT     42
      PARAMETER    ( LB3 = 15 )                                         PSFUNT     43
      PARAMETER    ( LB4 = 16 )                                         PSFUNT     44
C                                                                       PSFUNT     45
C                                                                       PSFUNT     46
      COMMON/RECOVR/    LDFLOW,        RCFLAG,        SAVENM            PSFUNT     47
C                                                                       PSFUNT     48
C---------------------------------------------------------------------  PSFUNT     49
C     END UNITNO                                                        PSFUNT     50
