      PARAMETER (MTGRD=50,MCOL=MK*MK*2)
      COMMON /COLLI/ ILC(MCOL),IHC(MCOL),NTC(MCOL),NCOL
      COMMON /COLLR/ CTEMP(MTGRD,MCOL),CDATA(MTGRD,MCOL)
      COMMON /COLLC/ CKEY(MK*MK)
      CHARACTER*20 CKEY
