if (WhatsUp.eq.0 .and. Kwita.eq.0) then
call metropolis(nvar,varia,varold,etot,eold,accepted,
if (WhatsUp.eq.0 .and. Kwita.eq.0) then
call metropolis(nvar,varia,varold,etot,eold,accepted,
endif
write (iout,*) 'My_Conf=',My_Conf,' EneLower=',EneLower
if (accepted) then
endif
write (iout,*) 'My_Conf=',My_Conf,' EneLower=',EneLower
if (accepted) then