PARAMETER (MCHEKS=100)
      COMMON /USCHEK/ LCHECK(MCHEKS),CCHECK(MCHEKS)
      LOGICAL LCHECK
      CHARACTER*80 CCHECK