Save file name into file.
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(file_object), | intent(inout) | :: | self | File object. |
||
| type(file_ini), | intent(inout) | :: | fini | Simulation parameters ini file handler. |
||
| character(len=*), | intent(in) | :: | section_name | Option name into the ini file. |
||
| character(len=*), | intent(in) | :: | option_name | Option name into the ini file. |
subroutine save_file_name_into_file(self, fini, section_name, option_name)
!< Save file name into file.
class(file_object), intent(inout) :: self !< File object.
type(file_ini), intent(inout) :: fini !< Simulation parameters ini file handler.
character(*), intent(in) :: section_name !< Option name into the ini file.
character(*), intent(in) :: option_name !< Option name into the ini file.
call fini%add(section_name=section_name, option_name=option_name, val=self%file_name, error=self%error%status)
endsubroutine save_file_name_into_file