cCDK STRT CHARACTER*160 NCASE CHARACTER*60 LABDAT,LABSRC,LABHIS,LABHISN,NESTRD,NESTWT COMMON/STRT1/IFRST,ITER,NSTP,NCASE,MODEST,MODEFC,NHEMI,NERR, 1IYEAR,IIDAY,IFIL,MFIL,IHIS,MHIS,IHIST,IUNIN,IUNOT,IOTPT,INEST(4), 2ISAV,MSAV,ITAP,MTAP,IEND,ITIDE,ICOMP,IDAY(10),IHR(10),IDATE(10), 3LABHIS(10),LABHISN(10,4),LABSRC,LABDAT,NNSTP,MMHIS,IUIVI, 4ITERT(512),ITIDE2,IADVDA,ISTRT,ISOURCE(3),NHIST,NEST,MHIST(4) COMMON/STRT2/DIPOLE(2),PMLONG(2),SECS COMMON/STRT3/NESTIN(4),NESTOT(4),NESTRD(4),NESTWT(4)