From be7571f56868362159e9ad6ea459434009fae794 Mon Sep 17 00:00:00 2001 From: sfilippone Date: Wed, 20 Dec 2023 13:45:43 +0100 Subject: [PATCH] Fix missing directive --- base/serial/impl/psb_c_csr_impl.F90 | 1 + base/serial/impl/psb_d_csr_impl.F90 | 1 + base/serial/impl/psb_s_csr_impl.F90 | 1 + base/serial/impl/psb_z_csr_impl.F90 | 1 + 4 files changed, 4 insertions(+) diff --git a/base/serial/impl/psb_c_csr_impl.F90 b/base/serial/impl/psb_c_csr_impl.F90 index f6426f49..6c21f639 100644 --- a/base/serial/impl/psb_c_csr_impl.F90 +++ b/base/serial/impl/psb_c_csr_impl.F90 @@ -4310,6 +4310,7 @@ contains end subroutine csr_spspmm end subroutine psb_ccsrspspmm +#endif subroutine psb_c_ecsr_mold(a,b,info) use psb_c_csr_mat_mod, psb_protect_name => psb_c_ecsr_mold diff --git a/base/serial/impl/psb_d_csr_impl.F90 b/base/serial/impl/psb_d_csr_impl.F90 index 40d97bc0..9f1d509c 100644 --- a/base/serial/impl/psb_d_csr_impl.F90 +++ b/base/serial/impl/psb_d_csr_impl.F90 @@ -4310,6 +4310,7 @@ contains end subroutine csr_spspmm end subroutine psb_dcsrspspmm +#endif subroutine psb_d_ecsr_mold(a,b,info) use psb_d_csr_mat_mod, psb_protect_name => psb_d_ecsr_mold diff --git a/base/serial/impl/psb_s_csr_impl.F90 b/base/serial/impl/psb_s_csr_impl.F90 index abce0086..a4e1ab82 100644 --- a/base/serial/impl/psb_s_csr_impl.F90 +++ b/base/serial/impl/psb_s_csr_impl.F90 @@ -4310,6 +4310,7 @@ contains end subroutine csr_spspmm end subroutine psb_scsrspspmm +#endif subroutine psb_s_ecsr_mold(a,b,info) use psb_s_csr_mat_mod, psb_protect_name => psb_s_ecsr_mold diff --git a/base/serial/impl/psb_z_csr_impl.F90 b/base/serial/impl/psb_z_csr_impl.F90 index b550e8f1..28ac121e 100644 --- a/base/serial/impl/psb_z_csr_impl.F90 +++ b/base/serial/impl/psb_z_csr_impl.F90 @@ -4310,6 +4310,7 @@ contains end subroutine csr_spspmm end subroutine psb_zcsrspspmm +#endif subroutine psb_z_ecsr_mold(a,b,info) use psb_z_csr_mat_mod, psb_protect_name => psb_z_ecsr_mold