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

Additional fixes for KIND in PSBLAS calls.

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