Diff of /trunk/src/kmc.f90

Parent Directory | Revision Log | Patch

	revision 327, Sun Mar 17 09:19:13 2019 UTC	revision 328, Mon Mar 18 17:33:38 2019 UTC
#	Line 70	Line 70
70	!Test of equilibrium	!Test of equilibrium
71	eq: do j=1,nesp	eq: do j=1,nesp
72	sigold(j)=sig(j)	sigold(j)=sig(j)
73	if(p(j)>pold(j)) sig(j)=p(j)	if(p(j)>pold(j)) sig(j)=1
74	if(p(j)<pold(j)) sig(j)=-p(j)	if(p(j)<pold(j)) sig(j)=-1
75	if(sig(j)*sigold(j)<0) then	if(sig(j)*sigold(j)<0) then
76	rep(j)=rep(j)+1	rep(j)=rep(j)+1
77	if(rep(j)==1000) exit inner	if(rep(j)==1000) exit inner

---

Colored Diff Long Colored Diff Unidiff Context Diff Side by Side

Legend: Removed from v.327   changed lines   Added in v.328

---

root@forge.cesga.es	ViewVC Help
Powered by ViewVC 1.0.0