FIXME : Add documentation
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
real, | intent(inout), | target | :: | a(*) |
subroutine shm_free_r(a)
use, intrinsic :: iso_c_binding, only : c_loc, c_associated
implicit none
real, target, intent(inout) :: a(*)
include "shm_mpi3_free_tmpl.inc"
end subroutine shm_free_r