Changeset 32289cd for cnteny.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

  • cnteny.f

    r6650a56 r32289cd  
    44!
    55! Copyright 2005       Frank Eisenmenger, U.H.E. Hansmann,
    6 !                      Shura Hayryan, Chin-Ku 
     6!                      Shura Hayryan, Chin-Ku
    77! Copyright 2007       Frank Eisenmenger, U.H.E. Hansmann,
    88!                      Jan H. Meinke, Sandipan Mohanty
    … …  
    2020      include 'INCL.H'
    2121
    22       parameter (coeycn=2.d0)  ! min. cont. energy to display
     22      double precision coeycn, coey, eyatcn, cqi, xi, yi, zi, xij, yij
     23      double precision zij, rij2, rij4, rij6, rij, sr, ep, ey
     24
     25      integer ieyel, ntlvr, nml, iat1, nat, i, ifivr, i1s, io, iv, ia
     26      integer it, ic, i2s, ims, i1, i2, ii, ity, ivw, j, jj, jty, i14
     27      integer nbc, ir, nursat, idxat
     28
     29      parameter (coeycn=2.d0)  ! min. cont. energy to display
    2330
    2431      dimension eyatcn(mxat),idxat(mxat)
Note: See TracChangeset for help on using the changeset viewer.