[cig-commits] r3856 -
short/3D/PyLith/branches/pylith-0.8/pylith3d/libpylith3d
willic3 at geodynamics.org
willic3 at geodynamics.org
Fri Jun 23 06:50:49 PDT 2006
Author: willic3
Date: 2006-06-23 06:50:49 -0700 (Fri, 23 Jun 2006)
New Revision: 3856
Modified:
short/3D/PyLith/branches/pylith-0.8/pylith3d/libpylith3d/formf_ss.f
Log:
Commented out some new debugging statements.
Modified: short/3D/PyLith/branches/pylith-0.8/pylith3d/libpylith3d/formf_ss.f
===================================================================
--- short/3D/PyLith/branches/pylith-0.8/pylith3d/libpylith3d/formf_ss.f 2006-06-23 12:31:23 UTC (rev 3855)
+++ short/3D/PyLith/branches/pylith-0.8/pylith3d/libpylith3d/formf_ss.f 2006-06-23 13:50:49 UTC (rev 3856)
@@ -77,6 +77,7 @@
c
integer i,ielg
double precision p(60),dl(60)
+cdebug integer idb
c
cdebug write(6,*) "Hello from formf_ss_f!"
c
@@ -103,6 +104,7 @@
call dsymv("u",nee,one,s,nee,dl,ione,zero,p,ione)
call addfor(bintern,p,lm(1,ielg),lmx(1,ielg),neq,nee)
end do
+cdebug write(6,*) "bintern:",(bintern(idb),idb=1,neq)
return
end
c
More information about the Cig-commits
mailing list