FIXME : Add documentation
subroutine shm_free_c2(a) implicit none complex, intent(inout) :: a(:,:) call shm_free_c(a) end subroutine shm_free_c2