Changeset 6650a56 for canon.f


Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed

  • canon.f

    r30644a9 r6650a56  
    2727!     external rand
    2828      external can_weight
     29     
     30      double precision dv, grnd, vr, addang, eol, energy, acz, rgy, ee
     31
     32      integer i, iv, nsw, nhel, mhel, nbet, mbet, mhb
     33
    2934     
    3035      logical lrand
    … …  
    132137! CALLS: none
    133138!
     139      implicit none
     140      double precision beta, x
    134141
    135       implicit real*8 (a-h,o-z)
    136142
    137143      common/bet/beta
Note: See TracChangeset for help on using the changeset viewer.