FIXME : Add documentation
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
character(len=*), | intent(in) | :: | name | |||
real(kind=kind_rs), | intent(out), | dimension(:,:,:,:,:,:,:) | :: | value |
subroutine mds_r_real_7(name,value)
implicit none
character(*), intent(in) :: name
real(kind=kind_rs) , dimension(:,:,:,:,:,:,:), intent(out) :: value
# ifdef MDSPLUS
logical :: status
integer :: len
integer :: descr
integer :: dim1,dim2,dim3,dim4,dim5,dim6,dim7
dim1 = size(value,1)
dim2 = size(value,2)
dim3 = size(value,3)
dim4 = size(value,4)
dim5 = size(value,5)
dim6 = size(value,6)
dim7 = size(value,7)
status = mdsvalue(name//char(0),&
&descr(IDTYPE_FLOAT,value,dim1,dim2,dim3,dim4,dim5,dim6,dim7,0),0,len)
call checkmds(status,"error reading "//name)
return
# endif
end subroutine mds_r_real_7