      common /File/ FD,NumFileOpen,FtDataOK,FpDataOK,FcDataOK,JntCalcOK,
     &              FloorContact

      record /FileData/ FD(MAX_FILES)

      integer*4 NumFileOpen
      logical*4 FtDataOK(MAX_ELEC_FRM,2,MAX_FILES),
     &          FpDataOK(MAX_ELEC_FRM,MAX_PLT,MAX_FILES),
     &          FcDataOK(MAX_ELEC_FRM,MAX_FILES),
     &          JntCalcOK(MAX_MTN_FRM,MAX_JNT,MAX_FILES),
     &          FloorContact(MAX_ELEC_FRM,2,MAX_FILES)
