From 07cb3ba08ca91bcb719ceb244d035f5d51c900ee Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Tue, 28 Apr 2015 19:43:16 +0000 Subject: [PATCH] psblas3: base/internals/psi_cswapdata.F90 base/internals/psi_dswapdata.F90 base/internals/psi_iswapdata.F90 base/internals/psi_sswapdata.F90 base/internals/psi_zswapdata.F90 Formatting --- base/internals/psi_cswapdata.F90 | 12 ++++++++---- base/internals/psi_dswapdata.F90 | 12 ++++++++---- base/internals/psi_iswapdata.F90 | 12 ++++++++---- base/internals/psi_sswapdata.F90 | 12 ++++++++---- base/internals/psi_zswapdata.F90 | 12 ++++++++---- 5 files changed, 40 insertions(+), 20 deletions(-) diff --git a/base/internals/psi_cswapdata.F90 b/base/internals/psi_cswapdata.F90 index e1cff87e..d21ae449 100644 --- a/base/internals/psi_cswapdata.F90 +++ b/base/internals/psi_cswapdata.F90 @@ -152,7 +152,8 @@ subroutine psi_cswapdatam(flag,n,beta,y,desc_a,work,info,data) return end subroutine psi_cswapdatam -subroutine psi_cswapidxm(iictxt,iicomm,flag,n,beta,y,idx,totxch,totsnd,totrcv,work,info) +subroutine psi_cswapidxm(iictxt,iicomm,flag,n,beta,y,idx, & + & totxch,totsnd,totrcv,work,info) use psi_mod, psb_protect_name => psi_cswapidxm use psb_error_mod @@ -654,7 +655,8 @@ end subroutine psi_cswapdatav ! ! ! -subroutine psi_cswapidxv(iictxt,iicomm,flag,beta,y,idx,totxch,totsnd,totrcv,work,info) +subroutine psi_cswapidxv(iictxt,iicomm,flag,beta,y,idx, & + & totxch,totsnd,totrcv,work,info) use psi_mod, psb_protect_name => psi_cswapidxv use psb_error_mod @@ -1104,7 +1106,8 @@ end subroutine psi_cswapdata_vect ! ! ! -subroutine psi_cswap_vidx_vect(iictxt,iicomm,flag,beta,y,idx,totxch,totsnd,totrcv,work,info) +subroutine psi_cswap_vidx_vect(iictxt,iicomm,flag,beta,y,idx, & + & totxch,totsnd,totrcv,work,info) use psi_mod, psb_protect_name => psi_cswap_vidx_vect use psb_error_mod @@ -1325,7 +1328,8 @@ subroutine psi_cswap_vidx_vect(iictxt,iicomm,flag,beta,y,idx,totxch,totsnd,totrc snd_pt = 1+pnti+nerv+psb_n_elem_send_ rcv_pt = 1+pnti+psb_n_elem_recv_ - if (debug) write(0,*)me,' Received from: ',prcid(i),y%combuf(rcv_pt:rcv_pt+nerv-1) + if (debug) write(0,*)me,' Received from: ',prcid(i),& + & y%combuf(rcv_pt:rcv_pt+nerv-1) call y%sct(rcv_pt,nerv,idx,beta) pnti = pnti + nerv + nesd + 3 end do diff --git a/base/internals/psi_dswapdata.F90 b/base/internals/psi_dswapdata.F90 index ba79ce0b..04b08887 100644 --- a/base/internals/psi_dswapdata.F90 +++ b/base/internals/psi_dswapdata.F90 @@ -152,7 +152,8 @@ subroutine psi_dswapdatam(flag,n,beta,y,desc_a,work,info,data) return end subroutine psi_dswapdatam -subroutine psi_dswapidxm(iictxt,iicomm,flag,n,beta,y,idx,totxch,totsnd,totrcv,work,info) +subroutine psi_dswapidxm(iictxt,iicomm,flag,n,beta,y,idx, & + & totxch,totsnd,totrcv,work,info) use psi_mod, psb_protect_name => psi_dswapidxm use psb_error_mod @@ -654,7 +655,8 @@ end subroutine psi_dswapdatav ! ! ! -subroutine psi_dswapidxv(iictxt,iicomm,flag,beta,y,idx,totxch,totsnd,totrcv,work,info) +subroutine psi_dswapidxv(iictxt,iicomm,flag,beta,y,idx, & + & totxch,totsnd,totrcv,work,info) use psi_mod, psb_protect_name => psi_dswapidxv use psb_error_mod @@ -1104,7 +1106,8 @@ end subroutine psi_dswapdata_vect ! ! ! -subroutine psi_dswap_vidx_vect(iictxt,iicomm,flag,beta,y,idx,totxch,totsnd,totrcv,work,info) +subroutine psi_dswap_vidx_vect(iictxt,iicomm,flag,beta,y,idx, & + & totxch,totsnd,totrcv,work,info) use psi_mod, psb_protect_name => psi_dswap_vidx_vect use psb_error_mod @@ -1325,7 +1328,8 @@ subroutine psi_dswap_vidx_vect(iictxt,iicomm,flag,beta,y,idx,totxch,totsnd,totrc snd_pt = 1+pnti+nerv+psb_n_elem_send_ rcv_pt = 1+pnti+psb_n_elem_recv_ - if (debug) write(0,*)me,' Received from: ',prcid(i),y%combuf(rcv_pt:rcv_pt+nerv-1) + if (debug) write(0,*)me,' Received from: ',prcid(i),& + & y%combuf(rcv_pt:rcv_pt+nerv-1) call y%sct(rcv_pt,nerv,idx,beta) pnti = pnti + nerv + nesd + 3 end do diff --git a/base/internals/psi_iswapdata.F90 b/base/internals/psi_iswapdata.F90 index 3aafcb65..8b9d3437 100644 --- a/base/internals/psi_iswapdata.F90 +++ b/base/internals/psi_iswapdata.F90 @@ -152,7 +152,8 @@ subroutine psi_iswapdatam(flag,n,beta,y,desc_a,work,info,data) return end subroutine psi_iswapdatam -subroutine psi_iswapidxm(iictxt,iicomm,flag,n,beta,y,idx,totxch,totsnd,totrcv,work,info) +subroutine psi_iswapidxm(iictxt,iicomm,flag,n,beta,y,idx, & + & totxch,totsnd,totrcv,work,info) use psi_mod, psb_protect_name => psi_iswapidxm use psb_error_mod @@ -654,7 +655,8 @@ end subroutine psi_iswapdatav ! ! ! -subroutine psi_iswapidxv(iictxt,iicomm,flag,beta,y,idx,totxch,totsnd,totrcv,work,info) +subroutine psi_iswapidxv(iictxt,iicomm,flag,beta,y,idx, & + & totxch,totsnd,totrcv,work,info) use psi_mod, psb_protect_name => psi_iswapidxv use psb_error_mod @@ -1104,7 +1106,8 @@ end subroutine psi_iswapdata_vect ! ! ! -subroutine psi_iswap_vidx_vect(iictxt,iicomm,flag,beta,y,idx,totxch,totsnd,totrcv,work,info) +subroutine psi_iswap_vidx_vect(iictxt,iicomm,flag,beta,y,idx, & + & totxch,totsnd,totrcv,work,info) use psi_mod, psb_protect_name => psi_iswap_vidx_vect use psb_error_mod @@ -1325,7 +1328,8 @@ subroutine psi_iswap_vidx_vect(iictxt,iicomm,flag,beta,y,idx,totxch,totsnd,totrc snd_pt = 1+pnti+nerv+psb_n_elem_send_ rcv_pt = 1+pnti+psb_n_elem_recv_ - if (debug) write(0,*)me,' Received from: ',prcid(i),y%combuf(rcv_pt:rcv_pt+nerv-1) + if (debug) write(0,*)me,' Received from: ',prcid(i),& + & y%combuf(rcv_pt:rcv_pt+nerv-1) call y%sct(rcv_pt,nerv,idx,beta) pnti = pnti + nerv + nesd + 3 end do diff --git a/base/internals/psi_sswapdata.F90 b/base/internals/psi_sswapdata.F90 index 6e6b0605..fc1aacf4 100644 --- a/base/internals/psi_sswapdata.F90 +++ b/base/internals/psi_sswapdata.F90 @@ -152,7 +152,8 @@ subroutine psi_sswapdatam(flag,n,beta,y,desc_a,work,info,data) return end subroutine psi_sswapdatam -subroutine psi_sswapidxm(iictxt,iicomm,flag,n,beta,y,idx,totxch,totsnd,totrcv,work,info) +subroutine psi_sswapidxm(iictxt,iicomm,flag,n,beta,y,idx, & + & totxch,totsnd,totrcv,work,info) use psi_mod, psb_protect_name => psi_sswapidxm use psb_error_mod @@ -654,7 +655,8 @@ end subroutine psi_sswapdatav ! ! ! -subroutine psi_sswapidxv(iictxt,iicomm,flag,beta,y,idx,totxch,totsnd,totrcv,work,info) +subroutine psi_sswapidxv(iictxt,iicomm,flag,beta,y,idx, & + & totxch,totsnd,totrcv,work,info) use psi_mod, psb_protect_name => psi_sswapidxv use psb_error_mod @@ -1104,7 +1106,8 @@ end subroutine psi_sswapdata_vect ! ! ! -subroutine psi_sswap_vidx_vect(iictxt,iicomm,flag,beta,y,idx,totxch,totsnd,totrcv,work,info) +subroutine psi_sswap_vidx_vect(iictxt,iicomm,flag,beta,y,idx, & + & totxch,totsnd,totrcv,work,info) use psi_mod, psb_protect_name => psi_sswap_vidx_vect use psb_error_mod @@ -1325,7 +1328,8 @@ subroutine psi_sswap_vidx_vect(iictxt,iicomm,flag,beta,y,idx,totxch,totsnd,totrc snd_pt = 1+pnti+nerv+psb_n_elem_send_ rcv_pt = 1+pnti+psb_n_elem_recv_ - if (debug) write(0,*)me,' Received from: ',prcid(i),y%combuf(rcv_pt:rcv_pt+nerv-1) + if (debug) write(0,*)me,' Received from: ',prcid(i),& + & y%combuf(rcv_pt:rcv_pt+nerv-1) call y%sct(rcv_pt,nerv,idx,beta) pnti = pnti + nerv + nesd + 3 end do diff --git a/base/internals/psi_zswapdata.F90 b/base/internals/psi_zswapdata.F90 index 9f881b84..7d3eeea0 100644 --- a/base/internals/psi_zswapdata.F90 +++ b/base/internals/psi_zswapdata.F90 @@ -152,7 +152,8 @@ subroutine psi_zswapdatam(flag,n,beta,y,desc_a,work,info,data) return end subroutine psi_zswapdatam -subroutine psi_zswapidxm(iictxt,iicomm,flag,n,beta,y,idx,totxch,totsnd,totrcv,work,info) +subroutine psi_zswapidxm(iictxt,iicomm,flag,n,beta,y,idx, & + & totxch,totsnd,totrcv,work,info) use psi_mod, psb_protect_name => psi_zswapidxm use psb_error_mod @@ -654,7 +655,8 @@ end subroutine psi_zswapdatav ! ! ! -subroutine psi_zswapidxv(iictxt,iicomm,flag,beta,y,idx,totxch,totsnd,totrcv,work,info) +subroutine psi_zswapidxv(iictxt,iicomm,flag,beta,y,idx, & + & totxch,totsnd,totrcv,work,info) use psi_mod, psb_protect_name => psi_zswapidxv use psb_error_mod @@ -1104,7 +1106,8 @@ end subroutine psi_zswapdata_vect ! ! ! -subroutine psi_zswap_vidx_vect(iictxt,iicomm,flag,beta,y,idx,totxch,totsnd,totrcv,work,info) +subroutine psi_zswap_vidx_vect(iictxt,iicomm,flag,beta,y,idx, & + & totxch,totsnd,totrcv,work,info) use psi_mod, psb_protect_name => psi_zswap_vidx_vect use psb_error_mod @@ -1325,7 +1328,8 @@ subroutine psi_zswap_vidx_vect(iictxt,iicomm,flag,beta,y,idx,totxch,totsnd,totrc snd_pt = 1+pnti+nerv+psb_n_elem_send_ rcv_pt = 1+pnti+psb_n_elem_recv_ - if (debug) write(0,*)me,' Received from: ',prcid(i),y%combuf(rcv_pt:rcv_pt+nerv-1) + if (debug) write(0,*)me,' Received from: ',prcid(i),& + & y%combuf(rcv_pt:rcv_pt+nerv-1) call y%sct(rcv_pt,nerv,idx,beta) pnti = pnti + nerv + nesd + 3 end do