FIXME : Add documentation
subroutine shm_free_r2(a) implicit none real, intent(inout) :: a(:,:) call shm_free_r(a) end subroutine shm_free_r2