CIPRIME GRFRAC                                                          GRFRAC      1
      DATA              IVMAGS  /1/,    IVANGS  /2/,    IMAGS  /3/,     GRFRAC      2
     1    IPS     /4/,   IQS     /5/,   IFREQS  /6/                     GRFRAC      3
