FIXME : Add documentation
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
logical, | intent(in) | :: | status | |||
character(len=*) | :: | text |
subroutine getmdserrortext(status,text)
implicit none
logical, intent(in) :: status
character(*) :: text ! intent?
# ifdef MDSPLUS
logical loc_status
integer istat
equivalence (loc_status,istat)
integer length
integer :: descr
loc_status = mdsvalue("getmsg($)",descr(IDTYPE_LONG,status,0),&
&descr(IDTYPE_CSTRING,text,0,len(text),0),0,length)
if (iand(istat,1) .eq. 0) then
loc_status = status
write(text,*) "error status = ",istat
endif
return
# endif
end subroutine getmdserrortext