240119.173120.HKT fix a failure of flint -n

libprima · Jan 19, 2024 · de88213 · de88213
1 parent 45097bd
commit de88213
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/fortran/common/preproc.f90 b/fortran/common/preproc.f90
@@ -6,7 +6,7 @@ module preproc_mod
 !
 ! Started: July 2020
 !
-! Last Modified: Friday, January 19, 2024 AM01:00:09
+! Last Modified: Friday, January 19, 2024 PM05:27:55
 !--------------------------------------------------------------------------------------------------!
 
 ! N.B.:
@@ -31,7 +31,7 @@ subroutine preproc(solver, n, iprint, maxfun, maxhist, ftarget, rhobeg, rhoend,
 use, non_intrinsic :: consts_mod, only : RHOBEG_DFT, RHOEND_DFT, ETA1_DFT, ETA2_DFT, GAMMA1_DFT, GAMMA2_DFT
 use, non_intrinsic :: consts_mod, only : CTOL_DFT, CWEIGHT_DFT, FTARGET_DFT, IPRINT_DFT, MIN_MAXFILT, MAXFILT_DFT
 use, non_intrinsic :: debug_mod, only : validate, warning
-use, non_intrinsic :: infnan_mod, only : is_nan, is_inf, is_finite
+use, non_intrinsic :: infnan_mod, only : is_nan, is_finite
 use, non_intrinsic :: linalg_mod, only : trueloc, falseloc
 use, non_intrinsic :: memory_mod, only : cstyle_sizeof
 use, non_intrinsic :: string_mod, only : lower, num2str