ioc_read Subroutine

private subroutine ioc_read(self)

读取输入输出参数

Type Bound

io_configuration

Arguments

Type IntentOptional Attributes Name
class(io_configuration), intent(inout) :: self

Contents

Source Code


Source Code

    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