Changeset 6650a56 for mulcan_par_mod.f90


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

  • mulcan_par_mod.f90

    r30644a9 r6650a56  
    4444      real*8, intent(in) :: binWidth, temp
    4545      logical,  intent(in) :: l_iter
    46 
     46     
     47      double precision :: grnd, addang, eol, energy
     48     
    4749      integer :: i,j
    4850      integer :: iv,nsw,muold
    … …  
    214216      real*8, allocatable :: xhist(:),g1(:),ent(:)
    215217      integer, allocatable :: ihist(:)
    216 
     218     
     219      double precision :: eol_old, x, grnd, addang, eol, energy, dham
     220
     221      integer :: nresi, nswm, nhy, nhx
    217222      integer :: i,j
    218223      integer :: iv,nsw,muold
Note: See TracChangeset for help on using the changeset viewer.