|
|
|
@ -31,7 +31,8 @@
|
|
|
|
!
|
|
|
|
!
|
|
|
|
module psi_c_comm_a_mod
|
|
|
|
module psi_c_comm_a_mod
|
|
|
|
use psi_penv_mod, only : psb_ctxt_type
|
|
|
|
use psi_penv_mod, only : psb_ctxt_type
|
|
|
|
use psb_desc_mod, only : psb_desc_type, psb_mpk_, psb_ipk_, psb_spk_, psb_i_base_vect_type
|
|
|
|
use psb_desc_mod, only : psb_desc_type, psb_mpk_, psb_ipk_, &
|
|
|
|
|
|
|
|
& psb_spk_, psb_i_base_vect_type
|
|
|
|
|
|
|
|
|
|
|
|
interface psi_swapdata
|
|
|
|
interface psi_swapdata
|
|
|
|
module subroutine psi_cswapdatam(flag,n,beta,y,desc_a,work,info,data)
|
|
|
|
module subroutine psi_cswapdatam(flag,n,beta,y,desc_a,work,info,data)
|
|
|
|
|