close_file Subroutine

  1. fclose.f90
  2. fclose
  3. close_file

public subroutine close_file(handler)

Arguments

Type IntentOptional AttributesName
integer, intent(in) :: handler

Called by

proc~~close_file~3~~CalledByGraph proc~close_file~3 close_file proc~read_output_control read_output_control proc~read_output_control->proc~close_file~3 proc~get_rw_count get_rw_count proc~read_output_control->proc~get_rw_count proc~get_rw_count->proc~close_file~3 proc~close_all_files close_all_files proc~close_all_files->proc~close_file~3 proc~destroy_resnorm destroy_resnorm proc~destroy_resnorm->proc~close_file~3 proc~read_res_list read_Res_list proc~read_res_list->proc~close_file~3 proc~open_file~3 open_file proc~open_file~3->proc~close_file~3 proc~read_interface_map read_interface_map proc~read_interface_map->proc~close_file~3 proc~read_input_and_controls read_input_and_controls proc~read_input_and_controls->proc~read_output_control proc~read_input_and_controls->proc~read_res_list proc~setup_grid setup_grid proc~setup_grid->proc~read_interface_map proc~abort_run abort_run proc~abort_run->proc~close_all_files proc~destroy_solver destroy_solver proc~abort_run->proc~destroy_solver proc~finish_run finish_run proc~finish_run->proc~close_all_files proc~finish_run->proc~destroy_solver proc~destroy_solver->proc~destroy_resnorm proc~setup_solver setup_solver proc~setup_solver->proc~read_input_and_controls proc~setup_solver->proc~setup_grid program~main main program~main->proc~finish_run proc~start_run start_run program~main->proc~start_run proc~setup_all setup_all proc~setup_all->proc~read_input_and_controls proc~setup_all->proc~setup_grid proc~start_run->proc~setup_solver

Contents

Source Code

close_file

Source Code

    subroutine close_file(handler)
      !Generalized subroutine to close single file
      implicit none
      integer, intent(in) :: handler
      logical :: ok
      inquire(handler, opened=ok)
      if(ok)  close(handler)
    end subroutine close_file