FIXME : Add documentation
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
character(len=*), | intent(in) | :: | name | |||
character(len=*), | intent(out) | :: | value |
subroutine mds_r_char_1(name,value)
implicit none
character(*), intent(in) :: name
character(*) , intent(out):: value
# ifdef MDSPLUS
logical :: status
integer :: clen
integer :: descr
status = mdsvalue(name//char(0),&
&descr(IDTYPE_CSTRING,value,0,len(value)),0,clen)
call checkmds(status,"error reading "//name)
return
# endif
end subroutine mds_r_char_1