update fortran

src/arkode/fmod/farkode_arkstep_mod.f90

@@ -24,6 +24,7 @@ module farkode_arkstep_mod
  use fsundials_nvector_mod
  use fsundials_context_mod
  use fsundials_types_mod
+ use fsundials_types_mod
  use fsundials_matrix_mod
  use fsundials_nvector_mod
  use fsundials_context_mod

src/arkode/fmod/farkode_erkstep_mod.f90

@@ -24,6 +24,7 @@ module farkode_erkstep_mod
  use fsundials_nvector_mod
  use fsundials_context_mod
  use fsundials_types_mod
+ use fsundials_types_mod
  use fsundials_matrix_mod
  use fsundials_nvector_mod
  use fsundials_context_mod

src/arkode/fmod/farkode_mod.f90

@@ -23,6 +23,7 @@ module farkode_mod
  use fsundials_nvector_mod
  use fsundials_context_mod
  use fsundials_types_mod
+ use fsundials_types_mod
  use fsundials_matrix_mod
  use fsundials_nvector_mod
  use fsundials_context_mod

src/arkode/fmod/farkode_mristep_mod.f90

@@ -24,6 +24,7 @@ module farkode_mristep_mod
  use fsundials_nvector_mod
  use fsundials_context_mod
  use fsundials_types_mod
+ use fsundials_types_mod
  use fsundials_matrix_mod
  use fsundials_nvector_mod
  use fsundials_context_mod

src/arkode/fmod/farkode_sprkstep_mod.f90

@@ -24,6 +24,7 @@ module farkode_sprkstep_mod
  use fsundials_nvector_mod
  use fsundials_context_mod
  use fsundials_types_mod
+ use fsundials_types_mod
  use fsundials_matrix_mod
  use fsundials_nvector_mod
  use fsundials_context_mod

src/cvode/fmod/fcvode_mod.f90

@@ -23,6 +23,7 @@ module fcvode_mod
  use fsundials_nvector_mod
  use fsundials_context_mod
  use fsundials_types_mod
+ use fsundials_types_mod
  use fsundials_matrix_mod
  use fsundials_nvector_mod
  use fsundials_context_mod
@@ -75,6 +76,8 @@ module fcvode_mod
  integer(C_INT), parameter, public :: CV_PROJFUNC_FAIL = -30_C_INT
  integer(C_INT), parameter, public :: CV_REPTD_PROJFUNC_ERR = -31_C_INT
  integer(C_INT), parameter, public :: CV_CONTEXT_ERR = -32_C_INT
+ integer(C_INT), parameter, public :: CV_BANDPRE_SETUP_FAIL = -33_C_INT
+ integer(C_INT), parameter, public :: CV_SUNMAT_FAIL = -34_C_INT
  integer(C_INT), parameter, public :: CV_UNRECOGNIZED_ERR = -99_C_INT
  public :: FCVodeCreate
  public :: FCVodeInit

src/cvodes/fmod/fcvodes_mod.f90

@@ -23,6 +23,7 @@ module fcvodes_mod
  use fsundials_nvector_mod
  use fsundials_context_mod
  use fsundials_types_mod
+ use fsundials_types_mod
  use fsundials_matrix_mod
  use fsundials_nvector_mod
  use fsundials_context_mod
@@ -98,6 +99,9 @@ module fcvodes_mod
  integer(C_INT), parameter, public :: CV_PROJ_MEM_NULL = -56_C_INT
  integer(C_INT), parameter, public :: CV_PROJFUNC_FAIL = -57_C_INT
  integer(C_INT), parameter, public :: CV_REPTD_PROJFUNC_ERR = -58_C_INT
+ integer(C_INT), parameter, public :: CV_BAD_TINTERP = -59_C_INT
+ integer(C_INT), parameter, public :: CV_SUNMAT_FAIL = -60_C_INT
+ integer(C_INT), parameter, public :: CV_BANDPRE_SETUP_FAIL = -61_C_INT
  integer(C_INT), parameter, public :: CV_UNRECOGNIZED_ERR = -99_C_INT
  integer(C_INT), parameter, public :: CV_NO_ADJ = -101_C_INT
  integer(C_INT), parameter, public :: CV_NO_FWD = -102_C_INT

src/ida/fmod/fida_mod.f90

@@ -24,6 +24,7 @@ module fida_mod
  use fsundials_nvector_mod
  use fsundials_context_mod
  use fsundials_types_mod
+ use fsundials_types_mod
  use fsundials_matrix_mod
  use fsundials_nvector_mod
  use fsundials_context_mod

src/idas/fmod/fidas_mod.f90

@@ -24,6 +24,7 @@ module fidas_mod
  use fsundials_nvector_mod
  use fsundials_context_mod
  use fsundials_types_mod
+ use fsundials_types_mod
  use fsundials_matrix_mod
  use fsundials_nvector_mod
  use fsundials_context_mod

src/kinsol/fmod/fkinsol_mod.f90

@@ -24,6 +24,7 @@ module fkinsol_mod
  use fsundials_nvector_mod
  use fsundials_context_mod
  use fsundials_types_mod
+ use fsundials_types_mod
  use fsundials_matrix_mod
  use fsundials_nvector_mod
  use fsundials_context_mod

src/nvector/manyvector/fmod/fnvector_manyvector_mod.f90

@@ -23,6 +23,7 @@ module fnvector_manyvector_mod
  use fsundials_nvector_mod
  use fsundials_context_mod
  use fsundials_types_mod
+ use fsundials_types_mod
  implicit none
  private
 

src/nvector/manyvector/fmod/fnvector_mpimanyvector_mod.f90

@@ -23,6 +23,7 @@ module fnvector_mpimanyvector_mod
  use fsundials_nvector_mod
  use fsundials_context_mod
  use fsundials_types_mod
+ use fsundials_types_mod
  implicit none
  private
 

src/nvector/mpiplusx/fmod/fnvector_mpiplusx_mod.f90

@@ -23,6 +23,7 @@ module fnvector_mpiplusx_mod
  use fsundials_nvector_mod
  use fsundials_context_mod
  use fsundials_types_mod
+ use fsundials_types_mod
  implicit none
  private
 

src/nvector/openmp/fmod/fnvector_openmp_mod.f90

@@ -23,6 +23,7 @@ module fnvector_openmp_mod
  use fsundials_nvector_mod
  use fsundials_context_mod
  use fsundials_types_mod
+ use fsundials_types_mod
  implicit none
  private
 

src/nvector/parallel/fmod/fnvector_parallel_mod.f90

@@ -23,6 +23,7 @@ module fnvector_parallel_mod
  use fsundials_nvector_mod
  use fsundials_context_mod
  use fsundials_types_mod
+ use fsundials_types_mod
  implicit none
  private
 

src/nvector/pthreads/fmod/fnvector_pthreads_mod.f90

@@ -23,6 +23,7 @@ module fnvector_pthreads_mod
  use fsundials_nvector_mod
  use fsundials_context_mod
  use fsundials_types_mod
+ use fsundials_types_mod
  implicit none
  private
 

src/nvector/serial/fmod/fnvector_serial_mod.f90

@@ -23,6 +23,7 @@ module fnvector_serial_mod
  use fsundials_nvector_mod
  use fsundials_context_mod
  use fsundials_types_mod
+ use fsundials_types_mod
  implicit none
  private
 

src/sundials/fmod/fsundials_errors_mod.c

@@ -12,7 +12,7 @@
  * Programmer(s): Auto-generated by swig.
  * ---------------------------------------------------------------
  * SUNDIALS Copyright Start
- * Copyright (c) 2002-2022, Lawrence Livermore National Security
+ * Copyright (c) 2002-2023, Lawrence Livermore National Security
  * and Southern Methodist University.
  * All rights reserved.
  *

src/sundials/fmod/fsundials_errors_mod.f90

@@ -8,7 +8,7 @@
 ! Programmer(s): Auto-generated by swig.
 ! ---------------------------------------------------------------
 ! SUNDIALS Copyright Start
-! Copyright (c) 2002-2022, Lawrence Livermore National Security
+! Copyright (c) 2002-2023, Lawrence Livermore National Security
 ! and Southern Methodist University.
 ! All rights reserved.
 !

src/sundials/fmod/fsundials_profiler_mod.c

@@ -277,12 +277,12 @@ SWIGEXPORT int _wrap_FSUNProfiler_GetTimerResolution(void *farg1, double *farg2)
   int fresult ;
   SUNProfiler arg1 = (SUNProfiler) 0 ;
   double *arg2 = (double *) 0 ;
-  int result;
+  SUNErrCode result;
 
   arg1 = (SUNProfiler)(farg1);
   arg2 = (double *)(farg2);
-  result = (int)SUNProfiler_GetTimerResolution(arg1,arg2);
-  fresult = (int)(result);
+  result = (SUNErrCode)SUNProfiler_GetTimerResolution(arg1,arg2);
+  fresult = (SUNErrCode)(result);
   return fresult;
 }
 
@@ -292,13 +292,13 @@ SWIGEXPORT int _wrap_FSUNProfiler_GetElapsedTime(void *farg1, SwigArrayWrapper *
   SUNProfiler arg1 = (SUNProfiler) 0 ;
   char *arg2 = (char *) 0 ;
   double *arg3 = (double *) 0 ;
-  int result;
+  SUNErrCode result;
 
   arg1 = (SUNProfiler)(farg1);
   arg2 = (char *)(farg2->data);
   arg3 = (double *)(farg3);
-  result = (int)SUNProfiler_GetElapsedTime(arg1,(char const *)arg2,arg3);
-  fresult = (int)(result);
+  result = (SUNErrCode)SUNProfiler_GetElapsedTime(arg1,(char const *)arg2,arg3);
+  fresult = (SUNErrCode)(result);
   return fresult;
 }
 

src/sunlinsol/band/fmod/fsunlinsol_band_mod.f90

@@ -23,6 +23,7 @@ module fsunlinsol_band_mod
  use fsundials_linearsolver_mod
  use fsundials_types_mod
  use fsundials_context_mod
+ use fsundials_types_mod
  use fsundials_nvector_mod
  use fsundials_context_mod
  use fsundials_types_mod

src/sunlinsol/dense/fmod/fsunlinsol_dense_mod.f90

@@ -23,6 +23,7 @@ module fsunlinsol_dense_mod
  use fsundials_linearsolver_mod
  use fsundials_types_mod
  use fsundials_context_mod
+ use fsundials_types_mod
  use fsundials_nvector_mod
  use fsundials_context_mod
  use fsundials_types_mod

src/sunlinsol/klu/fmod/fsunlinsol_klu_mod.f90

@@ -23,6 +23,7 @@ module fsunlinsol_klu_mod
  use fsundials_linearsolver_mod
  use fsundials_types_mod
  use fsundials_context_mod
+ use fsundials_types_mod
  use fsundials_nvector_mod
  use fsundials_context_mod
  use fsundials_types_mod

src/sunlinsol/lapackdense/fmod/fsunlinsol_lapackdense_mod.c

@@ -280,14 +280,14 @@ SWIGEXPORT int _wrap_FSUNLinSolSolve_LapackDense(SUNLinearSolver farg1, SUNMatri
   SUNMatrix arg2 = (SUNMatrix) 0 ;
   N_Vector arg3 = (N_Vector) 0 ;
   N_Vector arg4 = (N_Vector) 0 ;
-  realtype arg5 ;
+  sunrealtype arg5 ;
   int result;
 
   arg1 = (SUNLinearSolver)(farg1);
   arg2 = (SUNMatrix)(farg2);
   arg3 = (N_Vector)(farg3);
   arg4 = (N_Vector)(farg4);
-  arg5 = (realtype)(*farg5);
+  arg5 = (sunrealtype)(*farg5);
   result = (int)SUNLinSolSolve_LapackDense(arg1,arg2,arg3,arg4,arg5);
   fresult = (int)(result);
   return fresult;

src/sunlinsol/lapackdense/fmod/fsunlinsol_lapackdense_mod.f90

@@ -23,6 +23,7 @@ module fsunlinsol_lapackdense_mod
  use fsundials_linearsolver_mod
  use fsundials_types_mod
  use fsundials_context_mod
+ use fsundials_types_mod
  use fsundials_nvector_mod
  use fsundials_context_mod
  use fsundials_types_mod

src/sunlinsol/pcg/fmod/fsunlinsol_pcg_mod.f90

@@ -23,6 +23,7 @@ module fsunlinsol_pcg_mod
  use fsundials_linearsolver_mod
  use fsundials_types_mod
  use fsundials_context_mod
+ use fsundials_types_mod
  use fsundials_nvector_mod
  use fsundials_context_mod
  use fsundials_types_mod

src/sunlinsol/spbcgs/fmod/fsunlinsol_spbcgs_mod.f90

@@ -23,6 +23,7 @@ module fsunlinsol_spbcgs_mod
  use fsundials_linearsolver_mod
  use fsundials_types_mod
  use fsundials_context_mod
+ use fsundials_types_mod
  use fsundials_nvector_mod
  use fsundials_context_mod
  use fsundials_types_mod

src/sunlinsol/spfgmr/fmod/fsunlinsol_spfgmr_mod.f90

@@ -23,6 +23,7 @@ module fsunlinsol_spfgmr_mod
  use fsundials_linearsolver_mod
  use fsundials_types_mod
  use fsundials_context_mod
+ use fsundials_types_mod
  use fsundials_nvector_mod
  use fsundials_context_mod
  use fsundials_types_mod

src/sunlinsol/spgmr/fmod/fsunlinsol_spgmr_mod.f90

@@ -23,6 +23,7 @@ module fsunlinsol_spgmr_mod
  use fsundials_linearsolver_mod
  use fsundials_types_mod
  use fsundials_context_mod
+ use fsundials_types_mod
  use fsundials_nvector_mod
  use fsundials_context_mod
  use fsundials_types_mod

src/sunlinsol/sptfqmr/fmod/fsunlinsol_sptfqmr_mod.f90

@@ -23,6 +23,7 @@ module fsunlinsol_sptfqmr_mod
  use fsundials_linearsolver_mod
  use fsundials_types_mod
  use fsundials_context_mod
+ use fsundials_types_mod
  use fsundials_nvector_mod
  use fsundials_context_mod
  use fsundials_types_mod

src/sunmatrix/band/fmod/fsunmatrix_band_mod.f90

@@ -23,6 +23,7 @@ module fsunmatrix_band_mod
  use fsundials_matrix_mod
  use fsundials_types_mod
  use fsundials_context_mod
+ use fsundials_types_mod
  use fsundials_nvector_mod
  use fsundials_context_mod
  use fsundials_types_mod

src/sunmatrix/dense/fmod/fsunmatrix_dense_mod.f90

@@ -23,6 +23,7 @@ module fsunmatrix_dense_mod
  use fsundials_matrix_mod
  use fsundials_types_mod
  use fsundials_context_mod
+ use fsundials_types_mod
  use fsundials_nvector_mod
  use fsundials_context_mod
  use fsundials_types_mod

src/sunmatrix/sparse/fmod/fsunmatrix_sparse_mod.f90

@@ -23,6 +23,7 @@ module fsunmatrix_sparse_mod
  use fsundials_matrix_mod
  use fsundials_types_mod
  use fsundials_context_mod
+ use fsundials_types_mod
  use fsundials_nvector_mod
  use fsundials_context_mod
  use fsundials_types_mod

src/sunnonlinsol/fixedpoint/fmod/fsunnonlinsol_fixedpoint_mod.f90

@@ -23,6 +23,7 @@ module fsunnonlinsol_fixedpoint_mod
  use fsundials_nvector_mod
  use fsundials_context_mod
  use fsundials_types_mod
+ use fsundials_types_mod
  use fsundials_nonlinearsolver_mod
  use fsundials_nvector_mod
  use fsundials_context_mod

src/sunnonlinsol/newton/fmod/fsunnonlinsol_newton_mod.f90

@@ -23,6 +23,7 @@ module fsunnonlinsol_newton_mod
  use fsundials_nvector_mod
  use fsundials_context_mod
  use fsundials_types_mod
+ use fsundials_types_mod
  use fsundials_nonlinearsolver_mod
  use fsundials_nvector_mod
  use fsundials_context_mod