C                                                *--> FROM CMS(UFSTCD)
      COMMON /UFSTCD/ IFSTCD
C