module bfilt_def
      use machine
      implicit none
      save
      
      REAL(KIND=KIND_EVOD) ,ALLOCATABLE :: bfilte(:),bfilto(:)
      end module bfilt_def