      subroutine fdump
      return
      end
