Fix issue with KIND for calling PSBLAS.

5 years ago · b3e482ff93
parent bad3aac784
commit b3e482ff93
4 changed files with 12 additions and 12 deletions
--- 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) 

--- 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) 

--- 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) 

--- 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)