destroy_nd_to_2d_mapping Subroutine

public subroutine destroy_nd_to_2d_mapping(map)

Arguments

TypeIntentOptionalAttributesName
type(nd_to_2d_mapping), intent(inout) :: map

Contents


Source Code

   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