C                                           *--> FROM COMMON.FCPUCK
      COMMON /FCPUCK/ ICPUT,ICPUON,INCPU
C