CIPRIME EQQSTA                                                          EQQSTA      1
      DIMENSION PDGT(2,NM),EMGT(NM),PDM(2,NMT),CDMT(2,NMT)              EQQSTA      2
     1,BSVCT(NSR),BRANT(NXRAN),GRANT(NXRAN)                             EQQSTA      3
      EQUIVALENCE (QSTATE(1),EMGT(1)),(QSTATE(NM+1),PDGT(1,1))          EQQSTA      4
     1,(QSTATE(NM*3+1),PDM(1,1)),(QSTATE(NM*3+NMT*2+1),CDMT(1,1))       EQQSTA      5
     2,(QSTATE(NM*3+NMT*4+1),BSVCT(1))                                  EQQSTA      6
     3,(QSTATE(NM*3+NMT*4+NSR+1),BRANT(1))                              EQQSTA      7
     4,(QSTATE(NM*3+NMT*4+NSR+NXRAN+1),GRANT(1))                        EQQSTA      8
