Changeset 6650a56 for incl_lund.h

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:

• incl_lund.h (modified) (4 diffs)

incl_lund.h

@@ +1 @@
+      integer nhptyp, mxconr, mxcell, iN, iCa, iC, mlvr, iphi, ipsi
       parameter (nhptyp=3,mxconr=40,mxcell=125000)
       dimension iN(mxrs),iCa(mxrs),iC(mxrs),mlvr(mxvr)
@@ -13 +14 @@
       common /bgs_i/ bgsnvar,iph
       common /bgs_r/ abgs,bbgs,dph, bgsvar
+      integer ihpat, nhpat
       dimension ihpat(mxrs,6),nhpat(mxrs)
       double precision hpstrg
@@ -18 +20 @@
       
       double precision exvk,exvcut,exvcut2
+      integer matcon
       dimension matcon(-mxconr:mxconr,mxat)
 
@@ -30 +33 @@
       dimension sig2exv(mxtyat,mxtyat)
       dimension asaexv(mxtyat,mxtyat),bsaexv(mxtyat,mxtyat)
-
+      integer lcp1, lcp2, ilpst, ilpnd
       common /lundff/kbias,                                             &
      &     epshb1,epshb2,powa,powb,sighb,cthb,                          &