setup_file Subroutine

  1. read_output.f90
  2. read_output
  3. setup_file

private subroutine setup_file(control)

Steup the file to read the restart state.

Arguments

Type IntentOptional AttributesName
type(controltype), intent(in) :: control

Calls

proc~~setup_file~3~~CallsGraph proc~setup_file~3 setup_file debugcall debugcall proc~setup_file~3->debugcall

Called by

proc~~setup_file~3~~CalledByGraph proc~setup_file~3 setup_file proc~read_file~3 read_file proc~read_file~3->proc~setup_file~3 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

setup_file

Source Code

    subroutine setup_file(control)
      !< Steup the file to read the restart state.
      implicit none
      type(controltype), intent(in) :: control
      DebugCall('setup_file')
      if (control%read_file_format == "vtk") then
        file_format = ".vtk"
      elseif (control%read_file_format == "tecplot") then
        file_format = ".dat"
      else
        print*, "File format not recoganised. Accepted formats are"
        print*, "'vtk' and 'tecplot' "
      end if

      if (control%read_data_format == "ASCII") then
        data_format = "formatted"
      elseif (control%read_data_format == "BINARY") then
        data_format = "unformatted"
      else
        print*, "Data format not recoganised. Accepted formats are"
        print*, "'ASCII' and 'BINARY' "
      end if

    end subroutine setup_file