|
|
|
@ -39,8 +39,7 @@
|
|
|
|
! info - integer. return code.
|
|
|
|
! info - integer. return code.
|
|
|
|
! ext_hv - logical Essentially this distinguishes a call
|
|
|
|
! ext_hv - logical Essentially this distinguishes a call
|
|
|
|
! coming from the build of an extended
|
|
|
|
! coming from the build of an extended
|
|
|
|
! halo descriptor with respect to a "normal"
|
|
|
|
! halo descriptor with respect to a normal call.
|
|
|
|
! call.
|
|
|
|
|
|
|
|
!
|
|
|
|
!
|
|
|
|
subroutine psb_icdasb(desc_a,info,ext_hv)
|
|
|
|
subroutine psb_icdasb(desc_a,info,ext_hv)
|
|
|
|
use psb_descriptor_type
|
|
|
|
use psb_descriptor_type
|
|
|
|
|