shm_alloc_r3 Subroutine

  subroutine shm_alloc_r3(a, lubd, tag, label, ierror)
    implicit none
    integer, intent(in) :: lubd(:) ! upper * lowee bound in the following format (s1, e1, s2, e2, ...)
    real, pointer,intent(inout) :: a(:,:,:)
    integer, optional, intent(out) :: tag
    character(len=maxlen), optional, intent(in) :: label
    integer, intent(out), optional :: ierror 
    
    integer ndim
    
    ndim = size(lubd) /2
    
    call shm_alloc_r(ndim, lubd, a3=a, tag=tag, label=label, ierror=ierror)
    
  end subroutine shm_alloc_r3