Changeset 229cc35


Ignore:
Timestamp:
09/05/08 11:49:43 (16 years ago)
Author:
baerbaer <baerbaer@…>
Branches:
master
Children:
4e219a3
Parents:
fafe4d6
Message:

Removed unnecessary call to energy in metropolis.

git-svn-id: ​svn+ssh://svn.berlios.de/svnroot/repos/smmp/trunk@14 26dc1dd8-5c4e-0410-9ffe-d298b4865968

File:
1 edited

Legend:

Unmodified
Added
Removed

  • metropolis.f

    rfafe4d6 r229cc35  
    8181            endif
    8282         endif
    83          enw1=energy()
    84 !          if (enw1.ne.eol) then
    85 !             write (*,*) 'metropolis: variable, enw1,eol,acptd',
    86 !      #           ivar,enw1,eol,acptd,(enw1-eol),enw
    87 !          endif
    8883         acz=acz+iupstate*1.0
    8984         call accanalyze(iupt,iupstate)
Note: See TracChangeset for help on using the changeset viewer.