Changeset 2019dff for hbond.f

Timestamp:

11/19/09 11:29:26 (14 years ago)

Author:

baerbaer <baerbaer@…>

Branches:

master

Children:

08edfcf

Parents:

2d5d396

Message:

Explicitly declare variables.

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

File:

• hbond.f (modified) (5 diffs)

hbond.f

@@ -32 +32 @@
 
       include 'INCL.H'
+
+      integer nml
+
+      integer mhb
+
+      integer nursat
+      double precision atbase
+
+      integer ipr, i2s, i, i14, i1, i1s, i2, ia, ixhb, id, ifivr, ii, ih
+      integer ims, io, iv, ivw, ix, k, jj, j, n, na, nd, ntlvr, iat
 
 !f2py intent(out) mhb  
@@ -211 +221 @@
       
       integer*4 mhb
+      integer iml, ires, jml, jat, jres
+
+      integer ia, iat, ih
+      
       mhb = 0
       do iml = 1, ntlml
@@ -237 +251 @@
 
       include 'INCL.H'
-
+      integer i
+
+      integer j
+
+      integer ih
+
+      integer ia, ib, id, ihb
+      
+      double precision valang
+      
+      double precision cdah, cdad, adab, adha, ahab, dah, dad
+            
       ihb = ihbty(ityat(i),ityat(j))
 
@@ -291 +316 @@
 
       include 'INCL.H'
-
+      double precision cdah, cang, cahb, cdad
+      integer i
+
+      integer j
+
+      integer ih
+
+      integer ia, ib, id, ihb
+ 
+      double precision valang
+ 
       parameter (cdad=3.9d0,
      &           cdah=2.5d0,
@@ -351 +386 @@
 
       include 'INCL.H'
-
+      integer i
+
+      integer j
+
+      integer ih
+
+      double precision cahb, cdah, cang, valang
+
+      integer ia, ihb, id
       parameter (cdah=2.5d0,
      &           cang=140.d0)