Changeset 2019dff for minim.f

Timestamp:

11/19/09 11:29:26 (14 years ago)

Author:

baerbaer <baerbaer@…>

Branches:

master

Children:

08edfcf

Parents:

2d5d396

Message:

Explicitly declare variables.

git-svn-id: ​svn+ssh://svn.berlios.de/svnroot/repos/smmp/trunk@27 26dc1dd8-5c4e-0410-9ffe-d298b4865968

File:

• minim.f (modified) (2 diffs)

minim.f

@@ -29 +29 @@
 !f2py intent(in) maxit
 !f2py intent(in) eps
+      integer msvmx
+
+      integer imin
+
+      integer maxit
+      
+      integer nursvr
+      double precision energy, difang
+            
+      integer ngbvr, msv, i, j, mxop, n6, n3, n, n1, n2, n5, n4
+      integer ntlvr, nop, nv
+      
+      double precision eps, acc, esm, gdey2, gbpro, gdvr, gdrg2, scl
+      double precision vlvrn, w, vlvro, vr      
+      
       parameter (msvmx=mxvr*(mxvr+5)/(2*(2*mxvr+1)),   
      &            msv  = 50 )                             
@@ -250 +265 @@
 !
       include 'INCL.H'
-
+      integer ngbvr
+
+      integer nop
+
+      integer nvr1
+
+      double precision esm
+
+      double precision vlvrn
+
+      double precision gdvr, gdsmey, gdsmrg
+
+      integer i, ii, j, ntlvr, n
+      
       dimension vlvrn(mxvr),gdvr(mxvr)