Changeset 5830e35 for src/solvers/pcg.F90

Timestamp:

02/01/11 14:43:16 (2 years ago)

Author:

Oleg Batrashev <ogbash@…>

Branches:

master, external

Children:

be3812e

Parents:

f73371d

git-author:

Oleg Batrashev <ogbash@…> (02/01/11 14:43:16)

git-committer:

Oleg Batrashev <ogbash@…> (02/01/11 14:43:16)

Message:

Comment debug statements.

File:

• src/solvers/pcg.F90 (modified) (1 diff)

src/solvers/pcg.F90

@@ -425 +425 @@
 
       if (cdat_vec%active) then
-        write(stream,*) "clrhs", shape(clrhs), cdat_vec%gl_cfmap
+        !write(stream,*) "clrhs", shape(clrhs), cdat_vec%gl_cfmap
         call Vect_remap(csol,clrhs,cdat_vec%gl_cfmap,dozero=.true.)
-        write(stream,*) "Restrict%nrows", Restrict%nrows
+        !write(stream,*) "Restrict%nrows", Restrict%nrows
         call SpMtx_Ax(tmpsol,Restrict,clrhs,dozero=.true.,transp=.true.)
         !write(stream,*) "tmpsol", tmpsol