module magfield

   use precision_def
   type magfield_struct 
      real(rp) x(3), B(3), H, dB(3,3), d2B(3,3)
   end type
  type field_file_struct
      character*100 name
      real(rp) grid_spacing, dGdx  !grid spacing and gradient (T/m)    
      integer type, flag
  end type
end module