destroy_nd_to_2d_mapping Subroutine

public subroutine destroy_nd_to_2d_mapping(map)

Arguments

Type IntentOptional Attributes Name
type(nd_to_2d_mapping), intent(inout) :: map

Contents

Source Code

destroy_nd_to_2d_mapping

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