C                                           *--> FROM COMMON.EFUTP
      COMMON/EFUTP/IFUTP
C