Changeset 38d77eb for partem_s.f
- Timestamp:
- 11/19/09 11:29:48 (14 years ago)
- Branches:
- master
- Children:
- 7137e5d
- Parents:
- 32289cd
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
partem_s.f
r32289cd r38d77eb 148 148 CALL METROPOLIS(energ,acz,can_weight) 149 149 end do 150 write (*,*) 'Start energy after equilibration for replica:',151 & 150 write (logString, *) 151 & 'Start energy after equilibration for replica:',k, energ 152 152 do i=1,nvr 153 153 iv = idvr(i)
Note:
See TracChangeset
for help on using the changeset viewer.