character*8 tgcm_version
      character*80 volinfo,tmpdir
      COMMON/STRT/IFRST,ITER,NSTP,NCASE(40),MODEST,MODEFC,NHEMI,NERR,
     1IYEAR,IIDAY,DIPOLE(2),PMLONG(2),SECS,IFIL,MFIL,IHIS,MHIS,
     2ISAV,MSAV,ITAP,MTAP,IEND,ITIDE,ICOMP,IDAY(10),IHR(10),IDATE(10),
     3LABHIS(3,20),LABSRC(3),LABMAG(3),NNSTP(2),MMHIS(2),IUIVI,tmpdir,
     4ITERT(512),ITIDE2,LABSAMI(3),LABNAMI(3),IADVDA,ITIDEA,IPROC,
     +tgcm_version,volinfo,incore
C