shm_free_r1 Subroutine

private subroutine shm_free_r1(a)

FIXME : Add documentation

Arguments

Type	Intent	Optional	Attributes		Name
real,	intent(inout)			::	a(:)

Contents

Source Code

shm_free_r1

Source Code

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