mds_r_int_1 Subroutine

private subroutine mds_r_int_1(name, value)

FIXME : Add documentation

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: name
integer, intent(out), dimension(:) :: value

Contents

Source Code


Source Code

  subroutine mds_r_int_1(name,value)
    implicit none
    character(*), intent(in) :: name 
    integer , dimension(:), intent(out) :: value
# ifdef MDSPLUS
    logical :: status
    integer :: len
    integer :: descr
    integer :: dim1
    dim1 = size(value,1)
    status = mdsvalue(name//char(0),descr(IDTYPE_LONG,value,dim1,0),0,len)
    call checkmds(status,"error reading "//name)
    return
# endif
  end subroutine mds_r_int_1