Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(nd_to_2d_mapping), | intent(inout) | :: | map |
SUBROUTINE destroy_nd_to_2d_mapping(map)
TYPE(nd_to_2d_mapping), INTENT(INOUT) :: map
DEALLOCATE (map%dims1_2d)
DEALLOCATE (map%dims2_2d)
DEALLOCATE (map%map1_2d)
DEALLOCATE (map%map2_2d)
DEALLOCATE (map%map_nd)
DEALLOCATE (map%dims_nd)
END SUBROUTINE destroy_nd_to_2d_mapping