fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-20 12:52:14 +00:00
Code Issues Packages Projects Releases Wiki Activity

Fix module subroutine declaration in swapdata.

Browse Source
This commit is contained in:
sfilippone
2026-03-16 12:31:29 +01:00
parent 884f7cb0b9
commit ab2c5edcd5
6 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/comm/internals/psi_cswapdata.F90
+1 -1
View File
@@ -92,7 +92,7 @@
submodule (psi_c_comm_v_mod) psi_c_swapdata_impl
use psb_base_mod
contains
subroutine psi_cswapdata_vect(flag,beta,y,desc_a,work,info,data)
module subroutine psi_cswapdata_vect(flag,beta,y,desc_a,work,info,data)
#ifdef PSB_MPI_MOD
use mpi
base/comm/internals/psi_dswapdata.F90
+1 -1
View File
@@ -92,7 +92,7 @@
submodule (psi_d_comm_v_mod) psi_d_swapdata_impl
use psb_base_mod
contains
subroutine psi_dswapdata_vect(flag,beta,y,desc_a,work,info,data)
module subroutine psi_dswapdata_vect(flag,beta,y,desc_a,work,info,data)
#ifdef PSB_MPI_MOD
use mpi
base/comm/internals/psi_iswapdata.F90
+1 -1
View File
@@ -92,7 +92,7 @@
submodule (psi_i_comm_v_mod) psi_i_swapdata_impl
use psb_base_mod
contains
subroutine psi_iswapdata_vect(flag,beta,y,desc_a,work,info,data)
module subroutine psi_iswapdata_vect(flag,beta,y,desc_a,work,info,data)
#ifdef PSB_MPI_MOD
use mpi
base/comm/internals/psi_lswapdata.F90
+1 -1
View File
@@ -92,7 +92,7 @@
submodule (psi_l_comm_v_mod) psi_l_swapdata_impl
use psb_base_mod
contains
subroutine psi_lswapdata_vect(flag,beta,y,desc_a,work,info,data)
module subroutine psi_lswapdata_vect(flag,beta,y,desc_a,work,info,data)
#ifdef PSB_MPI_MOD
use mpi
base/comm/internals/psi_sswapdata.F90
+1 -1
View File
@@ -92,7 +92,7 @@
submodule (psi_s_comm_v_mod) psi_s_swapdata_impl
use psb_base_mod
contains
subroutine psi_sswapdata_vect(flag,beta,y,desc_a,work,info,data)
module subroutine psi_sswapdata_vect(flag,beta,y,desc_a,work,info,data)
#ifdef PSB_MPI_MOD
use mpi
base/comm/internals/psi_zswapdata.F90
+1 -1
View File
@@ -92,7 +92,7 @@
submodule (psi_z_comm_v_mod) psi_z_swapdata_impl
use psb_base_mod
contains
subroutine psi_zswapdata_vect(flag,beta,y,desc_a,work,info,data)
module subroutine psi_zswapdata_vect(flag,beta,y,desc_a,work,info,data)
#ifdef PSB_MPI_MOD
use mpi