INTEGER             :: NBKFL,ISWBKFL,IACTVFIL,ITOTFIL,I3DVIEW,IRDONE
  REAL                :: BFMINMAX
  CHARACTER(LEN=255)  :: BFNAME,BFNAMR,FNAMKEP,DIRECT
  CHARACTER(LEN=48)   :: FNAMEDISP
  COMMON /BFLSI/       NBKFL,ISWBKFL(10),I3DVIEW,IRDONE
  COMMON /BFLSR/       BFMINMAX(10,4)
  COMMON /BFLSC/       BFNAME(10),BFNAMR(10),FNAMKEP,DIRECT,FNAMEDISP
  CHARACTER(LEN=255)  :: FNAMEOUT
  COMMON /RSTOR/ IACTVFIL,ITOTFIL,FNAMEOUT(10)