shm_free_r3 Subroutine

private subroutine shm_free_r3(a)

FIXME : Add documentation

Arguments

Type IntentOptional Attributes Name
real, intent(inout) :: a(:,:,:)

Contents

Source Code


Source Code

  subroutine shm_free_r3(a)
    implicit none
    real, intent(inout) :: a(:,:,:) 
    call shm_free_r(a)
  end subroutine shm_free_r3