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
@@ -3,7 +3,7 @@
      implicit none
      integer ndim
      double precision xbest(1:ndim),fbest,
-     &   bmin(1:ndim),bmax(1:ndim),xtol
+     &   bmin(1:ndim),bmax(1:ndim),xtol,f1dim
      double precision fvalpre,dmax,xpre(1:ndim),ftol,direction(ndim)
      integer i,n
      logical resetran2
@@ -62,7 +62,7 @@
 !       =1 convergence criterion reached (minimum found)
 !        
      integer ndim
-      double precision xbest(1:ndim),fbest,
+      double precision xbest(1:ndim),fbest,f1dim,
     &   bmin(1:ndim),bmax(1:ndim),xtol,dx1,dx2
      external funkmin,f1dim
 !------------------------------- Locals -----------------------------------------------------------
@@ -71,10 +71,10 @@
     &  xvec(1:ndim),xcent(1:ndim),fcent,dif,shrink,
     &  direction(ndim),dmax,fcent0,ran2_reset,ran2
      integer i,j,k,iter
-      parameter(shrink=0.618d0)      
+      parameter(shrink=0.95d0)      
 !
      diftol=xtol
-      delta=0.618d0
+      delta=0.95d0
      do i=1,ndim
        xcent(i)=xbest(i)
      enddo