Changeset cb47b9c for dihedr.f


Ignore:
Timestamp:
11/19/09 11:29:16 (14 years ago)
Author:
baerbaer <baerbaer@…>
Branches:
master
Children:
2d5d396
Parents:
ffd2d46
Message:

Explicitly declare variables.

All variables should be declared so that we can remove the implicit statements
from the beginning of the INCL.H file.

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

File:
1 edited

Legend:

Unmodified
Added
Removed

  • dihedr.f

    rffd2d46 rcb47b9c  
    2222
    2323      include 'INCL.H'
     24     
     25      integer i1, i2, i3, i4
     26     
     27      double precision x1, y1, z1, x2, y2, z2, ux1,uy1, uz1, a, u, u1,
     28     &                 u2, ux2, uy2, uz2
    2429
    2530      x1=xat(i2)-xat(i1)
    … …  
    7782
    7883      include 'INCL.H'
     84     
     85      integer i1, i2, i3
     86     
     87      double precision h1, h2, h3, x1, x2, x3, y1, y2, y3, x, y, u, a
     88     
    7989      h1=xat(i2)
    8090      h2=yat(i2)
Note: See TracChangeset for help on using the changeset viewer.