CIPRIME PTIP1                                                           PTIP1       1
C PTIP1.INC                                                             PTIP1       2
                                                                        PTIP1       3
      REAL GNBBB(128)                                                   PTIP1       4
      REAL EXBBB(128)                                                   PTIP1       5
      REAL STBBB(128)                                                   PTIP1       6
      REAL GVBBB(128)                                                   PTIP1       7
      INTEGER IGNBBB(128)                                               PTIP1       8
      INTEGER IEXBBB(128)                                               PTIP1       9
      INTEGER ISTBBB(128)                                               PTIP1      10
      INTEGER IGVBBB(128)                                               PTIP1      11
                                                                        PTIP1      12
C MYES IS SET IN REFILE.   MYES(1)=1 READ IN GEN DAT                    PTIP1      13
C                          MYES(2)=1 READ IN EXC DAT                    PTIP1      14
C                          MYES(3)=1 READ IN STAB DAT                   PTIP1      15
C                          MYES(4)=1 READ IN GOV DAT                    PTIP1      16
                                                                        PTIP1      17
      INTEGER MYES(4)                                                   PTIP1      18
                                                                        PTIP1      19
      EQUIVALENCE (GNBBB,IGNBBB)                                        PTIP1      20
      EQUIVALENCE (EXBBB,IEXBBB)                                        PTIP1      21
      EQUIVALENCE (STBBB,ISTBBB)                                        PTIP1      22
      EQUIVALENCE (GVBBB,IGVBBB)                                        PTIP1      23
C                                                                       PTIP1      24
      COMMON /SCRAT2/MYES,GNBBB,EXBBB,STBBB,GVBBB                       PTIP1      25
     &, EXC,EXS,EXF,EXU,CCV,CIV,CSC,CGV,GSTAB,GVN                       PTIP1      26
     &, LNAME1,LNAME2,LNAME3                                            PTIP1      27
     &,LFNAME,IANAM1,IANAM2,IANAM3,LFNUM,LFTOPN,LAREA                   PTIP1      28
C                                                                       PTIP1      29
