prper integer variable types used throughout

ralna · Oct 27, 2024 · 6e6473f · 6e6473f
1 parent c02a816
commit 6e6473f
Show file tree

Hide file tree

Showing 25 changed files with 50 additions and 50 deletions.
diff --git a/src/tools/ccfg.F90 b/src/tools/ccfg.F90
@@ -1,4 +1,4 @@
-! THIS VERSION: CUTEST 2.3 - 2024-10-23 AT 08:40 GMT.
+! THIS VERSION: CUTEST 2.3 - 2024-10-27 AT 08:40 GMT.
 
 #include "cutest_modules.h"
 #include "cutest_routines.h"
@@ -50,7 +50,7 @@ SUBROUTINE CUTEST_ccfg_c_r( status, n, m, X, C, jtrans,                  &
 
 !  local variables
 
-      INTEGER :: i, j, l
+      INTEGER ( KIND = ip_ ) :: i, j, l
       LOGICAL :: jtrans_fortran, grad_fortran
 
       grad_fortran = grad

diff --git a/src/tools/ccifg.F90 b/src/tools/ccifg.F90
@@ -1,4 +1,4 @@
-! THIS VERSION: CUTEST 2.3 - 2024-10-22 AT 15:30 GMT.
+! THIS VERSION: CUTEST 2.3 - 2024-10-27 AT 09:30 GMT.
 
 #include "cutest_modules.h"
 #include "cutest_routines.h"
@@ -36,7 +36,7 @@ SUBROUTINE CUTEST_ccifg_c_r( status, n, icon, X, ci, GCI, grad )
 
 !  local variables
 
-      INTEGER :: icon_fortran
+      INTEGER ( KIND = ip_ ) :: icon_fortran
       LOGICAL :: grad_fortran
 
       icon_fortran = icon + 1

diff --git a/src/tools/ccifsg.F90 b/src/tools/ccifsg.F90
@@ -1,4 +1,4 @@
-! THIS VERSION: CUTEST 2.3 - 2024-10-24 AT 07:50 GMT.
+! THIS VERSION: CUTEST 2.3 - 2024-10-27 AT 09:20 GMT.
 
 #include "cutest_modules.h"
 #include "cutest_routines.h"
@@ -40,7 +40,7 @@ SUBROUTINE CUTEST_ccifsg_c_r( status, n, icon, X, ci,                    &
 
 !  local variables
 
-      INTEGER :: icon_fortran
+      INTEGER ( KIND = ip_ ) :: icon_fortran
       LOGICAL :: grad_fortran
 
       icon_fortran = icon + 1

diff --git a/src/tools/cdh.F90 b/src/tools/cdh.F90
@@ -1,4 +1,4 @@
-! THIS VERSION: CUTEST 2.3 - 2024-10-20 AT 16:10 GMT.
+! THIS VERSION: CUTEST 2.3 - 2024-10-27 AT 09:10 GMT.
 
 #include "cutest_modules.h"
 #include "cutest_routines.h"
@@ -35,7 +35,7 @@ SUBROUTINE CUTEST_cdh_c_r( status, n, m, X, Y, lh1, H_val )
 
 !  local variables
 
-      INTEGER :: i, j, l
+      INTEGER ( KIND = ip_ ) :: i, j, l
 
 !  create 2D Hessian storage if needed
 

diff --git a/src/tools/cdhc.F90 b/src/tools/cdhc.F90
@@ -1,4 +1,4 @@
-! THIS VERSION: CUTEST 2.3 - 2024-10-20 AT 16:10 GMT.
+! THIS VERSION: CUTEST 2.3 - 2024-10-27 AT 09:20 GMT.
 
 #include "cutest_modules.h"
 #include "cutest_routines.h"
@@ -35,7 +35,7 @@ SUBROUTINE CUTEST_cdhc_c_r( status, n, m, X, Y, lh1, H_val )
 
 !  local variables
 
-      INTEGER :: i, j, l
+      INTEGER ( KIND = ip_ ) :: i, j, l
 
 !  create 2D Hessian storage if needed
 

diff --git a/src/tools/cdhj.F90 b/src/tools/cdhj.F90
@@ -1,4 +1,4 @@
-! THIS VERSION: CUTEST 2.3 - 2024-10-21 AT 09:40 GMT.
+! THIS VERSION: CUTEST 2.3 - 2024-10-27 AT 09:40 GMT.
 
 #include "cutest_modules.h"
 #include "cutest_routines.h"
@@ -36,7 +36,7 @@ SUBROUTINE CUTEST_cdhj_c_r( status, n, m, X, y0, Y, lh1, H_val )
 
 !  local variables
 
-      INTEGER :: i, j, l
+      INTEGER ( KIND = ip_ ) :: i, j, l
 
 !  create 2D Hessian storage if needed
 

diff --git a/src/tools/cgr.F90 b/src/tools/cgr.F90
@@ -1,4 +1,4 @@
-! THIS VERSION: CUTEST 2.3 - 2024-10-20 AT 14:00 GMT.
+! THIS VERSION: CUTEST 2.3 - 2024-10-27 AT 09:30 GMT.
 
 #include "cutest_modules.h"
 #include "cutest_routines.h"
@@ -53,7 +53,7 @@ SUBROUTINE CUTEST_cgr_c_r( status, n, m, X, Y, grlagf, G, jtrans,        &
 
 !  local variables
 
-      INTEGER :: i, j, l
+      INTEGER ( KIND = ip_ ) :: i, j, l
       LOGICAL :: grlagf_fortran, jtrans_fortran
 
 !  create 2D Jacobiab storage if needed

diff --git a/src/tools/cgrdh.F90 b/src/tools/cgrdh.F90
@@ -1,4 +1,4 @@
-! THIS VERSION: CUTEST 2.3 - 2024-10-21 AT 09:50 GMT.
+! THIS VERSION: CUTEST 2.3 - 2024-10-27 AT 09:20 GMT.
 
 #include "cutest_modules.h"
 #include "cutest_routines.h"
@@ -61,7 +61,7 @@ SUBROUTINE CUTEST_cgrdh_c_r( status, n, m, X, Y, grlagf, G, jtrans,      &
 
 !  local variables
 
-      INTEGER :: i, j, l
+      INTEGER ( KIND = ip_ ) :: i, j, l
       LOGICAL :: grlagf_fortran, jtrans_fortran
 
 !  create 2D Jacobian and Hessian storage if needed

diff --git a/src/tools/cidh.F90 b/src/tools/cidh.F90
@@ -1,4 +1,4 @@
-! THIS VERSION: CUTEST 2.3 - 2024-10-21 AT 14:00 GMT.
+! THIS VERSION: CUTEST 2.3 - 2024-10-27 AT 09:30 GMT.
 
 #include "cutest_modules.h"
 #include "cutest_routines.h"
@@ -36,7 +36,7 @@ SUBROUTINE CUTEST_cidh_c_r( status, n, X, iprob, lh1, H )
 
 !  local variables
 
-      INTEGER :: i, j, l, iprob_fortran
+      INTEGER ( KIND = ip_ ) :: i, j, l, iprob_fortran
 
 !  create 2D Hessian storage if needed
 

diff --git a/src/tools/cifn.F90 b/src/tools/cifn.F90
@@ -1,4 +1,4 @@
-! THIS VERSION: CUTEST 2.3 - 2024-10-22 AT 11:50 GMT.
+! THIS VERSION: CUTEST 2.3 - 2024-10-27 AT 08:30 GMT.
 
 #include "cutest_modules.h"
 #include "cutest_routines.h"
@@ -30,7 +30,7 @@ SUBROUTINE CUTEST_cifn_c_r( status, n, iprob, X, fn )
 
 !  local variables
 
-      INTEGER :: iprob_fortran
+      INTEGER ( KIND = ip_ ) :: iprob_fortran
 
       iprob_fortran = iprob + 1
       CALL CUTEST_cifn_threadsafe_r( CUTEST_data_global,                       &

diff --git a/src/tools/cigr.F90 b/src/tools/cigr.F90
@@ -1,4 +1,4 @@
-! THIS VERSION: CUTEST 2.3 - 2024-10-22 AT 12:00 GMT.
+! THIS VERSION: CUTEST 2.3 - 2024-10-27 AT 08:30 GMT.
 
 #include "cutest_modules.h"
 #include "cutest_routines.h"
@@ -32,7 +32,7 @@ SUBROUTINE CUTEST_cigr_c_r( status, n, iprob, X, GR )
 !  calculations for a sparse gradient vector.)
 
 !  -------------------------------------------------------------------
-      INTEGER :: iprob_fortran
+      INTEGER ( KIND = ip_ ) :: iprob_fortran
 
       iprob_fortran = iprob + 1
       CALL CUTEST_cigr_threadsafe_r( CUTEST_data_global,                       &

diff --git a/src/tools/cisgr.F90 b/src/tools/cisgr.F90
@@ -1,4 +1,4 @@
-! THIS VERSION: CUTEST 2.3 - 2024-05-01 AT 15:00 GMT.
+! THIS VERSION: CUTEST 2.3 - 2024-10-27 AT 08:30 GMT.
 
 #include "cutest_modules.h"
 #include "cutest_routines.h"
@@ -38,7 +38,7 @@ SUBROUTINE CUTEST_cisgr_c_r( status, n, iprob, X, nnzgr, lgr, GR_val,    &
 
 !  local variables
 
-      INTEGER :: iprob_fortran
+      INTEGER ( KIND = ip_ ) :: iprob_fortran
 
       iprob_fortran = iprob + 1
       CALL CUTEST_cisgr_threadsafe_r( CUTEST_data_global,                      &

diff --git a/src/tools/cisgrp.F90 b/src/tools/cisgrp.F90
@@ -1,4 +1,4 @@
-! THIS VERSION: CUTEST 2.3 - 2024-10-22 AT 15:00 GMT.
+! THIS VERSION: CUTEST 2.3 - 2024-10-27 AT 08:30 GMT.
 
 #include "cutest_modules.h"
 #include "cutest_routines.h"
@@ -31,7 +31,7 @@ SUBROUTINE CUTEST_cisgrp_c_r( status, n, iprob, nnzgr, lgr, GR_var )
 
 !  local variables
 
-      INTEGER :: iprob_fortran
+      INTEGER ( KIND = ip_ ) :: iprob_fortran
 
       iprob_fortran = iprob + 1
       CALL CUTEST_cisgrp_threadsafe_r( CUTEST_data_global,                     &

diff --git a/src/tools/cish.F90 b/src/tools/cish.F90
@@ -1,4 +1,4 @@
-! THIS VERSION: CUTEST 2.3 - 2024-10-15 AT 14:40 GMT.
+! THIS VERSION: CUTEST 2.3 - 2027-10-27 AT 08:40 GMT.
 
 #include "cutest_modules.h"
 #include "cutest_routines.h"
@@ -37,7 +37,7 @@ SUBROUTINE CUTEST_cish_c_r( status, n, X, iprob, nnzh, lh,               &
 
 !  local variables
 
-      INTEGER :: iprob_fortran
+      INTEGER ( KIND = ip_ ) :: iprob_fortran
 
       iprob_fortran = iprob + 1
       CALL CUTEST_cish_threadsafe_r( CUTEST_data_global,                       &

diff --git a/src/tools/classification.F90 b/src/tools/classification.F90
@@ -1,4 +1,4 @@
-! THIS VERSION: CUTEST 2.2 - 2024-09-28 AT 13:00 GMT.
+! THIS VERSION: CUTEST 2.3 - 2024-10-27 AT 09:20 GMT.
 
 #include "cutest_modules.h"
 #include "cutest_routines.h"
@@ -24,7 +24,7 @@ SUBROUTINE CUTEST_Cint_classification_r( status, input, classification )
 
 !  local variables
 
-      INTEGER :: i, l
+      INTEGER ( KIND = ip_ ) :: i, l
       CHARACTER ( LEN = 30 ) :: classification_fortran
 
       CALL CUTEST_classification_r( status, input, classification_fortran )

diff --git a/src/tools/cnames.F90 b/src/tools/cnames.F90
@@ -1,4 +1,4 @@
-! THIS VERSION: CUTEST 2.2 - 2024-09-28 AT 13:00 GMT.
+! THIS VERSION: CUTEST 2.3 - 2024-10-27 AT 09:30 GMT.
 
 #include "cutest_modules.h"
 #include "cutest_routines.h"
@@ -26,7 +26,7 @@ SUBROUTINE CUTEST_Cint_cnames_r( status, n, m, pname, VNAME, CNAME )
 
 !  local variables
 
-      INTEGER :: i, j, l
+      INTEGER ( KIND = ip_ ) :: i, j, l
       CHARACTER ( LEN = 10 ) :: pname_fortran
       CHARACTER ( LEN = 10 ), DIMENSION( n ) :: VNAME_fortran
       CHARACTER ( LEN = 10 ), DIMENSION( m ) :: CNAME_fortran

diff --git a/src/tools/connames.F90 b/src/tools/connames.F90
@@ -1,4 +1,4 @@
-! THIS VERSION: CUTEST 2.2 - 2024-09-29 AT 10:30 GMT.
+! THIS VERSION: CUTEST 2.3 - 2024-10-27 AT 09:30 GMT.
 
 #include "cutest_modules.h"
 #include "cutest_routines.h"
@@ -24,7 +24,7 @@ SUBROUTINE CUTEST_Cint_connames_r( status, m, CNAME )
 
 !  local variables
 
-      INTEGER :: i, j, l
+      INTEGER ( KIND = ip_ ) :: i, j, l
       CHARACTER ( LEN = 10 ), DIMENSION( m ) :: CNAME_fortran
 
       CALL CUTEST_connames_r( status, m, CNAME_fortran )

diff --git a/src/tools/fortran_ops.F90 b/src/tools/fortran_ops.F90
@@ -1,4 +1,4 @@
-! THIS VERSION: CUTEST 2.2 - 2024-08-20 AT 07:30 GMT.
+! THIS VERSION: CUTEST 2.3 - 2024-10-27 AT 09:30 GMT.
 
 #include "cutest_modules.h"
 #include "cutest_routines.h"
@@ -33,7 +33,7 @@ SUBROUTINE FORTRAN_open_r( funit, cname, status )
 
 !  local variables
 
-      INTEGER :: i     
+      INTEGER ( KIND = ip_ ) :: i     
       INTEGER, PARAMETER :: len_fname = 256
       CHARACTER ( LEN = len_fname ) :: fname = REPEAT( ' ', len_fname )
 

diff --git a/src/tools/pname.F90 b/src/tools/pname.F90
@@ -1,4 +1,4 @@
-! THIS VERSION: CUTEST 2.2 - 2024-09-29 AT 10:30 GMT.
+! THIS VERSION: CUTEST 2.3 - 2024-10-27 AT 09:30 GMT.
 
 #include "cutest_modules.h"
 #include "cutest_routines.h"
@@ -24,7 +24,7 @@ SUBROUTINE CUTEST_Cint_pname_r( status, input, pname )
 
 !  local variables
 
-      INTEGER :: i, l
+      INTEGER ( KIND = ip_ ) :: i, l
       CHARACTER ( LEN = 10 ) :: pname_fortran
 
       CALL CUTEST_pname_r( status, input, pname_fortran )

diff --git a/src/tools/probname.F90 b/src/tools/probname.F90
@@ -1,4 +1,4 @@
-! THIS VERSION: CUTEST 2.2 - 2024-09-29 AT 10:30 GMT.
+! THIS VERSION: CUTEST 2.3 - 2024-10-27 AT 09:30 GMT.
 
 #include "cutest_modules.h"
 #include "cutest_routines.h"
@@ -23,7 +23,7 @@ SUBROUTINE CUTEST_Cint_probname_r( status, pname )
 
 !  local variables
 
-      INTEGER :: i, l
+      INTEGER ( KIND = ip_ ) :: i, l
       CHARACTER ( LEN = 10 ) :: pname_fortran
 
       CALL CUTEST_probname_r( status, pname_fortran )

diff --git a/src/tools/ubandh.F90 b/src/tools/ubandh.F90
@@ -1,4 +1,4 @@
-! THIS VERSION: CUTEST 2.3 - 2024-10-24 AT 07:50 GMT.
+! THIS VERSION: CUTEST 2.3 - 2024-10-27 AT 09:50 GMT.
 
 #include "cutest_modules.h"
 #include "cutest_routines.h"
@@ -38,7 +38,7 @@ SUBROUTINE CUTEST_ubandh_c_r( status, n, X, semibandwidth, H_band,       &
 
 !  local variables
 
-      INTEGER :: i, j, l
+      INTEGER ( KIND = ip_ ) :: i, j, l
 
 !  create 2D band storage if needed
 

diff --git a/src/tools/udh.F90 b/src/tools/udh.F90
@@ -1,4 +1,4 @@
-! THIS VERSION: CUTEST 2.3 - 2024-10-20 AT 13:10 GMT.
+! THIS VERSION: CUTEST 2.3 - 2024-10-27 AT 09:20 GMT.
 
 #include "cutest_modules.h"
 #include "cutest_routines.h"
@@ -24,7 +24,7 @@ SUBROUTINE CUTEST_udh_c_r( status, n, X, lh1, H )
 
 !  local variables
 
-      INTEGER :: i, j, l
+      INTEGER ( KIND = ip_ ) :: i, j, l
 
 !  create 2D Hessian storage if needed
 

diff --git a/src/tools/ugrdh.F90 b/src/tools/ugrdh.F90
@@ -1,4 +1,4 @@
-! THIS VERSION: CUTEST 2.3 - 2024-10-20 AT 16:00 GMT.
+! THIS VERSION: CUTEST 2.3 - 2024-10-27 AT 09:20 GMT.
 
 #include "cutest_modules.h"
 #include "cutest_routines.h"
@@ -30,7 +30,7 @@ SUBROUTINE CUTEST_ugrdh_c_r( status, n, X, G, lh1, H )
 
 !  local variables
 
-      INTEGER :: i, j, l
+      INTEGER ( KIND = ip_ ) :: i, j, l
 
 !  create 2D Hessian storage if needed
 

diff --git a/src/tools/unames.F90 b/src/tools/unames.F90
@@ -1,4 +1,4 @@
-! THIS VERSION: CUTEST 2.2 - 2024-09-29 AT 10:00 GMT.
+! THIS VERSION: CUTEST 2.2 - 2024-10-27 AT 09:20 GMT.
 
 #include "cutest_modules.h"
 #include "cutest_routines.h"
@@ -25,7 +25,7 @@ SUBROUTINE CUTEST_Cint_unames_r( status, n, pname, VNAME )
 
 !  local variables
 
-      INTEGER :: i, j, l
+      INTEGER ( KIND = ip_ ) :: i, j, l
       CHARACTER ( LEN = 10 ) :: pname_fortran
       CHARACTER ( LEN = 10 ), DIMENSION( n ) :: VNAME_fortran
 

diff --git a/src/tools/varnames.F90 b/src/tools/varnames.F90
@@ -1,4 +1,4 @@
-! THIS VERSION: CUTEST 2.2 - 2024-09-29 AT 11:00 GMT.
+! THIS VERSION: CUTEST 2.3 - 2024-10-27 AT 09:30 GMT.
 
 #include "cutest_modules.h"
 #include "cutest_routines.h"
@@ -24,7 +24,7 @@ SUBROUTINE CUTEST_Cint_varnames_r( status, n, VNAME )
 
 !  local variables
 
-      INTEGER :: i, j, l
+      INTEGER ( KIND = ip_ ) :: i, j, l
       CHARACTER ( LEN = 10 ), DIMENSION( n ) :: VNAME_fortran
 
       CALL CUTEST_varnames_r( status, n, VNAME_fortran )