Diff of /trunk/src/kmc.f90

Parent Directory | Revision Log | Patch

	revision 307, Wed Mar 6 10:54:01 2019 UTC	revision 308, Wed Mar 6 10:54:24 2019 UTC
#	Line 68	Line 68
68	cont(mu)=cont(mu)+1	cont(mu)=cont(mu)+1
69	tcont=tcont+1	tcont=tcont+1
70	!Test of equilibrium	!Test of equilibrium
71	eq: do j=1,m	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)=p(j)
74	if(p(j)<pold(j)) sig(j)=-p(j)	if(p(j)<pold(j)) sig(j)=-p(j)

---

Colored Diff Long Colored Diff Unidiff Context Diff Side by Side

Legend: Removed from v.307   changed lines   Added in v.308

---

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