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