Changeset 8e30c0d for src/solvers/pcg.F90

Timestamp:

01/25/11 10:01:44 (2 years ago)

Author:

Oleg Batrashev <ogbash@…>

Branches:

master, external, fix-prolong

Children:

fd51d18

Parents:

686ede6

git-author:

Oleg Batrashev <ogbash@…> (01/25/11 10:01:44)

git-committer:

Oleg Batrashev <ogbash@…> (01/25/11 10:01:44)

Message:

Start prolongation matrix distribution.

File:

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

src/solvers/pcg.F90

@@ -359 +359 @@
       if (cdat%active) then
         ! Send coarse vector
-        write(stream,*) "Send coarse vector!"
         call SpMtx_Ax(clrhs,Restrict,rhs,dozero=.true.) ! restrict <RA>
         if (cdat_vec%active) then
@@ -397 +396 @@
                cdat%cdisps,cdat%glg_cfmap,cdat%send)
         endif
-        write(stream,*) "Got coarse vector!"
         !call MPI_BARRIER(MPI_COMM_WORLD,i)
       end if
@@ -411 +409 @@
       end if
 
-      write (stream,*) "Coarse solve"
       ! Coarse solve
       call sparse_singlesolve(CoarseMtx_%DD%subsolve_ids(1),csol,crhs,&
@@ -425 +422 @@
 
       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