C                                           *--> FROM COMMON.IONUM
      COMMON/IONUM/IN,IPR,IPU
C