Changeset 38d77eb for contacts.f
- Timestamp:
- 11/19/09 11:29:48 (14 years ago)
- Branches:
- master
- Children:
- 7137e5d
- Parents:
- 32289cd
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
contacts.f
r32289cd r38d77eb 161 161 do nr_j=nr_i+3,irsml2(nmol) ! Over res. j 162 162 163 ! write (*,'(2i3)'),nr_i,nr_j163 ! write (logString, '(2i3)'),nr_i,nr_j 164 164 165 165 ic=0 … … 173 173 if(sqrt(rij2).lt.rcut) ic=1 174 174 175 ! write (*,'(2i3)'),nr_i,nr_j175 ! write (logString, '(2i3)'),nr_i,nr_j 176 176 177 177 ijcont(nr_i,nr_j)=ic
Note:
See TracChangeset
for help on using the changeset viewer.