close_file Subroutine

  1. read_output.f90
  2. read_output
  3. close_file

private subroutine close_file(files)

Close the file after reading

Arguments

Type IntentOptional AttributesName
type(filetype), intent(in) :: files

Calls

proc~~close_file~2~~CallsGraph proc~close_file~2 close_file debugcall debugcall proc~close_file~2->debugcall

Called by

proc~~close_file~2~~CalledByGraph proc~close_file~2 close_file proc~read_file~3 read_file proc~read_file~3->proc~close_file~2 proc~initstate initstate proc~initstate->proc~read_file~3 proc~setup_state setup_state proc~setup_state->proc~initstate proc~setup_solver setup_solver proc~setup_solver->proc~setup_state proc~start_run start_run proc~start_run->proc~setup_solver program~main main program~main->proc~start_run

Contents

Source Code

close_file

Source Code

    subroutine close_file(files)
      !< Close the file after reading 
      implicit none
      type(filetype), intent(in) :: files

      DebugCall('close_files')
      close(files%IN_FILE_UNIT)
      close(files%RESTART_FILE_UNIT)

    end subroutine close_file