Changeset 2019dff for contacts.f


Ignore:
Timestamp:
11/19/09 11:29:26 (15 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:
1 edited

Legend:

Unmodified
Added
Removed

  • contacts.f

    r2d5d396 r2019dff  
    2626!f2py integer, intent(out) :: ncn, nham2
    2727!f2py double precistion, intent(out) :: dham
     28      integer ncn
     29
     30      integer nham2
     31
     32      double precision dham
     33
     34      integer i, j, nham, ncode, nresi
    2835
    2936      call c_cont(1,ncode)
    … …  
    7380
    7481      include 'INCL.H'
     82      integer nmol
     83
     84      integer ncode, ia, n_res
    7585             
    7686      do n_res=irsml1(nmol),irsml2(nmol) ! Over res.
    … …  
    128138
    129139       include 'INCL.H'
     140      integer nmol
     141
     142      double precision rcut, rij2
     143
     144      integer ncode, ic, ialf, jalf, nr_j, nr_i
    130145
    131146       rcut=8.5   ! Domany
Note: See TracChangeset for help on using the changeset viewer.