[cig-commits] r3856 - short/3D/PyLith/branches/pylith-0.8/pylith3d/libpylith3d

[willic3 at geodynamics.org]

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