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)
      parameter(ftol=1.0d-7)
      integer i,n
@@ -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 -----------------------------------------------------------