write_key_t Subroutine

public subroutine write_key_t(key, unit, iotype, v_list, iostat, iomsg)

Arguments

Type IntentOptional Attributes Name
class(key_t), intent(in) :: key
integer, intent(in) :: unit
character, intent(in) :: iotype
integer, intent(in) :: v_list(:)
integer, intent(out) :: iostat
character, intent(inout) :: iomsg

Contents

Source Code

write_key_t

Source Code

    subroutine write_key_t(key, unit, iotype, v_list, iostat, iomsg)
        class(key_t), intent(in)    :: key
        integer, intent(in)         :: unit
        character(*), intent(in)    :: iotype
        integer, intent(in)         :: v_list(:)
        integer, intent(out)        :: iostat
        character(*), intent(inout) :: iomsg
        iostat = 0
        !iomsg = ""
        write(6,'(a)', iostat=iostat, iomsg=iomsg) trim(adjustl(key%k))
    end subroutine write_key_t