Changeset 8a2eebe

Timestamp:

12/13/10 20:37:11 (2 years ago)

Author:

Oleg Batrashev <ogbash@…>

Branches:

master, external, fix-prolong, refactor, refactor-subsolvers

Children:

13bb187

Parents:

964c491

git-author:

Oleg Batrashev <ogbash@…> (12/13/10 20:37:11)

git-committer:

Oleg Batrashev <ogbash@…> (12/13/10 20:37:11)

Message:

Fix some tests with 1 node two-level.

File:

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

src/solvers/pcg.F90

@@ -519 +519 @@
           endif
         end if
+      end if
 
         !csol=0.0_rk
+      if (cdat%active) then
         ! Recieve the vector for solve
         if (cdat_vec%active) then
@@ -535 +537 @@
         write (stream,*) 'coarse factorisation done!',CoarseMtx_%subsolve_ids(1)
         if (bugtrack)write(stream,*) "(f) Coarse SOL is:",csol
-
+      end if
+
+      if (sctls%levels>1) then
         if (cdat_vec%active) then
           call Vect_remap(csol,clrhs,cdat_vec%gl_cfmap,dozero=.true.)