Changeset 32289cd for metropolis.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:

• metropolis.f (modified) (4 diffs)

metropolis.f

@@ -20 +20 @@
       include 'INCP.H'
       include 'incl_lund.h'
+      
+      double precision eol, energy, grnd, dv, addang, enw, delta, dummy
+      double precision rd, ex, acz, eol1
+
+      integer nsw, iupstate, iupt, ivar, jv, iml, i, ncalls, nacalls
+
       external dummy
 !      common/bet/beta
@@ -178 +184 @@
       
       subroutine accanalyze(iuptype,iupdstate)
+      integer ncalls, nacalls, iupdstate, iuptype
       common/updstats/ncalls(5),nacalls(5)
       ncalls(5)=ncalls(5)+1
@@ -202 +209 @@
       integer iiii
       double precision bbbb,curprob, grnd,up2bmax,up2bmin
+
       common/updtparam/up2bmax,up2bmin
       curprob=(bbbb-up2bmin)/(up2bmax-up2bmin)
@@ -211 +219 @@
       end
       block data updtchs
+      integer ncalls, nacalls
       double precision up2bmax, up2bmin
       common/updtparam/up2bmax,up2bmin