C                                           *--> FROM COMMON.FCRUNC
      COMMON/FCRUNC/ITYPRN,RUNID(2),ISEGEX,NSEGEX,MSEGEX,IRSGEX(15000)
C