*CDK FIELDS2                                                                       FIELDS2.1        
      COMMON/FIELDS2/FT(KMXP,IMXP),FNO2(KMXP,IMXP),FNO(KMXP,IMXP),                 FIELDS2.2        
     1FNN2(KMXP,IMXP),FNAR(KMXP,IMXP),FNHE(KMXP,IMXP),FNNO(KMXP,IMXP),             FIELDS2.3        
     2FNN2D(KMXP,IMXP),FNN4S(KMXP,IMXP),FRJ(KMXP,IMXP),FW(KMXP,IMXP),              FIELDS2.4        
     3FNHOX(KMXP,IMXP),PPN2D(KMXP,IMXP),FNE(KMXP,IMXP),PPN4S(KMXP,IMXP),           FIELDS2.5        
     4FK4O2P(KMXP,IMXP),FK5O2P(KMXP,IMXP),F107,FTE(KMXP,IMXP),                     FIELDS2.6        
     5FDIFK(KMXP,IMXP),FU(KMXP,IMXP),FWI(KMXP,IMXP),FUI(KMXP,IMXP)                 FIELDS2.7        
     6,FNAS(KMXP,IMXP),FNAO(KMXP,IMXP),FNAO2(KMXP,IMXP),FNAOH(KMXP,IMXP)           FIELDS2.8