module bfilt_def
      use machine
      implicit none
      save
      
      real(kind=kind_evod) ,allocatable :: bfilte(:),bfilto(:)
      end module bfilt_def