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