fdurastante
/
psblas3
mirror of https://github.com/sfilippone/psblas3.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Fixed headers for html documentation.

Browse Source
psblas3-type-indexed
Salvatore Filippone 17 years ago
parent 031052b157
commit 8ed63d5df2
2 changed files with 40 additions and 37 deletions
Show Stats Download Patch File Download Diff File

38
base/comm/psb_dovrl.f90
Unescape Escape View File

@ -47,18 +47,18 @@
! psb_avg_ average of overlaps ! psb_avg_ average of overlaps
! mode - integer(optional). Choose the algorithm for data exchange: ! mode - integer(optional). Choose the algorithm for data exchange:
! this is chosen through bit fields. ! this is chosen through bit fields.
! swap_mpi = iand(flag,psb_swap_mpi_) /= 0 ! - swap_mpi = iand(flag,psb_swap_mpi_) /= 0
! swap_sync = iand(flag,psb_swap_sync_) /= 0 ! - swap_sync = iand(flag,psb_swap_sync_) /= 0
! swap_send = iand(flag,psb_swap_send_) /= 0 ! - swap_send = iand(flag,psb_swap_send_) /= 0
! swap_recv = iand(flag,psb_swap_recv_) /= 0 ! - swap_recv = iand(flag,psb_swap_recv_) /= 0
! if (swap_mpi): use underlying MPI_ALLTOALLV. ! - if (swap_mpi): use underlying MPI_ALLTOALLV.
! if (swap_sync): use PSB_SND and PSB_RCV in ! - if (swap_sync): use PSB_SND and PSB_RCV in
! synchronized pairs ! synchronized pairs
! if (swap_send .and. swap_recv): use mpi_irecv ! - if (swap_send .and. swap_recv): use mpi_irecv
! and mpi_send ! and mpi_send
! if (swap_send): use psb_snd (but need another ! - if (swap_send): use psb_snd (but need another
! call with swap_recv to complete) ! call with swap_recv to complete)
! if (swap_recv): use psb_rcv (completing a ! - if (swap_recv): use psb_rcv (completing a
! previous call with swap_send) ! previous call with swap_send)
! !
! !
@ -267,6 +267,7 @@ end subroutine psb_dovrlm
!!$ POSSIBILITY OF SUCH DAMAGE. !!$ POSSIBILITY OF SUCH DAMAGE.
!!$ !!$
!!$ !!$
!
! Subroutine: psb_dovrlv ! Subroutine: psb_dovrlv
! This subroutine performs the exchange of the overlap elements in a ! This subroutine performs the exchange of the overlap elements in a
! distributed dense vector between all the processes. ! distributed dense vector between all the processes.
@ -282,21 +283,22 @@ end subroutine psb_dovrlm
! psb_avg_ average of overlaps ! psb_avg_ average of overlaps
! mode - integer(optional). Choose the algorithm for data exchange: ! mode - integer(optional). Choose the algorithm for data exchange:
! this is chosen through bit fields. ! this is chosen through bit fields.
! swap_mpi = iand(flag,psb_swap_mpi_) /= 0 ! - swap_mpi = iand(flag,psb_swap_mpi_) /= 0
! swap_sync = iand(flag,psb_swap_sync_) /= 0 ! - swap_sync = iand(flag,psb_swap_sync_) /= 0
! swap_send = iand(flag,psb_swap_send_) /= 0 ! - swap_send = iand(flag,psb_swap_send_) /= 0
! swap_recv = iand(flag,psb_swap_recv_) /= 0 ! - swap_recv = iand(flag,psb_swap_recv_) /= 0
! if (swap_mpi): use underlying MPI_ALLTOALLV. ! - if (swap_mpi): use underlying MPI_ALLTOALLV.
! if (swap_sync): use PSB_SND and PSB_RCV in ! - if (swap_sync): use PSB_SND and PSB_RCV in
! synchronized pairs ! synchronized pairs
! if (swap_send .and. swap_recv): use mpi_irecv ! - if (swap_send .and. swap_recv): use mpi_irecv
! and mpi_send ! and mpi_send
! if (swap_send): use psb_snd (but need another ! - if (swap_send): use psb_snd (but need another
! call with swap_recv to complete) ! call with swap_recv to complete)
! if (swap_recv): use psb_rcv (completing a ! - if (swap_recv): use psb_rcv (completing a
! previous call with swap_send) ! previous call with swap_send)
! !
! !
!
subroutine psb_dovrlv(x,desc_a,info,work,update,mode) subroutine psb_dovrlv(x,desc_a,info,work,update,mode)
use psb_descriptor_type use psb_descriptor_type
use psi_mod use psi_mod

39
base/comm/psb_zovrl.f90
Unescape Escape View File

@ -28,6 +28,7 @@
!!$ POSSIBILITY OF SUCH DAMAGE. !!$ POSSIBILITY OF SUCH DAMAGE.
!!$ !!$
!!$ !!$
!
! File: psb_zovrl.f90 ! File: psb_zovrl.f90
! !
! Subroutine: psb_zovrlm ! Subroutine: psb_zovrlm
@ -47,18 +48,18 @@
! psb_avg_ average of overlaps ! psb_avg_ average of overlaps
! mode - integer(optional). Choose the algorithm for data exchange: ! mode - integer(optional). Choose the algorithm for data exchange:
! this is chosen through bit fields. ! this is chosen through bit fields.
! swap_mpi = iand(flag,psb_swap_mpi_) /= 0 ! - swap_mpi = iand(flag,psb_swap_mpi_) /= 0
! swap_sync = iand(flag,psb_swap_sync_) /= 0 ! - swap_sync = iand(flag,psb_swap_sync_) /= 0
! swap_send = iand(flag,psb_swap_send_) /= 0 ! - swap_send = iand(flag,psb_swap_send_) /= 0
! swap_recv = iand(flag,psb_swap_recv_) /= 0 ! - swap_recv = iand(flag,psb_swap_recv_) /= 0
! if (swap_mpi): use underlying MPI_ALLTOALLV. ! - if (swap_mpi): use underlying MPI_ALLTOALLV.
! if (swap_sync): use PSB_SND and PSB_RCV in ! - if (swap_sync): use PSB_SND and PSB_RCV in
! synchronized pairs ! synchronized pairs
! if (swap_send .and. swap_recv): use mpi_irecv ! - if (swap_send .and. swap_recv): use mpi_irecv
! and mpi_send ! and mpi_send
! if (swap_send): use psb_snd (but need another ! - if (swap_send): use psb_snd (but need another
! call with swap_recv to complete) ! call with swap_recv to complete)
! if (swap_recv): use psb_rcv (completing a ! - if (swap_recv): use psb_rcv (completing a
! previous call with swap_send) ! previous call with swap_send)
! !
! !
@ -267,6 +268,7 @@ end subroutine psb_zovrlm
!!$ POSSIBILITY OF SUCH DAMAGE. !!$ POSSIBILITY OF SUCH DAMAGE.
!!$ !!$
!!$ !!$
!
! Subroutine: psb_zovrlv ! Subroutine: psb_zovrlv
! This subroutine performs the exchange of the overlap elements in a ! This subroutine performs the exchange of the overlap elements in a
! distributed dense vector between all the processes. ! distributed dense vector between all the processes.
@ -282,22 +284,21 @@ end subroutine psb_zovrlm
! psb_avg_ average of overlaps ! psb_avg_ average of overlaps
! mode - integer(optional). Choose the algorithm for data exchange: ! mode - integer(optional). Choose the algorithm for data exchange:
! this is chosen through bit fields. ! this is chosen through bit fields.
! swap_mpi = iand(flag,psb_swap_mpi_) /= 0 ! - swap_mpi = iand(flag,psb_swap_mpi_) /= 0
! swap_sync = iand(flag,psb_swap_sync_) /= 0 ! - swap_sync = iand(flag,psb_swap_sync_) /= 0
! swap_send = iand(flag,psb_swap_send_) /= 0 ! - swap_send = iand(flag,psb_swap_send_) /= 0
! swap_recv = iand(flag,psb_swap_recv_) /= 0 ! - swap_recv = iand(flag,psb_swap_recv_) /= 0
! if (swap_mpi): use underlying MPI_ALLTOALLV. ! - if (swap_mpi): use underlying MPI_ALLTOALLV.
! if (swap_sync): use PSB_SND and PSB_RCV in ! - if (swap_sync): use PSB_SND and PSB_RCV in
! synchronized pairs ! synchronized pairs
! if (swap_send .and. swap_recv): use mpi_irecv ! - if (swap_send .and. swap_recv): use mpi_irecv
! and mpi_send ! and mpi_send
! if (swap_send): use psb_snd (but need another ! - if (swap_send): use psb_snd (but need another
! call with swap_recv to complete) ! call with swap_recv to complete)
! if (swap_recv): use psb_rcv (completing a ! - if (swap_recv): use psb_rcv (completing a
! previous call with swap_send) ! previous call with swap_send)
! !
! !
!
subroutine psb_zovrlv(x,desc_a,info,work,update,mode) subroutine psb_zovrlv(x,desc_a,info,work,update,mode)
use psb_descriptor_type use psb_descriptor_type
use psi_mod use psi_mod

Write Preview
Loading…
Cancel
Save