c
c------------------------------------------------------------------
c Begin file /home/sting/foster/proclib/tgcmhdr.h
c------------------------------------------------------------------
c
c Global include file containing tgcm header info:
c
      common /tgcmhdr/ iter,nday,nhr,nmin,label(40),
     +  date(2),output(3,20),start(3),stp(6),hist(6),sav(3),step,
     +  mag(4),difhor,iuivi,sdtide(10),ipower,aurora,dispos,data(3),
     +  source(3),sourct(3),dtide(2),dum(8),rdate,naur,hp,cp,byimf,
     +  aurp(60),rmodnum,colfac,f107d,f107a
      integer start,stp,hist,step,sourct,sav,date,difhor,aurora,dispos
      real mag
      character*8 data,source,label,output,rdate
c
c Additional header info:
      parameter(naurpx=54,nlex=600)
      COMMON/AURDAT/ AURPS(NLEX,2,NAURPX), NPTS(NAURPX),IPR, NAURP, 
     1 PARAMV(NAURPX), JBYHEM, JDITH, JDIDK      
C
C  IONCR 11/88        
      COMMON /IONCR/ ISTAR,IHEM,THETA0(2),OFFA(2),OFFC(2),DSKOFA(2), 
     1DSKOFC(2),PHID(2),PHIN(2),PHIDP0(2),PHIDM0(2),PHINP0(2),PHINM0(2), 
     2 PSIM(2),PSIE(2),PCEN(2),R1(2)       
     3, THETAC(2),R2(2)                                      
c
C  OVALR 3/89                                            
      COMMON /OVALR/ RRAD(2),H0,RH,RROTH,E0,REE,RROTE,FC,ALFAC,FD,ALFAD 
     |, ALFK,ALF6,ALF21,RROT6,RROT21,RD6,RD6V,RD21,RH6,RH21,RT6,RT21  
     |, ALFA0,RALFA,ALFA20,RALFA2,E20,RE2                     
      COMMON /PARAMD/ DUMDEG(36),EC,ED,DUMA(13)                   
c