output_open_file Function

  1. output.f95
  2. output
  3. output_open_file

public function output_open_file(file_name) result(file_id)

Uses

  • proc~~output_open_file~~UsesGraph proc~output_open_file output_open_file module~utilities utilities proc~output_open_file->module~utilities

Arguments

Type IntentOptional AttributesName
character(len=*), intent(in) :: file_name

Return Value integer


Calls

proc~~output_open_file~~CallsGraph proc~output_open_file output_open_file proc~open_file open_file proc~output_open_file->proc~open_file proc~log_error log_error proc~open_file->proc~log_error proc~log_message log_message proc~log_error->proc~log_message proc~log_write log_write proc~log_message->proc~log_write proc~log_format_message log_format_message proc~log_message->proc~log_format_message proc~to_string to_string proc~log_write->proc~to_string proc~date_time_str date_time_str proc~log_format_message->proc~date_time_str proc~colourise colourise proc~log_format_message->proc~colourise proc~string_index string_index proc~colourise->proc~string_index

Called by

proc~~output_open_file~~CalledByGraph proc~output_open_file output_open_file proc~output_open_files output_open_files proc~output_open_files->proc~output_open_file proc~management_write_user_output management_write_user_output proc~management_write_user_output->proc~output_open_file proc~reservoir_open_output reservoir_open_output proc~reservoir_open_output->proc~output_open_file proc~reservoir_initialise reservoir_initialise proc~reservoir_initialise->proc~reservoir_open_output proc~output_initialise_storage output_initialise_storage proc~output_initialise_storage->proc~output_open_files proc~terminate terminate proc~terminate->proc~management_write_user_output proc~initialise initialise proc~initialise->proc~reservoir_initialise proc~output_initialise output_initialise proc~initialise->proc~output_initialise program~swim swim program~swim->proc~terminate program~swim->proc~initialise proc~output_initialise->proc~output_initialise_storage

Contents

Source Code

output_open_file

Source Code

  integer function output_open_file(file_name) result(file_id)
    ! Abstract output file opener (so far only for formatted output)
    use utilities, only : open_file
    character(len=*), intent(in) :: file_name
    file_id = open_file(trim(output_dir)//"/"//trim(file_name), "w")
  end function output_open_file