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

Corrected call to use mpi

Browse Source
This commit is contained in:
Cirdans-Home
2020-11-25 17:48:37 +01:00
parent b6ebe59ac3
commit 4674de97cf
4 changed files with 28 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/psblas/psb_cgetmatinfo.f90 → base/psblas/psb_cgetmatinfo.F90
+7 -3
View File
@@ -37,9 +37,13 @@
function psb_cget_nnz(a,desc_a,info) result(res)
use psb_base_mod, psb_protect_name => psb_cget_nnz
use psi_mod
use mpi
implicit none
#ifdef MPI_MOD
use mpi
#endif
implicit none
#ifdef MPI_H
include 'mpif.h'
#endif
integer(psb_lpk_) :: res
type(psb_cspmat_type), intent(in) :: a
base/psblas/psb_dgetmatinfo.f90 → base/psblas/psb_dgetmatinfo.F90
+7 -3
View File
@@ -37,9 +37,13 @@
function psb_dget_nnz(a,desc_a,info) result(res)
use psb_base_mod, psb_protect_name => psb_dget_nnz
use psi_mod
use mpi
implicit none
#ifdef MPI_MOD
use mpi
#endif
implicit none
#ifdef MPI_H
include 'mpif.h'
#endif
integer(psb_lpk_) :: res
type(psb_dspmat_type), intent(in) :: a
base/psblas/psb_sgetmatinfo.f90 → base/psblas/psb_sgetmatinfo.F90
+7 -3
View File
@@ -37,9 +37,13 @@
function psb_sget_nnz(a,desc_a,info) result(res)
use psb_base_mod, psb_protect_name => psb_sget_nnz
use psi_mod
use mpi
implicit none
#ifdef MPI_MOD
use mpi
#endif
implicit none
#ifdef MPI_H
include 'mpif.h'
#endif
integer(psb_lpk_) :: res
type(psb_sspmat_type), intent(in) :: a
base/psblas/psb_zgetmatinfo.f90 → base/psblas/psb_zgetmatinfo.F90
+7 -3
View File
@@ -37,9 +37,13 @@
function psb_zget_nnz(a,desc_a,info) result(res)
use psb_base_mod, psb_protect_name => psb_zget_nnz
use psi_mod
use mpi
implicit none
#ifdef MPI_MOD
use mpi
#endif
implicit none
#ifdef MPI_H
include 'mpif.h'
#endif
integer(psb_lpk_) :: res
type(psb_zspmat_type), intent(in) :: a