Fix module subroutine declaration in swapdata.

2 months ago · ab2c5edcd5
parent 884f7cb0b9
commit ab2c5edcd5
6 changed files with 6 additions and 6 deletions
--- a/base/comm/internals/psi_cswapdata.F90
+++ b/base/comm/internals/psi_cswapdata.F90
@ -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
--- a/base/comm/internals/psi_dswapdata.F90
+++ b/base/comm/internals/psi_dswapdata.F90
@ -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
--- a/base/comm/internals/psi_iswapdata.F90
+++ b/base/comm/internals/psi_iswapdata.F90
@ -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
--- a/base/comm/internals/psi_lswapdata.F90
+++ b/base/comm/internals/psi_lswapdata.F90
@ -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
--- a/base/comm/internals/psi_sswapdata.F90
+++ b/base/comm/internals/psi_sswapdata.F90
@ -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
--- a/base/comm/internals/psi_zswapdata.F90
+++ b/base/comm/internals/psi_zswapdata.F90
@ -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