json_file_print_to_unit Subroutine

  1. json_file_module.F90
  2. json_file_module
  3. json_file_print_to_unit

private subroutine json_file_print_to_unit(me, iunit)

Prints the JSON file to the specified file unit number.

Arguments

TypeIntentOptionalAttributesName
class(json_file), intent(inout) :: me
integer(kind=IK), intent(in) :: iunit

file unit number (must not be -1)

Contents

Source Code

json_file_print_to_unit

Source Code

    subroutine json_file_print_to_unit(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_to_unit: iunit must not be -1.')
    end if

    end subroutine json_file_print_to_unit