Changeset cb47b9c for setvar.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

  • setvar.f

    rffd2d46 rcb47b9c  
    2323
    2424      include 'INCL.H'
     25Cf2py intent(in) nml, vlvrx
     26      integer nml
     27      double precision vlvrx
     28      dimension vlvrx(mxvr)
     29     
     30!     functions
     31      double precision difang
    2532
    26       dimension vlvrx(mxvr)
     33      integer i, iat,ity, iow, j, jat, i1vr
     34      double precision ba, to, tsh
     35     
    2736
    2837      i1vr=ivrml1(nml)
Note: See TracChangeset for help on using the changeset viewer.