C                                           *--> FROM COMMON.ESPRES
      COMMON /ESPRES/ IREG
C