240421.152702.HKT revise comments in cobyla/geometry/setdrop_tr

primapack · Apr 21, 2024 · 9c44db0 · 9c44db0
1 parent c67053c
commit 9c44db0
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/fortran/cobyla/geometry.f90 b/fortran/cobyla/geometry.f90
@@ -8,7 +8,7 @@ module geometry_cobyla_mod
 !
 ! Started: July 2021
 !
-! Last Modified: Sunday, April 21, 2024 PM03:16:37
+! Last Modified: Sunday, April 21, 2024 PM03:25:55
 !--------------------------------------------------------------------------------------------------!
 
 implicit none
@@ -168,6 +168,7 @@ function setdrop_tr(ximproved, d, delta, rho, sim, simi) result(jdrop)
     score(n + 1) = -ONE
 end if
 
+! SCORE(J) is NaN implies SIMID(J) is NaN, but we want ABS(SIMID) to be big. So we exclude such J.
 score(trueloc(is_nan(score))) = -ONE
 
 jdrop = 0