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

Minor interface updates.

Browse Source
This commit is contained in:
Salvatore Filippone
2008-01-02 11:29:37 +00:00
parent 54ae8fa06a
commit 776a6929c2
3 changed files with 26 additions and 26 deletions
Download Patch File Download Diff File Expand all files Collapse all files
mlprec/mld_dbjac_aply.f90
+8 -8
View File
@@ -138,14 +138,14 @@ subroutine mld_dbjac_aply(alpha,prec,x,beta,y,desc_data,trans,work,info)
implicit none
! Arguments
type(psb_desc_type), intent(in) :: desc_data
type(mld_dbaseprc_type), intent(in) :: prec
real(kind(0.d0)),intent(in) :: x(:)
real(kind(0.d0)),intent(inout) :: y(:)
real(kind(0.d0)),intent(in) :: alpha,beta
character(len=1) :: trans
real(kind(0.d0)),target :: work(:)
integer, intent(out) :: info
type(psb_desc_type), intent(in) :: desc_data
type(mld_dbaseprc_type), intent(in) :: prec
real(kind(0.d0)),intent(in) :: x(:)
real(kind(0.d0)),intent(inout) :: y(:)
real(kind(0.d0)),intent(in) :: alpha,beta
character(len=1), intent(in) :: trans
real(kind(0.d0)),target, intent(inout) :: work(:)
integer, intent(out) :: info
! Local variables
integer :: n_row,n_col
mlprec/mld_prec_mod.f90
+10 -10
View File
@@ -269,21 +269,21 @@ module mld_prec_mod
real(kind(0.d0)),intent(in) :: x(:)
real(kind(0.d0)),intent(inout) :: y(:)
real(kind(0.d0)),intent(in) :: alpha,beta
character(len=1) :: trans
real(kind(0.d0)),target :: work(:)
character(len=1),intent(in) :: trans
real(kind(0.d0)),target,intent(inout) :: work(:)
integer, intent(out) :: info
end subroutine mld_dbjac_aply
subroutine mld_zbjac_aply(alpha,prec,x,beta,y,desc_data,trans,work,info)
use psb_base_mod
use mld_prec_type
type(psb_desc_type), intent(in) :: desc_data
type(mld_zbaseprc_type), intent(in) :: prec
complex(kind(0.d0)),intent(in) :: x(:)
complex(kind(0.d0)),intent(inout) :: y(:)
complex(kind(0.d0)),intent(in) :: alpha,beta
character(len=1) :: trans
complex(kind(0.d0)),target :: work(:)
integer, intent(out) :: info
type(psb_desc_type), intent(in) :: desc_data
type(mld_zbaseprc_type), intent(in) :: prec
complex(kind(0.d0)),intent(in) :: x(:)
complex(kind(0.d0)),intent(inout) :: y(:)
complex(kind(0.d0)),intent(in) :: alpha,beta
character(len=1),intent(in) :: trans
complex(kind(0.d0)),target,intent(inout) :: work(:)
integer, intent(out) :: info
end subroutine mld_zbjac_aply
end interface
mlprec/mld_zbjac_aply.f90
+8 -8
View File
@@ -138,14 +138,14 @@ subroutine mld_zbjac_aply(alpha,prec,x,beta,y,desc_data,trans,work,info)
implicit none
! Arguments
type(psb_desc_type), intent(in) :: desc_data
type(mld_zbaseprc_type), intent(in) :: prec
complex(kind(0.d0)),intent(in) :: x(:)
complex(kind(0.d0)),intent(inout) :: y(:)
complex(kind(0.d0)),intent(in) :: alpha,beta
character(len=1) :: trans
complex(kind(0.d0)),target :: work(:)
integer, intent(out) :: info
type(psb_desc_type), intent(in) :: desc_data
type(mld_zbaseprc_type), intent(in) :: prec
complex(kind(0.d0)),intent(in) :: x(:)
complex(kind(0.d0)),intent(inout) :: y(:)
complex(kind(0.d0)),intent(in) :: alpha,beta
character(len=1), intent(in) :: trans
complex(kind(0.d0)),target, intent(inout) :: work(:)
integer, intent(out) :: info
! Local variables
integer :: n_row,n_col