mds_w_real_0 Subroutine

private subroutine mds_w_real_0(name, value)

FIXME : Add documentation

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: name
real(kind=kind_rs), intent(in) :: value

Contents

Source Code


Source Code

  subroutine mds_w_real_0(name,value)
    implicit none
    character(*), intent(in) :: name
    real(kind=kind_rs), intent(in) :: value
# ifdef MDSPLUS
    logical :: status
    integer :: descr
    status = mdsput(name//char(0),"$",descr(IDTYPE_FLOAT,value,0),0)
    call checkmds(status,"error writing "//name)
    return
# endif
  end subroutine mds_w_real_0