fit intent for nc_insert_array_compound_f in nc interfaces

Unidata · Jan 24, 2024 · 2d8ba90 · 2d8ba90
1 parent ef33cb7
commit 2d8ba90
Showing 1 changed file with 6 additions and 6 deletions.
diff --git a/fortran/module_netcdf4_nc_interfaces.F90 b/fortran/module_netcdf4_nc_interfaces.F90
@@ -310,13 +310,13 @@ Function nc_insert_array_compound_f(ncid, xtype, name, offset, field_typeid, &
 
  USE ISO_C_BINDING, ONLY: C_INT, C_SIZE_T, C_CHAR
 
- Integer(C_INT),         VALUE         :: ncid, ndims
- Integer(C_INT),         VALUE         :: xtype, field_typeid  ! nc_type in C
- Integer(C_SIZE_T),      VALUE         :: offset
- Character(KIND=C_CHAR), Intent(IN)    :: name(*)
- Integer(C_INT),         Intent(INOUT) :: dim_sizes(*)
+ Integer(C_INT),         VALUE      :: ncid, ndims
+ Integer(C_INT),         VALUE      :: xtype, field_typeid  ! nc_type in C
+ Integer(C_SIZE_T),      VALUE      :: offset
+ Character(KIND=C_CHAR), Intent(IN) :: name(*)
+ Integer(C_INT),         Intent(IN) :: dim_sizes(*)
 
- Integer(C_INT)                        :: nc_insert_array_compound_f
+ Integer(C_INT)                     :: nc_insert_array_compound_f
 
  End Function nc_insert_array_compound_f
 End Interface