Changeset 6650a56 for minqsn.f

Timestamp:

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

Author:

baerbaer <baerbaer@…>

Branches:

master

Children:

32289cd

Parents:

30644a9

Message:

Explicitly declare variables.

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

File:

• minqsn.f (modified) (3 diffs)

minqsn.f

@@ -56 +56 @@
 ! .............................................................
 
-      implicit real*8 (a-h,o-z)
-      implicit integer*4 (i-n)
+      implicit none
+
+      double precision eps1, eps2, tiny, zero, dff, c, g, scal, h, fa, f
+      double precision xa, x, ga, d, w, dga, di, fmin, gmin, stmin
+      double precision stepub, steplb, acur, step, xb, fb, gb, gl1, gl2
+      double precision si, dgb, sig
+
+      integer izero, ione, mxn, nfun, itr, i, n, n1, i1, j, isfv, maxfun
+      integer ir
+
 
       parameter ( eps1=0.1d0,
@@ -249 +257 @@
 ! CALLS: none
 !
-      implicit real*8 (a-h,o-z)
-      implicit integer*4 (i-n)
+      implicit none
+
+      double precision sig, ti, w, z, a, v, eps, tim, al, r, b, gm, y
+
+      integer mxn, n, ir, np, ij, mk, i, j, mm
 
       dimension a(mxn*(mxn+1)/2),z(mxn),w(mxn)
@@ -373 +384 @@
 ! CALLS: none
 !
-      implicit real*8 (a-h,o-z)
-      implicit integer*4 (i-n)
+      implicit none
+      double precision w, z, v, a
+
+      integer mxn, ir, n, i, ij, i1, j, np, nip, ii, ip
 
       dimension a(mxn*(mxn+1)/2),z(mxn),w(mxn)