Modified interface to GEALL, GEINS et al.

Changed ITRACE behaviour in solver routines.
Updated documentation.

src/prec/psb_dbaseprc_aply.f90

@@ -234,11 +234,11 @@ subroutine psb_dbaseprc_aply(prec,x,beta,y,desc_data,trans,work,info)
 
       case(psb_none_) 
         ! Would work anyway, but since it's supposed to do nothing...
-        ! call f90_psovrl(ty,prec%desc_data,update_type=prec%a_restrict)
+        ! call f90_psovrl(ty,prec%desc_data,update=prec%a_restrict)
 
       case(psb_sum_,psb_avg_) 
         call psb_ovrl(ty,prec%desc_data,info,&
-             & update_type=prec%iprcparm(prol_),work=aux)
+             & update=prec%iprcparm(prol_),work=aux)
         if(info /=0) then
           info=4010
           ch_err='psb_ovrl'

src/prec/psb_dslu_bld.f90

@@ -89,7 +89,7 @@ subroutine psb_dslu_bld(a,desc_a,p,info)
     call blacs_barrier(icontxt,'All')
   endif
 
-  call psb_dcsdp(a,atmp,info)
+  call psb_csdp(a,atmp,info)
   if(info /= 0) then
     info=4010
     ch_err='psb_dcsdp'

src/prec/psb_zbaseprc_aply.f90

@@ -234,11 +234,11 @@ subroutine psb_zbaseprc_aply(prec,x,beta,y,desc_data,trans,work,info)
 
       case(psb_none_) 
         ! Would work anyway, but since it's supposed to do nothing...
-        ! call f90_psovrl(ty,prec%desc_data,update_type=prec%a_restrict)
+        ! call f90_psovrl(ty,prec%desc_data,update=prec%a_restrict)
 
       case(psb_sum_,psb_avg_) 
         call psb_ovrl(ty,prec%desc_data,info,&
-             & update_type=prec%iprcparm(prol_),work=aux)
+             & update=prec%iprcparm(prol_),work=aux)
         if(info /=0) then
           info=4010
           ch_err='psb_ovrl'

src/prec/psb_zbldaggrmat.f90

@@ -624,7 +624,7 @@ contains
     if (debug) write(0,*) me,'Done NUMBMM 2'
 
     if  (p%iprcparm(smth_kind_) == smth_omg_) then 
-      call psb_transp(am1,am2,fmt='COO')
+      call psb_transc(am1,am2,fmt='COO')
       nzl = am2%infoa(psb_nnz_)
       i=0
       !
@@ -643,7 +643,7 @@ contains
       am2%infoa(psb_nnz_) = i
       call psb_ipcoo2csr(am2,info)
     else
-      call psb_transp(am1,am2)
+      call psb_transc(am1,am2)
     endif
     if (debug) write(0,*) me,'starting sphalo/ rwxtd'
 

src/prec/psb_zslu_bld.f90

@@ -51,7 +51,7 @@ subroutine psb_zslu_bld(a,desc_a,p,info)
   character(len=5)         :: fmt
   character                :: upd='F'
   integer                  :: i,j,nza,nzb,nzt,icontxt, me,mycol,nprow,npcol,err_act
-  logical, parameter :: debug=.false.
+  logical, parameter :: debug=.true.
   character(len=20)   :: name, ch_err
 
   interface psb_asmatbld
@@ -85,14 +85,14 @@ subroutine psb_zslu_bld(a,desc_a,p,info)
 
   atmp%fida='COO'
   if (Debug) then 
-    write(0,*) me, 'SPLUBLD: Calling  csdp'
+    write(0,*) me, 'ZSLUBLD: Calling  csdp'
     call blacs_barrier(icontxt,'All')
   endif
 
-  call psb_zcsdp(a,atmp,info)
+  call psb_csdp(a,atmp,info)
   if(info /= 0) then
     info=4010
-    ch_err='psb_zcsdp'
+    ch_err='psb_csdp'
     call psb_errpush(info,name,a_err=ch_err)
     goto 9999
   end if