fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-14 18:09:05 +00:00
Code Issues Packages Projects Releases Wiki Activity

*** empty log message ***

Browse Source
This commit is contained in:
Salvatore Filippone
2008-01-07 17:05:53 +00:00
parent 84cdf8ff6d
commit ee22b69b2f
1 changed files with 5 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/tools/psb_icdasb.F90
+5 -6
View File
@@ -35,12 +35,11 @@
! The user callable routine is defined in the psb_tools_mod module.
!
! Arguments:
! desc_a - type(psb_desc_type). The communication descriptor.
! info - integer. return code.
! ext_hv - logical Essentially this distinguishes a call
! coming from the build of an extended
! halo descriptor with respect to a "normal"
! call.
! desc_a - type(psb_desc_type). The communication descriptor.
! info - integer. return code.
! ext_hv - logical Essentially this distinguishes a call
! coming from the build of an extended
! halo descriptor with respect to a normal call.
!
subroutine psb_icdasb(desc_a,info,ext_hv)
use psb_descriptor_type