输入输出控制参数
| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| logical, | public | :: | is_save_acceleration |
是否保存加速度 |
|||
| character(len=64), | public | :: | input_file |
输入文件 |
|||
| character(len=64), | public | :: | output_file |
输出文件 |
读取输入输出参数
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(io_configuration), | intent(inout) | :: | self |
打印输入输出参数
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(io_configuration), | intent(in) | :: | self |
type io_configuration
logical :: is_save_acceleration !! 是否保存加速度
character(64) :: input_file !! 输入文件
character(64) :: output_file !! 输出文件
contains
procedure :: read => ioc_read
procedure, private :: print => ioc_print
end type io_configuration