From be2da4718d5c49459078c5bc14141f81d10c4120 Mon Sep 17 00:00:00 2001
From: Alfredo Buttari <alfredo.buttari@enseeiht.fr>
Date: Thu, 27 Oct 2005 09:54:32 +0000
Subject: [PATCH] *** empty log message ***

---
 src/prec/psb_dcslu.f90     | 9 +++------
 src/prec/psb_dcsrsetup.f90 | 3 +--
 src/prec/psb_dprecbld.f90  | 3 ---
 3 files changed, 4 insertions(+), 11 deletions(-)

diff --git a/src/prec/psb_dcslu.f90 b/src/prec/psb_dcslu.f90
index e4c12f11..cf11f20e 100644
--- a/src/prec/psb_dcslu.f90
+++ b/src/prec/psb_dcslu.f90
@@ -45,7 +45,7 @@ subroutine psb_dcslu(a,desc_a,p,upd,info)
   external  mpi_wtime
   logical, parameter :: debugprt=.false., debug=.false., aggr_dump=.false.
   integer   istpb, istpe, ifctb, ifcte, err_act, irank, icomm, nztota, nztotb,&
-       & nztmp, nzl, nnr, ir, mglob, mtype, n_row, nrow_a,n_col, nhalo,lovr
+       & nztmp, nzl, nnr, ir, mglob, mtype, n_row, nrow_a,n_col, nhalo,lovr, ind, iind, pi,nr,ns
   integer ::icontxt,nprow,npcol,me,mycol
   character(len=20)      :: name, ch_err
 
@@ -176,8 +176,6 @@ subroutine psb_dcslu(a,desc_a,p,upd,info)
      call blacs_barrier(icontxt,'All')
   endif
 
-!  if (me==0) write(0,*) 'setup time',t2-t1, blck%fida, p%iprcparm(p_type_),blck%m,upd
-!    write(0,'(i3,1x,a,4(1x,g14.5))') me,' setup time',t2-t1
 
   if (p%iprcparm(iren_) > 0) then 
 
@@ -208,6 +206,7 @@ subroutine psb_dcslu(a,desc_a,p,upd,info)
 
      t3 = mpi_wtime()
      if (debugprt) then 
+        call blacs_barrier(icontxt,'All')
         open(40+me) 
         call psb_csprt(40+me,atmp,head='% Local matrix')
         close(40+me)
@@ -239,12 +238,12 @@ subroutine psb_dcslu(a,desc_a,p,upd,info)
 
   else if (p%iprcparm(iren_) == 0) then
      t3 = mpi_wtime()
-!    ierr = MPE_Log_event( ifctb, 0, "st SIMPLE" )
      ! This is where we have mo renumbering, thus no need 
      ! for ATMP
 
      if (debugprt) then 
         open(40+me)
+        call blacs_barrier(icontxt,'All')
         call psb_csprt(40+me,a,iv=p%desc_data%loc_to_glob,&
              &    head='% Local matrix')
         if (p%iprcparm(p_type_)==asm_) then 
@@ -254,8 +253,6 @@ subroutine psb_dcslu(a,desc_a,p,upd,info)
         close(40+me)
      endif
 
-
-
      t5= mpi_wtime()
      if (debug) write(0,*) me,' Going for dsplu'
      call psb_dsplu(a,p%av(l_pr_),p%av(u_pr_),p%d,info,blck=blck)
diff --git a/src/prec/psb_dcsrsetup.f90 b/src/prec/psb_dcsrsetup.f90
index 75c12701..c8c19a73 100644
--- a/src/prec/psb_dcsrsetup.f90
+++ b/src/prec/psb_dcsrsetup.f90
@@ -143,10 +143,9 @@ Subroutine psb_dcsrsetup(ptype,novr,a,blk,desc_data,upd,desc_p,info,outfmt)
 !!$
 
     Call blacs_gridinfo(icontxt,nprow,npcol,me,mycol)
-    If(debug)Write(0,*)'BEGIN dcsrsetup',me,upd
+    If(debug)Write(0,*)'BEGIN dcsrsetup',me,upd,novr
     t1 = mpi_wtime()
 
-
     If (upd == 'F') Then
       !
       !  Build the  auiliary descriptor',desc_p%matrix_data(psb_n_row_)
diff --git a/src/prec/psb_dprecbld.f90 b/src/prec/psb_dprecbld.f90
index 7da64648..2206b0ae 100644
--- a/src/prec/psb_dprecbld.f90
+++ b/src/prec/psb_dprecbld.f90
@@ -239,9 +239,6 @@ subroutine psb_dprecbld(a,p,desc_a,info,upd)
     call psb_check_def(p%baseprecv(2)%iprcparm(jac_sweeps_),'Jacobi sweeps',&
          & 1,is_legal_jac_sweeps)
 
-    call blacs_barrier(icontxt,'All') ! to be removed
-    write(0,'(i2," Calling mlprecbld")')me
-    call blacs_barrier(icontxt,'All') ! to be removed
     call psb_mlprec_bld(a,desc_a,p%baseprecv(2),info)
     if(info /= 0) then
        info=4010