Update splicer code to use C_SIZE_T for dimension array

src/umpire/interface/c_fortran/genfumpiresplicer.f

@@ -1,10 +1,4 @@
 ! Generated by genfumpiresplicer.py
-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-! Copyright (c) 2016-23, Lawrence Livermore National Security, LLC and Umpire
-! project contributors. See the COPYRIGHT file for details.
-!
-! SPDX-License-Identifier: (MIT)
-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
 
 ! splicer begin class.Allocator.type_bound_procedure_part
@@ -88,7 +82,7 @@ subroutine allocator_allocate_int_array_1d(this, array, dims)
       class(UmpireAllocator) :: this
       integer(C_INT), intent(inout), pointer, dimension(:) :: array
 
-      integer, dimension(:) :: dims
+      integer(C_SIZE_T), dimension(:) :: dims
 
       type(C_PTR) :: data_ptr
 
@@ -125,7 +119,7 @@ subroutine allocator_allocate_int_array_2d(this, array, dims)
       class(UmpireAllocator) :: this
       integer(C_INT), intent(inout), pointer, dimension(:, :) :: array
 
-      integer, dimension(:) :: dims
+      integer(C_SIZE_T), dimension(:) :: dims
 
       type(C_PTR) :: data_ptr
 
@@ -162,7 +156,7 @@ subroutine allocator_allocate_int_array_3d(this, array, dims)
       class(UmpireAllocator) :: this
       integer(C_INT), intent(inout), pointer, dimension(:, :, :) :: array
 
-      integer, dimension(:) :: dims
+      integer(C_SIZE_T), dimension(:) :: dims
 
       type(C_PTR) :: data_ptr
 
@@ -199,7 +193,7 @@ subroutine allocator_allocate_int_array_4d(this, array, dims)
       class(UmpireAllocator) :: this
       integer(C_INT), intent(inout), pointer, dimension(:, :, :, :) :: array
 
-      integer, dimension(:) :: dims
+      integer(C_SIZE_T), dimension(:) :: dims
 
       type(C_PTR) :: data_ptr
 
@@ -236,7 +230,7 @@ subroutine allocator_allocate_long_array_1d(this, array, dims)
       class(UmpireAllocator) :: this
       integer(C_LONG), intent(inout), pointer, dimension(:) :: array
 
-      integer, dimension(:) :: dims
+      integer(C_SIZE_T), dimension(:) :: dims
 
       type(C_PTR) :: data_ptr
 
@@ -273,7 +267,7 @@ subroutine allocator_allocate_long_array_2d(this, array, dims)
       class(UmpireAllocator) :: this
       integer(C_LONG), intent(inout), pointer, dimension(:, :) :: array
 
-      integer, dimension(:) :: dims
+      integer(C_SIZE_T), dimension(:) :: dims
 
       type(C_PTR) :: data_ptr
 
@@ -310,7 +304,7 @@ subroutine allocator_allocate_long_array_3d(this, array, dims)
       class(UmpireAllocator) :: this
       integer(C_LONG), intent(inout), pointer, dimension(:, :, :) :: array
 
-      integer, dimension(:) :: dims
+      integer(C_SIZE_T), dimension(:) :: dims
 
       type(C_PTR) :: data_ptr
 
@@ -347,7 +341,7 @@ subroutine allocator_allocate_long_array_4d(this, array, dims)
       class(UmpireAllocator) :: this
       integer(C_LONG), intent(inout), pointer, dimension(:, :, :, :) :: array
 
-      integer, dimension(:) :: dims
+      integer(C_SIZE_T), dimension(:) :: dims
 
       type(C_PTR) :: data_ptr
 
@@ -384,7 +378,7 @@ subroutine allocator_allocate_float_array_1d(this, array, dims)
       class(UmpireAllocator) :: this
       real(C_FLOAT), intent(inout), pointer, dimension(:) :: array
 
-      integer, dimension(:) :: dims
+      integer(C_SIZE_T), dimension(:) :: dims
 
       type(C_PTR) :: data_ptr
 
@@ -421,7 +415,7 @@ subroutine allocator_allocate_float_array_2d(this, array, dims)
       class(UmpireAllocator) :: this
       real(C_FLOAT), intent(inout), pointer, dimension(:, :) :: array
 
-      integer, dimension(:) :: dims
+      integer(C_SIZE_T), dimension(:) :: dims
 
       type(C_PTR) :: data_ptr
 
@@ -458,7 +452,7 @@ subroutine allocator_allocate_float_array_3d(this, array, dims)
       class(UmpireAllocator) :: this
       real(C_FLOAT), intent(inout), pointer, dimension(:, :, :) :: array
 
-      integer, dimension(:) :: dims
+      integer(C_SIZE_T), dimension(:) :: dims
 
       type(C_PTR) :: data_ptr
 
@@ -495,7 +489,7 @@ subroutine allocator_allocate_float_array_4d(this, array, dims)
       class(UmpireAllocator) :: this
       real(C_FLOAT), intent(inout), pointer, dimension(:, :, :, :) :: array
 
-      integer, dimension(:) :: dims
+      integer(C_SIZE_T), dimension(:) :: dims
 
       type(C_PTR) :: data_ptr
 
@@ -532,7 +526,7 @@ subroutine allocator_allocate_double_array_1d(this, array, dims)
       class(UmpireAllocator) :: this
       real(C_DOUBLE), intent(inout), pointer, dimension(:) :: array
 
-      integer, dimension(:) :: dims
+      integer(C_SIZE_T), dimension(:) :: dims
 
       type(C_PTR) :: data_ptr
 
@@ -569,7 +563,7 @@ subroutine allocator_allocate_double_array_2d(this, array, dims)
       class(UmpireAllocator) :: this
       real(C_DOUBLE), intent(inout), pointer, dimension(:, :) :: array
 
-      integer, dimension(:) :: dims
+      integer(C_SIZE_T), dimension(:) :: dims
 
       type(C_PTR) :: data_ptr
 
@@ -606,7 +600,7 @@ subroutine allocator_allocate_double_array_3d(this, array, dims)
       class(UmpireAllocator) :: this
       real(C_DOUBLE), intent(inout), pointer, dimension(:, :, :) :: array
 
-      integer, dimension(:) :: dims
+      integer(C_SIZE_T), dimension(:) :: dims
 
       type(C_PTR) :: data_ptr
 
@@ -643,7 +637,7 @@ subroutine allocator_allocate_double_array_4d(this, array, dims)
       class(UmpireAllocator) :: this
       real(C_DOUBLE), intent(inout), pointer, dimension(:, :, :, :) :: array
 
-      integer, dimension(:) :: dims
+      integer(C_SIZE_T), dimension(:) :: dims
 
       type(C_PTR) :: data_ptr
 

src/umpire/interface/c_fortran/genumpiresplicer.py

@@ -49,7 +49,7 @@ def gen_methods():
       class(UmpireAllocator) :: this
       {c_type}, intent(inout), pointer, dimension({dim_string}) :: array
 
-      integer, dimension(:) :: dims
+      integer(C_SIZE_T), dimension(:) :: dims
 
       type(C_PTR) :: data_ptr