Print a summary of the system input on file.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(c_ptr), | value | :: | s_prt | |||
character(kind=c_char), | intent(in) | :: | filename(OMMP_STR_CHAR_MAX) |
File where the summary will be printed |
subroutine C_ommp_print_summary_to_file(s_prt, filename) &
bind(c, name='ommp_print_summary_to_file')
!! Print a summary of the system input on file.
implicit none
type(c_ptr), value :: s_prt
type(ommp_system), pointer :: s
character(kind=c_char), intent(in) :: filename(OMMP_STR_CHAR_MAX)
!! File where the summary will be printed
character(len=OMMP_STR_CHAR_MAX) :: output_file
call c_f_pointer(s_prt, s)
call c2f_string(filename, output_file)
call ommp_print_summary_to_file(s, output_file)
end subroutine C_ommp_print_summary_to_file