Fix missing directive

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

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

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

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