write_value_t Subroutine

public subroutine write_value_t(value, unit, iotype, v_list, iostat, iomsg)

Arguments

Type IntentOptional Attributes Name
class(value_t), intent(in) :: value
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_value_t

Source Code

    subroutine write_value_t(value, unit, iotype, v_list, iostat, iomsg)
        class(value_t), intent(in)    :: value
        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,'(f0.6)', iostat=iostat, iomsg=iomsg) value%v
    end subroutine write_value_t