Changeset 686ede6 for src/solvers/pcg.F90

Timestamp:

01/21/11 09:55:57 (2 years ago)

Author:

Oleg Batrashev <ogbash@…>

Branches:

master, external, fix-prolong

Children:

f73371d, 8e30c0d

Parents:

f8c00fb

git-author:

Oleg Batrashev <ogbash@…> (01/21/11 09:55:57)

git-committer:

Oleg Batrashev <ogbash@…> (01/21/11 09:55:57)

Message:

Clone commit

File:

• src/solvers/pcg.F90 (modified) (2 diffs)

src/solvers/pcg.F90

@@ -348 +348 @@
           allocate(csol(CoarseMtx_%nrows))
         endif
+        write(stream,*) "Restrict%nrows", Restrict%nrows
         allocate(clrhs(Restrict%nrows)) ! allocate memory for vector
       end if
@@ -424 +425 @@
 
       if (cdat_vec%active) then
+        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
         call SpMtx_Ax(tmpsol,Restrict,clrhs,dozero=.true.,transp=.true.)
+        !write(stream,*) "tmpsol", tmpsol
       elseif (cdat%active) then
         call Vect_remap(csol,clrhs,cdat%gl_cfmap,dozero=.true.)