shm_alloc_r1 Subroutine

private subroutine shm_alloc_r1(a, lubd, tag, label, ierror)

FIXME : Add documentation

Arguments

Type IntentOptional Attributes Name
real, intent(inout), pointer :: a(:)
integer, intent(in) :: lubd(:)
integer, intent(out), optional :: tag
character(len=maxlen), intent(in), optional :: label
integer, intent(out), optional :: ierror

Contents

Source Code


Source Code

  subroutine shm_alloc_r1(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, a1=a, tag=tag, label=label, ierror=ierror)

  end subroutine shm_alloc_r1