fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-20 21:02:26 +00:00
Code Issues Packages Projects Releases Wiki Activity

Renaming: moved PSB_DSCOV into PSB_CDOVR.

Browse Source
This commit is contained in:
Salvatore Filippone
2006-03-06 16:47:28 +00:00
parent e0840ab611
commit 2d898df6b6
1 changed files with 10 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/prec/psb_dcsrsetup.f90
+10 -10
View File
@@ -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_)