open_namelist_file Subroutine

private subroutine open_namelist_file(filename, unit_id, ios)

Helper routine to safely open a namelist file for reading.

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: filename
integer, intent(out) :: unit_id
integer, intent(out) :: ios

Called by

proc~~open_namelist_file~~CalledByGraph proc~open_namelist_file mod_input::open_namelist_file proc~read_boundary_input mod_input::read_boundary_input proc~read_boundary_input->proc~open_namelist_file proc~read_energy_input mod_input::read_energy_input proc~read_energy_input->proc~open_namelist_file proc~read_fluid_input mod_input::read_fluid_input proc~read_fluid_input->proc~open_namelist_file proc~read_mesh_input mod_input::read_mesh_input proc~read_mesh_input->proc~open_namelist_file proc~read_output_input mod_input::read_output_input proc~read_output_input->proc~open_namelist_file proc~read_solver_input mod_input::read_solver_input proc~read_solver_input->proc~open_namelist_file proc~read_species_input mod_input::read_species_input proc~read_species_input->proc~open_namelist_file proc~read_time_input mod_input::read_time_input proc~read_time_input->proc~open_namelist_file proc~read_case_params mod_input::read_case_params proc~read_case_params->proc~read_boundary_input proc~read_case_params->proc~read_energy_input proc~read_case_params->proc~read_fluid_input proc~read_case_params->proc~read_mesh_input proc~read_case_params->proc~read_output_input proc~read_case_params->proc~read_solver_input proc~read_case_params->proc~read_species_input proc~read_case_params->proc~read_time_input program~lowmach_react_hex lowmach_react_hex program~lowmach_react_hex->proc~read_case_params

Source Code

   subroutine open_namelist_file(filename, unit_id, ios)
      character(len=*), intent(in) :: filename
      integer, intent(out) :: unit_id
      integer, intent(out) :: ios

      open(newunit=unit_id, file=trim(filename), status='old', action='read', iostat=ios)

      if (ios /= 0) unit_id = -1
   end subroutine open_namelist_file