diff --git a/base/modules/penv/psi_c_collective_mod.F90 b/base/modules/penv/psi_c_collective_mod.F90 index e6cbd83d..cfedfa95 100644 --- a/base/modules/penv/psi_c_collective_mod.F90 +++ b/base/modules/penv/psi_c_collective_mod.F90 @@ -67,9 +67,9 @@ module psi_c_collective_mod module procedure psb_c_simple_a2av end interface psb_simple_a2av - interface psb_triad_a2av - module procedure psb_c_e_triad_a2av, psb_c_m_triad_a2av - end interface psb_triad_a2av + interface psb_simple_triad_a2av + module procedure psb_c_e_simple_triad_a2av, psb_c_m_simple_triad_a2av + end interface psb_simple_triad_a2av contains @@ -901,7 +901,7 @@ contains end subroutine psb_c_simple_a2av - subroutine psb_c_m_triad_a2av(valsnd,iasnd,jasnd,sdsz,bsdindx,& + subroutine psb_c_m_simple_triad_a2av(valsnd,iasnd,jasnd,sdsz,bsdindx,& & valrcv,iarcv,jarcv,rvsz,brvindx,ictxt,info) #ifdef MPI_MOD use mpi @@ -982,9 +982,9 @@ contains end if Enddo - end subroutine psb_c_m_triad_a2av + end subroutine psb_c_m_simple_triad_a2av - subroutine psb_c_e_triad_a2av(valsnd,iasnd,jasnd,sdsz,bsdindx,& + subroutine psb_c_e_simple_triad_a2av(valsnd,iasnd,jasnd,sdsz,bsdindx,& & valrcv,iarcv,jarcv,rvsz,brvindx,ictxt,info) #ifdef MPI_MOD use mpi @@ -1065,7 +1065,7 @@ contains end if Enddo - end subroutine psb_c_e_triad_a2av + end subroutine psb_c_e_simple_triad_a2av end module psi_c_collective_mod diff --git a/base/modules/penv/psi_d_collective_mod.F90 b/base/modules/penv/psi_d_collective_mod.F90 index a87bd12c..f226758c 100644 --- a/base/modules/penv/psi_d_collective_mod.F90 +++ b/base/modules/penv/psi_d_collective_mod.F90 @@ -81,9 +81,9 @@ module psi_d_collective_mod module procedure psb_d_simple_a2av end interface psb_simple_a2av - interface psb_triad_a2av - module procedure psb_d_e_triad_a2av, psb_d_m_triad_a2av - end interface psb_triad_a2av + interface psb_simple_triad_a2av + module procedure psb_d_e_simple_triad_a2av, psb_d_m_simple_triad_a2av + end interface psb_simple_triad_a2av contains @@ -1392,7 +1392,7 @@ contains end subroutine psb_d_simple_a2av - subroutine psb_d_m_triad_a2av(valsnd,iasnd,jasnd,sdsz,bsdindx,& + subroutine psb_d_m_simple_triad_a2av(valsnd,iasnd,jasnd,sdsz,bsdindx,& & valrcv,iarcv,jarcv,rvsz,brvindx,ictxt,info) #ifdef MPI_MOD use mpi @@ -1473,9 +1473,9 @@ contains end if Enddo - end subroutine psb_d_m_triad_a2av + end subroutine psb_d_m_simple_triad_a2av - subroutine psb_d_e_triad_a2av(valsnd,iasnd,jasnd,sdsz,bsdindx,& + subroutine psb_d_e_simple_triad_a2av(valsnd,iasnd,jasnd,sdsz,bsdindx,& & valrcv,iarcv,jarcv,rvsz,brvindx,ictxt,info) #ifdef MPI_MOD use mpi @@ -1556,7 +1556,7 @@ contains end if Enddo - end subroutine psb_d_e_triad_a2av + end subroutine psb_d_e_simple_triad_a2av end module psi_d_collective_mod diff --git a/base/modules/penv/psi_e_collective_mod.F90 b/base/modules/penv/psi_e_collective_mod.F90 index 192f7d7f..8218a1ff 100644 --- a/base/modules/penv/psi_e_collective_mod.F90 +++ b/base/modules/penv/psi_e_collective_mod.F90 @@ -77,9 +77,9 @@ module psi_e_collective_mod module procedure psb_e_simple_a2av end interface psb_simple_a2av - interface psb_triad_a2av - module procedure psb_e_e_triad_a2av, psb_e_m_triad_a2av - end interface psb_triad_a2av + interface psb_simple_triad_a2av + module procedure psb_e_e_simple_triad_a2av, psb_e_m_simple_triad_a2av + end interface psb_simple_triad_a2av contains @@ -1269,7 +1269,7 @@ contains end subroutine psb_e_simple_a2av - subroutine psb_e_m_triad_a2av(valsnd,iasnd,jasnd,sdsz,bsdindx,& + subroutine psb_e_m_simple_triad_a2av(valsnd,iasnd,jasnd,sdsz,bsdindx,& & valrcv,iarcv,jarcv,rvsz,brvindx,ictxt,info) #ifdef MPI_MOD use mpi @@ -1350,9 +1350,9 @@ contains end if Enddo - end subroutine psb_e_m_triad_a2av + end subroutine psb_e_m_simple_triad_a2av - subroutine psb_e_e_triad_a2av(valsnd,iasnd,jasnd,sdsz,bsdindx,& + subroutine psb_e_e_simple_triad_a2av(valsnd,iasnd,jasnd,sdsz,bsdindx,& & valrcv,iarcv,jarcv,rvsz,brvindx,ictxt,info) #ifdef MPI_MOD use mpi @@ -1433,7 +1433,7 @@ contains end if Enddo - end subroutine psb_e_e_triad_a2av + end subroutine psb_e_e_simple_triad_a2av end module psi_e_collective_mod diff --git a/base/modules/penv/psi_m_collective_mod.F90 b/base/modules/penv/psi_m_collective_mod.F90 index 35f56f87..e39aea60 100644 --- a/base/modules/penv/psi_m_collective_mod.F90 +++ b/base/modules/penv/psi_m_collective_mod.F90 @@ -77,9 +77,9 @@ module psi_m_collective_mod module procedure psb_m_simple_a2av end interface psb_simple_a2av - interface psb_triad_a2av - module procedure psb_m_e_triad_a2av, psb_m_m_triad_a2av - end interface psb_triad_a2av + interface psb_simple_triad_a2av + module procedure psb_m_e_simple_triad_a2av, psb_m_m_simple_triad_a2av + end interface psb_simple_triad_a2av contains @@ -1269,7 +1269,7 @@ contains end subroutine psb_m_simple_a2av - subroutine psb_m_m_triad_a2av(valsnd,iasnd,jasnd,sdsz,bsdindx,& + subroutine psb_m_m_simple_triad_a2av(valsnd,iasnd,jasnd,sdsz,bsdindx,& & valrcv,iarcv,jarcv,rvsz,brvindx,ictxt,info) #ifdef MPI_MOD use mpi @@ -1350,9 +1350,9 @@ contains end if Enddo - end subroutine psb_m_m_triad_a2av + end subroutine psb_m_m_simple_triad_a2av - subroutine psb_m_e_triad_a2av(valsnd,iasnd,jasnd,sdsz,bsdindx,& + subroutine psb_m_e_simple_triad_a2av(valsnd,iasnd,jasnd,sdsz,bsdindx,& & valrcv,iarcv,jarcv,rvsz,brvindx,ictxt,info) #ifdef MPI_MOD use mpi @@ -1433,7 +1433,7 @@ contains end if Enddo - end subroutine psb_m_e_triad_a2av + end subroutine psb_m_e_simple_triad_a2av end module psi_m_collective_mod diff --git a/base/modules/penv/psi_s_collective_mod.F90 b/base/modules/penv/psi_s_collective_mod.F90 index 7e76d60a..8a95e2d0 100644 --- a/base/modules/penv/psi_s_collective_mod.F90 +++ b/base/modules/penv/psi_s_collective_mod.F90 @@ -81,9 +81,9 @@ module psi_s_collective_mod module procedure psb_s_simple_a2av end interface psb_simple_a2av - interface psb_triad_a2av - module procedure psb_s_e_triad_a2av, psb_s_m_triad_a2av - end interface psb_triad_a2av + interface psb_simple_triad_a2av + module procedure psb_s_e_simple_triad_a2av, psb_s_m_simple_triad_a2av + end interface psb_simple_triad_a2av contains @@ -1392,7 +1392,7 @@ contains end subroutine psb_s_simple_a2av - subroutine psb_s_m_triad_a2av(valsnd,iasnd,jasnd,sdsz,bsdindx,& + subroutine psb_s_m_simple_triad_a2av(valsnd,iasnd,jasnd,sdsz,bsdindx,& & valrcv,iarcv,jarcv,rvsz,brvindx,ictxt,info) #ifdef MPI_MOD use mpi @@ -1473,9 +1473,9 @@ contains end if Enddo - end subroutine psb_s_m_triad_a2av + end subroutine psb_s_m_simple_triad_a2av - subroutine psb_s_e_triad_a2av(valsnd,iasnd,jasnd,sdsz,bsdindx,& + subroutine psb_s_e_simple_triad_a2av(valsnd,iasnd,jasnd,sdsz,bsdindx,& & valrcv,iarcv,jarcv,rvsz,brvindx,ictxt,info) #ifdef MPI_MOD use mpi @@ -1556,7 +1556,7 @@ contains end if Enddo - end subroutine psb_s_e_triad_a2av + end subroutine psb_s_e_simple_triad_a2av end module psi_s_collective_mod diff --git a/base/modules/penv/psi_z_collective_mod.F90 b/base/modules/penv/psi_z_collective_mod.F90 index 71693ac0..f57d9629 100644 --- a/base/modules/penv/psi_z_collective_mod.F90 +++ b/base/modules/penv/psi_z_collective_mod.F90 @@ -67,9 +67,9 @@ module psi_z_collective_mod module procedure psb_z_simple_a2av end interface psb_simple_a2av - interface psb_triad_a2av - module procedure psb_z_e_triad_a2av, psb_z_m_triad_a2av - end interface psb_triad_a2av + interface psb_simple_triad_a2av + module procedure psb_z_e_simple_triad_a2av, psb_z_m_simple_triad_a2av + end interface psb_simple_triad_a2av contains @@ -901,7 +901,7 @@ contains end subroutine psb_z_simple_a2av - subroutine psb_z_m_triad_a2av(valsnd,iasnd,jasnd,sdsz,bsdindx,& + subroutine psb_z_m_simple_triad_a2av(valsnd,iasnd,jasnd,sdsz,bsdindx,& & valrcv,iarcv,jarcv,rvsz,brvindx,ictxt,info) #ifdef MPI_MOD use mpi @@ -982,9 +982,9 @@ contains end if Enddo - end subroutine psb_z_m_triad_a2av + end subroutine psb_z_m_simple_triad_a2av - subroutine psb_z_e_triad_a2av(valsnd,iasnd,jasnd,sdsz,bsdindx,& + subroutine psb_z_e_simple_triad_a2av(valsnd,iasnd,jasnd,sdsz,bsdindx,& & valrcv,iarcv,jarcv,rvsz,brvindx,ictxt,info) #ifdef MPI_MOD use mpi @@ -1065,7 +1065,7 @@ contains end if Enddo - end subroutine psb_z_e_triad_a2av + end subroutine psb_z_e_simple_triad_a2av end module psi_z_collective_mod