Changeset 32289cd for rgyr.f


Ignore:
Timestamp:
11/19/09 11:29:41 (14 years ago)
Author:
baerbaer <baerbaer@…>
Branches:
master
Children:
38d77eb
Parents:
6650a56
Message:

Explicitly declare variables.

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

File:
1 edited

Legend:

Unmodified
Added
Removed

  • rgyr.f

    r6650a56 r32289cd  
    2525!
    2626      include 'INCL.H'
     27     
     28      double precision dn, dnp, dnh, dx, dxp, dy, dyp, dyh, dz, dzp, dzh
     29      double precision d2, d2p, d2h, xi, yi, zi, dxh, rg2, rg2p, rg2h
     30      double precision rgy, ee
     31
     32      integer nml, nml1, nml2, nat, i, i1, i2
     33
    2734!f2py intent(in) nml
    2835!f2py intent(out) rgy
Note: See TracChangeset for help on using the changeset viewer.