Changeset 32289cd for mincjg.f

Timestamp:

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

Author:

baerbaer <baerbaer@…>

Branches:

master

Children:

38d77eb

Parents:

6650a56

Message:

Explicitly declare variables.

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

File:

• mincjg.f (modified) (4 diffs)

mincjg.f

@@ -4 +4 @@
 !
 ! Copyright 2003-2005  Frank Eisenmenger, U.H.E. Hansmann,
-!                      Shura Hayryan, Chin-Ku 
+!                      Shura Hayryan, Chin-Ku
 ! Copyright 2007       Frank Eisenmenger, U.H.E. Hansmann,
 !                      Jan H. Meinke, Sandipan Mohanty
@@ -40 +40 @@
 ! ....................................................................
 
-      implicit real*8 (a-h,o-z)
-      implicit integer*4 (i-n)
+      double precision amf, tol, eps, gsqrd, fmin, f, t, g, ga, d, xa, x
+      double precision gsq2, gnew, dfpr, stmin, fuit, gdit, gt, gdmi
+      double precision sbound, stepch, step, wo, sum, fch, acur, ddspln
+      double precision gspln, beta, gama, yt, dt, gamden, di
+
+      integer mxfcon, maxlin, mxn, ier, iter, iterfm, iterrs, nfun
+      integer nfopt, i, n, nfbeg, iretry, maxfun
 
       parameter (AMF = 10.d0,
@@ -102 +107 @@
 
     2 step = stmin + stepch
-      wo = 0.d0 
+      wo = 0.d0
 
       do i=1,n
@@ -182 +187 @@
 
       if ( fch .ne. 0.d0 )  ddspln = ddspln + (wo + wo) / stepch
- 
+
       if ( gdmi .eq. 0.d0 )  goto 6