From 2a8291489d65f41970e211d1fba43abd3556e2de Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Sun, 2 Feb 2020 15:39:36 +0000 Subject: [PATCH] Additional fixes for KIND in PSBLAS calls. --- mlprec/mld_c_mumps_solver.F90 | 2 +- mlprec/mld_d_mumps_solver.F90 | 2 +- mlprec/mld_s_mumps_solver.F90 | 2 +- mlprec/mld_z_mumps_solver.F90 | 2 +- 4 files changed, 4 insertions(+), 4 deletions(-) diff --git a/mlprec/mld_c_mumps_solver.F90 b/mlprec/mld_c_mumps_solver.F90 index 62822cf0..d8189072 100644 --- a/mlprec/mld_c_mumps_solver.F90 +++ b/mlprec/mld_c_mumps_solver.F90 @@ -127,7 +127,7 @@ module mld_c_mumps_solver character(len=1),intent(in) :: trans complex(psb_spk_),target, intent(inout) :: work(:) type(psb_c_vect_type),intent(inout) :: wv(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, intent(in), optional :: init type(psb_c_vect_type),intent(inout), optional :: initu end subroutine c_mumps_solver_apply_vect diff --git a/mlprec/mld_d_mumps_solver.F90 b/mlprec/mld_d_mumps_solver.F90 index 0be364f4..1b7d4357 100644 --- a/mlprec/mld_d_mumps_solver.F90 +++ b/mlprec/mld_d_mumps_solver.F90 @@ -127,7 +127,7 @@ module mld_d_mumps_solver character(len=1),intent(in) :: trans real(psb_dpk_),target, intent(inout) :: work(:) type(psb_d_vect_type),intent(inout) :: wv(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, intent(in), optional :: init type(psb_d_vect_type),intent(inout), optional :: initu end subroutine d_mumps_solver_apply_vect diff --git a/mlprec/mld_s_mumps_solver.F90 b/mlprec/mld_s_mumps_solver.F90 index 43792f90..5875ec9e 100644 --- a/mlprec/mld_s_mumps_solver.F90 +++ b/mlprec/mld_s_mumps_solver.F90 @@ -127,7 +127,7 @@ module mld_s_mumps_solver character(len=1),intent(in) :: trans real(psb_spk_),target, intent(inout) :: work(:) type(psb_s_vect_type),intent(inout) :: wv(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, intent(in), optional :: init type(psb_s_vect_type),intent(inout), optional :: initu end subroutine s_mumps_solver_apply_vect diff --git a/mlprec/mld_z_mumps_solver.F90 b/mlprec/mld_z_mumps_solver.F90 index f216f248..68cda68e 100644 --- a/mlprec/mld_z_mumps_solver.F90 +++ b/mlprec/mld_z_mumps_solver.F90 @@ -127,7 +127,7 @@ module mld_z_mumps_solver character(len=1),intent(in) :: trans complex(psb_dpk_),target, intent(inout) :: work(:) type(psb_z_vect_type),intent(inout) :: wv(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, intent(in), optional :: init type(psb_z_vect_type),intent(inout), optional :: initu end subroutine z_mumps_solver_apply_vect