- Timestamp:
- 11/19/09 11:29:48 (14 years ago)
- Branches:
- master
- Children:
- 7137e5d
- Parents:
- 32289cd
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
bgs.f
r32289cd r38d77eb 327 327 ! enw=energy() 328 328 ! if (abs(enw-eol1).gt.0.000001) then 329 ! write (*,*) 'rejected bgs move: energy change :',eol1,enw329 ! write (logString, *) 'rejected bgs move: energy change :',eol1,enw 330 330 ! endif 331 ! write (*,*) 'rejected bgs move: ',eol1,enw,wfw,wbw,rd331 ! write (logString, *) 'rejected bgs move: ',eol1,enw,wfw,wbw,rd 332 332 bgs=0 333 333 endif
Note:
See TracChangeset
for help on using the changeset viewer.