shm_alloc_c1 Subroutine

  subroutine shm_alloc_c1(a, lubd, tag, label, ierror)
    implicit none
    integer, intent(in) :: lubd(:) ! upper * lower bound in the following format (s1, e1, s2, e2, ...)
    complex, 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_c(ndim, lubd, a1=a, tag=tag, label=label, ierror=ierror)

  end subroutine shm_alloc_c1