*** empty log message ***

src/methd/Makefile

@@ -6,7 +6,7 @@ LIBDIR=../../lib
 HERE=.
 OBJS= psb_dcgstab.o psb_dcg.o psb_dcgs.o \
 	psb_dbicg.o psb_dcgstabl.o psb_dgmresr.o\
-	psb_zcgstab.o psb_zcgs.o $(EXTRA_BLACS_ENV_OBJS)
+	psb_zcgstab.o psb_zcgs.o
 
 INCDIRS=-I. -I.. -I$(LIBDIR)
 

src/modules/Makefile

@@ -6,7 +6,7 @@ MODULES = psb_realloc_mod.o psb_string_mod.o psb_spmat_type.o \
 	psb_prec_type.o psb_error_mod.o psb_prec_mod.o \
 	psb_methd_mod.o psb_const_mod.o \
 	psb_comm_mod.o psb_psblas_mod.o psi_mod.o \
-	psb_sparse_mod.o psb_check_mod.o psb_all_mod.o
+	psb_sparse_mod.o psb_check_mod.o psb_all_mod.o $(EXTRA_BLACS_ENV_OBJS)
 
 OBJS = error.o
 

src/modules/extra_env.f90

@@ -9,3 +9,7 @@ subroutine psb_restore_coher(ictxt,isvch)
   ! Ensure global coherence for convergence checks.
   Call blacs_set(ictxt,16,isvch)
 end subroutine psb_restore_coher
+subroutine psb_get_mpicomm(ictxt,comm)
+  integer :: ictxt, comm
+  call blacs_get(ictxt,10,comm)
+end subroutine psb_get_mpicomm

src/modules/extra_env_essl.f90

@@ -11,3 +11,7 @@ subroutine psb_restore_coher(ictxt,isvch)
   ! Ensure global coherence for convergence checks.
 !!$  Call blacs_set(ictxt,16,isvch)
 end subroutine psb_restore_coher
+subroutine psb_get_mpicomm(ictxt,comm)
+  integer :: ictxt, comm
+  call blacs_get(ictxt,10,comm)
+end subroutine psb_get_mpicomm