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