From 2d898df6b6139b47be4b6b52d4a7815f242d432e Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Mon, 6 Mar 2006 16:47:28 +0000 Subject: [PATCH] Renaming: moved PSB_DSCOV into PSB_CDOVR. --- src/prec/psb_dcsrsetup.f90 | 20 ++++++++++---------- 1 file changed, 10 insertions(+), 10 deletions(-) diff --git a/src/prec/psb_dcsrsetup.f90 b/src/prec/psb_dcsrsetup.f90 index cc697f84..c75184f3 100644 --- a/src/prec/psb_dcsrsetup.f90 +++ b/src/prec/psb_dcsrsetup.f90 @@ -40,7 +40,7 @@ !* Block Jacobi. * !* 2. Retrieves the remote matrix pieces. * !* * -!* All of 1. is done under f90_dscov, which is independent of CSR, and * +!* All of 1. is done under psb_cdovr, which is independent of CSR, and * !* has been placed in the TOOLS directory because it might be used for * !* building a descriptor for an extended stencil in a PDE solver without * !* necessarily applying AS precond. * @@ -116,7 +116,7 @@ Subroutine psb_dcsrsetup(ptype,novr,a,blk,desc_data,upd,desc_p,info,outfmt) call psb_dsccpy(desc_p,desc_data,info) if(info /= 0) then info=4010 - ch_err='psb_ddsccpy' + ch_err='psb_dsccpy' call psb_errpush(info,name,a_err=ch_err) goto 9999 end if @@ -176,16 +176,16 @@ Subroutine psb_dcsrsetup(ptype,novr,a,blk,desc_data,upd,desc_p,info,outfmt) ! ! Build the auiliary descriptor',desc_p%matrix_data(psb_n_row_) ! - call psb_cdovr(a,desc_data,novr,desc_p,info) - if(info /= 0) then - info=4010 - ch_err='psb_cdovr' - call psb_errpush(info,name,a_err=ch_err) - goto 9999 - end if + call psb_cdovr(a,desc_data,novr,desc_p,info) + if(info /= 0) then + info=4010 + ch_err='psb_cdovr' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if Endif - if(debug) write(0,*) me,' From dscov _:',desc_p%matrix_data(psb_n_row_),desc_p%matrix_data(psb_n_col_) + if(debug) write(0,*) me,' From cdovr _:',desc_p%matrix_data(psb_n_row_),desc_p%matrix_data(psb_n_col_) n_row = desc_p%matrix_data(psb_n_row_)