mod_helena_io.f90

Go to the documentation of this file.

module mod_helena_io

  use itm_types
  implicit none
  integer(itm_i4), parameter :: out_he = 20, iu6 = 6
  character(len = 20), parameter :: file_he_out = 'standard_out'
  integer(itm_i4), parameter :: out_map = 12, out_elite = 13
  integer(itm_i4), parameter :: out_elite_b = 14, out_elite_b9 = 15
  character(len = 30), parameter :: file_map_out = 'helena_equilibrium', &
   file_elite = 'eliteinp', file_elite_b = 'helena_bnd', &
   file_elite_b9 = 'helena_bnd99', file_vec = 'helena_equilibrium.vec', &
   file_dat = 'profiles_out.dat'
  character(len = 20), parameter :: file_eqdsk_out = 'eqdsk'

  integer(itm_i4) :: i_error

end module mod_helena_io