      IMPLICIT REAL*8 (A-H,O-Z)
      REAL*8 L,NR,NT,NP
      REAL*8 LAT,LONG
      CHARACTER*1 POLE,KIND
      DIMENSION FF(10),REL(10),TH(10),PHID(10),ALOOK(10),AUX(16,6)
      DIMENSION Y(6),DERY(6),PRMT(5),ZI(8),W(8)
      DIMENSION FP2(8),DFP2DR(8),DFP2DT(8),DFP2DP(8),PLASCON(8)
      DIMENSION FB(8),FB2(8),DFBDR(8),DFBDT(8),DFBDP(8)
      DIMENSION GG(8),E(8),DRPDFP(8),DLDFP(8),
     2  DLPDFP(8),DPPDFP(8),DLPDFB(8),DPPDFB(8),
     3  DPDFP(8),DRPDFB(8),DLDFB(8),DAPDFP(8),DBPDFP(8),DCPDFP(8),
     4  DN2DFP(8),DAPDFB(8),DBPDFB(8),DCPDFB(8),DN2DFB(8)
      DIMENSION DNDFP(8),DNDFB(8)
C
      COMMON /INDEX/CN,S,P,D,SIP,COP,ALTUP,ALTDN,F,ALT,ACC,
     1  COSDEL,SINDEL,RO,W,NR,NT,NP,FP,FG,T,ALT1,
     2  ALT2,IC,IONS,IPRINT,ITURN,ITMAX,ILINES,IT,
     3  PRAD,JK,ISERVO,STEP,POLAR
      COMMON/index2/VGROUP,ALFSTIX,OLDXGSEE,
     #OLDYGSEE,OLDZGSEE,DELAYT,VGROUPR,DELAYTR
      COMMON /BLK001/ DEGRAD,RADEG,BR,BT,BP,BO,DBODR,DBODT,DBODP,
     1  DBRDR,DBRDT,DBRDP,DBTDR,DBTDT,DBTDP,STEPMX
      COMMON /JUNK4/BETAD,CHKB,CHKR,CHKL,CHKP,JFLG,NRAD,ALOOK,
     1  ALOOKSTP,SLIMIT
      COMMON /JUNK5/FACTR,jj,ibom,iflag
      COMMON /MAIN/NEGCNT,IKEY,IWRITE
      COMMON/FFCT/ISTP
      COMMON/BLKA1/ZI
      COMMON/BLKCUT/OLDRJ,ICUTLIM,ICUT,IWRIT,iplt
      COMMON/BLKSIGN/IPLUS,ISIGN,mflag,nflag
      COMMON /JUNK2/YPR2,pole,kind
      COMMON/GYRO/FB,FB2,DFBDR,DFBDT,DFBDP
      COMMON/PLAS/FP2,DFP2DR,DFP2DT,DFP2DP,ANER
      COMMON/DGPLAS/PLASCON,IONS1
      COMMON/BLKANG/GAMMAD,ALPHAD,OMEGAD,DELD
