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

@@ -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

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

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

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

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