CIPRIME GPINFO                                                          GPINFO      1
      LOGICAL ONEONE,AUTOSC                                             GPINFO      2
      INTEGER PFLAG,NUMPLT                                              GPINFO      3
      COMMON /GPPARA/ BXS,   BXE,   BYS,   BYE,   XDIV,   YDIV,         GPINFO      4
     1                ONEONE,XSTVAL,XDELTA,YSTVAL, YDELTA               GPINFO      5
     1                ,PFLAG,NUMPLT,XEDVAL,YEDVAL                       GPINFO      6
      REAL YSTVAL(6),YDELTA(6),YEDVAL(6)                                GPINFO      7
      COMMON /XSA/ IDX1,IDX2                                            GPINFO      8
      INTEGER IDX1(6),IDX2(6)                                           GPINFO      9
