Prints the JSON file to the specified file unit number.
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(json_file), | intent(inout) | :: | me | |||
| integer(kind=IK), | intent(in) | :: | iunit | file unit number (must not be -1) |
subroutine json_file_print_1(me, iunit)
implicit none
class(json_file),intent(inout) :: me
integer(IK),intent(in) :: iunit !! file unit number (must not be -1)
if (iunit/=unit2str) then
call me%core%print(me%p,iunit=iunit)
else
call me%core%throw_exception('Error in json_file_print_1: iunit must not be -1.')
end if
end subroutine json_file_print_1