|
|
@ -43,8 +43,10 @@ module psb_descriptor_type
|
|
|
|
! Communication, prolongation & restriction
|
|
|
|
! Communication, prolongation & restriction
|
|
|
|
!
|
|
|
|
!
|
|
|
|
integer, parameter :: psb_nohalo_=0, psb_halo_=1
|
|
|
|
integer, parameter :: psb_nohalo_=0, psb_halo_=1
|
|
|
|
|
|
|
|
! For overlap update.
|
|
|
|
integer, parameter :: psb_none_=0, psb_sum_=1
|
|
|
|
integer, parameter :: psb_none_=0, psb_sum_=1
|
|
|
|
integer, parameter :: psb_avg_=2, psb_square_root_=3
|
|
|
|
integer, parameter :: psb_avg_=2, psb_square_root_=3
|
|
|
|
|
|
|
|
integer, parameter :: psb_zero_=999
|
|
|
|
! The following are bit fields.
|
|
|
|
! The following are bit fields.
|
|
|
|
integer, parameter :: psb_swap_send_=1, psb_swap_recv_=2
|
|
|
|
integer, parameter :: psb_swap_send_=1, psb_swap_recv_=2
|
|
|
|
integer, parameter :: psb_swap_sync_=4, psb_swap_mpi_=8
|
|
|
|
integer, parameter :: psb_swap_sync_=4, psb_swap_mpi_=8
|
|
|
|