fdurastante/amg4psblas
1
0
Fork 0
mirror of https://github.com/sfilippone/amg4psblas.git synced 2026-10-06 14:44:55 +00:00
Code Issues Packages Projects Releases Wiki Activity

Fix issue with KIND for calling PSBLAS.

Browse Source
This commit is contained in:
Salvatore Filippone
2020-02-02 15:35:50 +00:00
parent bad3aac784
commit b3e482ff93
4 changed files with 12 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files
mlprec/mld_c_mumps_solver.F90
+3 -3
View File
@@ -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)
mlprec/mld_d_mumps_solver.F90
+3 -3
View File
@@ -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)
mlprec/mld_s_mumps_solver.F90
+3 -3
View File
@@ -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)
mlprec/mld_z_mumps_solver.F90
+3 -3
View File
@@ -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)