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
@@ -4,7 +4,7 @@
      implicit none
      INTEGER iter,n,np,NMAX,ITMAX
      double precision fret,ftol,p(np),xi(np,np),TINY,
-     &        pmin(np),pmax(np)
+     &        pmin(np),pmax(np),f1dim
      PARAMETER (NMAX=1000,TINY=1.0d-25)
 CU    USES funkmin,linmin
      INTEGER i,ibig,j
@@ -57,7 +57,7 @@ C  (C) Copr. 1986-92 Numerical Recipes Software v%1jw#<0(9p#3.
      SUBROUTINE cplinmin(p,pmin,pmax,xi,n,f1dim,fret)
      implicit none
      INTEGER n
-      double precision fret,p(n),xi(n),TOL,pmin(n),pmax(n)
+      double precision fret,p(n),xi(n),TOL,pmin(n),pmax(n),f1dim
      PARAMETER (TOL=1.0d-8)
 CU    USES brent,f1dim,mnbrak
      INTEGER j,k,ierr