231017.181746.HKT minor revision

zequipe · Oct 17, 2023 · 29d048b · 29d048b
1 parent aab38e1
commit 29d048b
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 3 deletions.
diff --git a/fortran/cobyla/cobylb.f90 b/fortran/cobyla/cobylb.f90
@@ -17,7 +17,7 @@ module cobylb_mod
 !
 ! Started: July 2021
 !
-! Last Modified: Sunday, October 08, 2023 PM06:32:38
+! Last Modified: Monday, October 16, 2023 AM01:15:52
 !--------------------------------------------------------------------------------------------------!
 
 implicit none

diff --git a/fortran/lincoa/lincob.f90 b/fortran/lincoa/lincob.f90
@@ -15,7 +15,7 @@ module lincob_mod
 !
 ! Started: February 2022
 !
-! Last Modified: Friday, August 04, 2023 PM09:53:21
+! Last Modified: Tuesday, October 17, 2023 PM02:52:22
 !--------------------------------------------------------------------------------------------------!
 
 implicit none
@@ -176,14 +176,15 @@ subroutine lincob(calfun, iprint, maxfilt, maxfun, npt, Aeq, Aineq, amat, beq, b
 real(RP) :: cfilt(maxfilt)
 real(RP) :: constr(count(xl > -REALMAX) + count(xu < REALMAX) + 2 * size(beq) + size(bineq))
 real(RP) :: constr_leq(size(beq))
+real(RP) :: cval(npt)
 real(RP) :: d(size(x))
 real(RP) :: delbar
 real(RP) :: delta
 real(RP) :: distsq(npt)
 real(RP) :: dnorm
 real(RP) :: dnorm_rec(4)  ! Powell's implementation uses 5
 real(RP) :: ffilt(maxfilt)
-real(RP) :: fval(npt), cval(npt)
+real(RP) :: fval(npt)
 real(RP) :: galt(size(x))
 real(RP) :: gamma3
 real(RP) :: gopt(size(x))