off_test_save_load_file_parameters Program

  1. off_test_save_load_file_parameters.f90
  2. off_test_save_load_file_parameters
program~~off_test_save_load_file_parameters~~UsesGraph program~off_test_save_load_file_parameters off_test_save_load_file_parameters flap flap flap->program~off_test_save_load_file_parameters module~off_simulation_object off_simulation_object flap->module~off_simulation_object module~off_objects off_objects module~off_objects->program~off_test_save_load_file_parameters penf penf penf->program~off_test_save_load_file_parameters module~off_os_object off_os_object penf->module~off_os_object module~off_error_object off_error_object penf->module~off_error_object module~off_file_grid_object off_file_grid_object penf->module~off_file_grid_object module~off_files_collection_object off_files_collection_object penf->module~off_files_collection_object module~off_file_object off_file_object penf->module~off_file_object module~off_time_object off_time_object penf->module~off_time_object module~off_block_signature_object off_block_signature_object penf->module~off_block_signature_object module~off_free_conditions_object off_free_conditions_object penf->module~off_free_conditions_object penf->module~off_simulation_object module~off_cell_object off_cell_object penf->module~off_cell_object module~off_face_object off_face_object penf->module~off_face_object module~off_non_dimensional_numbers_object off_non_dimensional_numbers_object penf->module~off_non_dimensional_numbers_object module~off_solver_object off_solver_object penf->module~off_solver_object module~off_block_object off_block_object penf->module~off_block_object module~off_grid_dimensions_object off_grid_dimensions_object penf->module~off_grid_dimensions_object module~off_os_object->module~off_objects module~off_os_object->module~off_simulation_object module~off_error_object->module~off_objects module~off_error_object->module~off_os_object module~off_error_object->module~off_file_object module~off_error_object->module~off_time_object module~off_error_object->module~off_free_conditions_object module~off_error_object->module~off_simulation_object module~off_error_object->module~off_non_dimensional_numbers_object module~off_error_object->module~off_solver_object module~off_error_object->module~off_block_object module~off_file_grid_object->module~off_objects module~off_file_grid_object->module~off_simulation_object module~off_files_collection_object->module~off_objects module~off_file_object->module~off_objects module~off_file_object->module~off_file_grid_object module~off_file_object->module~off_files_collection_object module~off_time_object->module~off_objects module~off_time_object->module~off_simulation_object module~off_block_signature_object->module~off_objects module~off_block_signature_object->module~off_block_object module~off_block_signature_object->module~off_grid_dimensions_object module~off_node_object off_node_object module~off_node_object->module~off_objects module~off_node_object->module~off_block_object module~off_free_conditions_object->module~off_objects module~off_free_conditions_object->module~off_simulation_object module~off_simulation_object->module~off_objects module~off_cell_object->module~off_objects module~off_cell_object->module~off_block_object module~off_face_object->module~off_objects module~off_face_object->module~off_block_object module~off_non_dimensional_numbers_object->module~off_objects module~off_non_dimensional_numbers_object->module~off_simulation_object module~off_solver_object->module~off_objects module~off_solver_object->module~off_simulation_object module~off_block_object->module~off_objects module~off_block_object->module~off_file_grid_object module~off_block_object->module~off_simulation_object module~off_grid_dimensions_object->module~off_objects module~off_grid_dimensions_object->module~off_file_grid_object module~off_grid_dimensions_object->module~off_simulation_object stringifor stringifor stringifor->module~off_os_object iso_fortran_env iso_fortran_env iso_fortran_env->module~off_error_object iso_fortran_env->module~off_file_grid_object iso_fortran_env->module~off_file_object iso_fortran_env->module~off_simulation_object iso_fortran_env->module~off_block_object finer finer finer->module~off_files_collection_object finer->module~off_file_object finer->module~off_time_object finer->module~off_free_conditions_object finer->module~off_simulation_object finer->module~off_non_dimensional_numbers_object finer->module~off_solver_object vecfor vecfor vecfor->module~off_block_signature_object vecfor->module~off_node_object vecfor->module~off_free_conditions_object vecfor->module~off_cell_object vecfor->module~off_face_object vecfor->module~off_block_object vecfor->module~off_grid_dimensions_object vtk_fortran vtk_fortran vtk_fortran->module~off_block_object
Help


OFF test: save (and re-load for checking) file of simulation parameters.

Calls

program~~off_test_save_load_file_parameters~~CallsGraph program~off_test_save_load_file_parameters off_test_save_load_file_parameters proc~cli_parse~3 cli_parse program~off_test_save_load_file_parameters->proc~cli_parse~3
Help

Variables

Subroutines

Source Code

off_test_save_load_file_parameters

Variables

Type AttributesNameInitial
logical :: are_tests_passed(1)

Result of tests check.
character(len=999) :: file_parameters

Name of simulation parameters.
type(simulation_object) :: simulation

Simulation data.

Subroutines

subroutine cli_parse()

Build and parse test cli.

Arguments

None

Source Code

program off_test_save_load_file_parameters
!< OFF test: save (and re-load for checking) file of simulation parameters.

use off_objects, only : simulation_object
use flap, only : command_line_interface
use penf, only : I4P, R8P

implicit none
character(999)          :: file_parameters     !< Name of simulation parameters.
type(simulation_object) :: simulation          !< Simulation data.
logical                 :: are_tests_passed(1) !< Result of tests check.

are_tests_passed = .false.

simulation%adimensionals%Ma = 3._R8P

call cli_parse

call simulation%save_file_parameters(file_name=file_parameters)

call simulation%initialize ! re-initialize

call simulation%load_file_parameters(file_name=file_parameters)

are_tests_passed(1) = simulation%adimensionals%Ma == 3._R8P

print '(A)', simulation%description()

print '(A,L1)', 'Are all tests passed? ', all(are_tests_passed)

call simulation%os%rm(file_name=trim(file_parameters)) ! remove temporary file parameters

contains
  subroutine cli_parse()
  !< Build and parse test cli.
  type(command_line_interface) :: cli   !< Test command line interface.
  integer(I4P)                 :: error !< Error trapping flag.

  call cli%init(progname='off_test_save_load_file_parameters',                                   &
                authors='S. Zaghi',                                                              &
                help='Usage: ',                                                                  &
                examples=["off_test_save_load_file_parameters --parameters sim_parameters.ini"], &
                epilog=new_line('a')//"all done")

  call cli%add(switch='--parameters-file',                &
               switch_ab='-par',                          &
               help='name of simulation parameters file', &
               required=.true.,                           &
               act='store')

  call cli%parse(error=error) ; if (error/=0) stop

  call cli%get(switch='--parameters-file', val=file_parameters)
  endsubroutine cli_parse
endprogram off_test_save_load_file_parameters

All Programs