Changeset 2019dff for contacts.f
- Timestamp:
- 11/19/09 11:29:26 (14 years ago)
- Branches:
- master
- Children:
- 08edfcf
- Parents:
- 2d5d396
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
contacts.f
r2d5d396 r2019dff 26 26 !f2py integer, intent(out) :: ncn, nham2 27 27 !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 28 35 29 36 call c_cont(1,ncode) … … 73 80 74 81 include 'INCL.H' 82 integer nmol 83 84 integer ncode, ia, n_res 75 85 76 86 do n_res=irsml1(nmol),irsml2(nmol) ! Over res. … … 128 138 129 139 include 'INCL.H' 140 integer nmol 141 142 double precision rcut, rij2 143 144 integer ncode, ic, ialf, jalf, nr_j, nr_i 130 145 131 146 rcut=8.5 ! Domany
Note:
See TracChangeset
for help on using the changeset viewer.