From b3e482ff93ebc49541e96582e73bd7c2f6997463 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Sun, 2 Feb 2020 15:35:50 +0000 Subject: [PATCH] Fix issue with KIND for calling PSBLAS. --- mlprec/mld_c_mumps_solver.F90 | 6 +++--- mlprec/mld_d_mumps_solver.F90 | 6 +++--- mlprec/mld_s_mumps_solver.F90 | 6 +++--- mlprec/mld_z_mumps_solver.F90 | 6 +++--- 4 files changed, 12 insertions(+), 12 deletions(-) diff --git a/mlprec/mld_c_mumps_solver.F90 b/mlprec/mld_c_mumps_solver.F90 index bdb10d60..62822cf0 100644 --- a/mlprec/mld_c_mumps_solver.F90 +++ b/mlprec/mld_c_mumps_solver.F90 @@ -223,9 +223,9 @@ contains ! Arguments type(mld_c_mumps_solver_type), intent(inout) :: sv - integer :: info - Integer :: err_act - character(len=20) :: name='c_mumps_solver_finalize' + integer(psb_ipk_) :: info + Integer(psb_ipk_) :: err_act + character(len=20) :: name='c_mumps_solver_finalize' call sv%free(info) diff --git a/mlprec/mld_d_mumps_solver.F90 b/mlprec/mld_d_mumps_solver.F90 index 2f61528a..0be364f4 100644 --- a/mlprec/mld_d_mumps_solver.F90 +++ b/mlprec/mld_d_mumps_solver.F90 @@ -223,9 +223,9 @@ contains ! Arguments type(mld_d_mumps_solver_type), intent(inout) :: sv - integer :: info - Integer :: err_act - character(len=20) :: name='d_mumps_solver_finalize' + integer(psb_ipk_) :: info + Integer(psb_ipk_) :: err_act + character(len=20) :: name='d_mumps_solver_finalize' call sv%free(info) diff --git a/mlprec/mld_s_mumps_solver.F90 b/mlprec/mld_s_mumps_solver.F90 index 7782d1cc..43792f90 100644 --- a/mlprec/mld_s_mumps_solver.F90 +++ b/mlprec/mld_s_mumps_solver.F90 @@ -223,9 +223,9 @@ contains ! Arguments type(mld_s_mumps_solver_type), intent(inout) :: sv - integer :: info - Integer :: err_act - character(len=20) :: name='s_mumps_solver_finalize' + integer(psb_ipk_) :: info + Integer(psb_ipk_) :: err_act + character(len=20) :: name='s_mumps_solver_finalize' call sv%free(info) diff --git a/mlprec/mld_z_mumps_solver.F90 b/mlprec/mld_z_mumps_solver.F90 index 8d894c0e..f216f248 100644 --- a/mlprec/mld_z_mumps_solver.F90 +++ b/mlprec/mld_z_mumps_solver.F90 @@ -223,9 +223,9 @@ contains ! Arguments type(mld_z_mumps_solver_type), intent(inout) :: sv - integer :: info - Integer :: err_act - character(len=20) :: name='z_mumps_solver_finalize' + integer(psb_ipk_) :: info + Integer(psb_ipk_) :: err_act + character(len=20) :: name='z_mumps_solver_finalize' call sv%free(info)