mds_w_dcmplx_6 Subroutine

private subroutine mds_w_dcmplx_6(name, value)

FIXME : Add documentation

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: name
complex(kind=kind_rd), intent(in), dimension(:,:,:,:,:,:) :: value

Contents

Source Code


Source Code

  subroutine mds_w_dcmplx_6(name,value)
    implicit none
    character(*), intent(in) :: name
    complex(kind=kind_rd), dimension(:,:,:,:,:,:), intent(in) :: value
# ifdef MDSPLUS
    logical :: status
    integer :: len
    integer :: descr
    integer :: dim1,dim2,dim3,dim4,dim5,dim6
    dim1 = size(value,1)
    dim2 = size(value,2)
    dim3 = size(value,3)
    dim4 = size(value,4)
    dim5 = size(value,5)
    dim6 = size(value,6)
    status = mdsput(name//char(0),&
         &"$",descr(IDTYPE_DOUBLE_COMPLEX,value,dim1,dim2,dim3,dim4,dim5,dim6,0),0,len)
    call checkmds(status,"error writing "//name)
    return
# endif
  end subroutine mds_w_dcmplx_6