New changes from l2g

w
2022-09-12 16:40:28 +00:00
parent 78eb7147d0
commit d713d4f61a
110 changed files with 87672 additions and 1098 deletions
@@ -311,7 +311,7 @@
          call lnsrch(nunknowns,xpold,fsqsumold,
     &      gfuncsum,deltax,xp,fsqsumnew,stpmax,
     &      check,funcnleq1,fequ)
-          if(check.eq..true..or.check.eq..TRUE.)then
+          if(check.eqv..true..or.check.eqv..TRUE.)then
            do i=1,nunknowns
              call reinitialization(x0min(i),xpold(i),
     &         x0max(i),xp(i),6678)