Changeset cb47b9c for bldmol.f

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:

• bldmol.f (modified) (5 diffs)

bldmol.f

@@ -29 +29 @@
 
       include 'INCL.H'
-
+      ! Subroutine arguments
+      integer nml
+      
+      integer i, i1, i2, i3, ifirs, jow, j, jj
+      double precision x1, x2, x3, y1, y2, y3, z1, z2, z3
+      
+      double precision xg, zg
       dimension xg(3),zg(3)
 
@@ -97 +103 @@
  
       include 'INCL.H'
-
+! arguments      
+      integer nml, i1, i2, i3
+      
+      integer ibd, i, irs, ix
       dimension ibd(4)
       logical bb
@@ -178 +187 @@
 
       include 'INCL.H'
-
+!     arguments
+      integer i, ia
+      double precision ct, st, ca, sa, bl, x1, x2, x3, z1, z2, z3
+      double precision y1, y2, y3, h2, h3, dx, dz
+      
       ct=cstoat(i)
       st=sntoat(i)
@@ -249 +262 @@
 
       include 'INCL.H'
-
+!     arguments
+      integer i1, i2, i3
+      double precision x1, x2, x3, y1, y2, y3, z1, z2, z3, h1, h2, h3
+      double precision dz, dx
+      
       h1=xat(i2)
       h2=yat(i2)
@@ -308 +325 @@
 
       include 'INCL.H'
-      
+!     arguments
+      integer nml, i1, i2, i3
+      double precision xg, zg, ag
       dimension xg(3),zg(3),ag(3,3)
 
+      integer i
+      double precision ca, sa, cb,sb, cg, sg, d, ct2, ct3, dx, dz
+      double precision x1, x2, x3, y1, y2, y3, z1, z2, z3, st2, sa2, st3
 
       ca = cos(gbpr(4,nml))  ! alpha