*CDK FIELDS2F                                                                      FIELDS2F.1       
      COMMON/FIELDS2/FTF(KMXP,IMXP,17),F107F,FTEF(KMXP,IMXP,9)                     FIELDS2F.2