读取输入输出参数
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(io_configuration), | intent(inout) | :: | self |
subroutine ioc_read(self)
class(io_configuration), intent(inout) :: self
integer :: iunit
logical :: is_save_acceleration !! 是否保存加速度
character(64) :: input_file !! 输入文件
character(64) :: output_file !! 输出文件
namelist /io/ is_save_acceleration, input_file, output_file
is_save_acceleration = .false.
input_file = 'pif.h5part'
output_file = 'pif--out.h5part'
open (newunit=iunit, file=cli_obj%working_directory.join.cli_obj%file, &
status='old', action='read')
read (iunit, nml=io)
close (iunit)
self%is_save_acceleration = is_save_acceleration
self%input_file = input_file
self%output_file = output_file
if (cli_obj%debug_mode) call self%print()
end subroutine ioc_read