fdurastante
/
amg4psblas
mirror of https://github.com/sfilippone/amg4psblas.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Minor interface updates.

Browse Source
stopcriterion
Salvatore Filippone 17 years ago
parent 54ae8fa06a
commit 776a6929c2
3 changed files with 26 additions and 26 deletions
Show Stats Download Patch File Download Diff File

16
mlprec/mld_dbjac_aply.f90
Unescape Escape View File

@ -138,14 +138,14 @@ subroutine mld_dbjac_aply(alpha,prec,x,beta,y,desc_data,trans,work,info)
implicit none implicit none
! Arguments ! Arguments
type(psb_desc_type), intent(in) :: desc_data type(psb_desc_type), intent(in) :: desc_data
type(mld_dbaseprc_type), intent(in) :: prec type(mld_dbaseprc_type), intent(in) :: prec
real(kind(0.d0)),intent(in) :: x(:) real(kind(0.d0)),intent(in) :: x(:)
real(kind(0.d0)),intent(inout) :: y(:) real(kind(0.d0)),intent(inout) :: y(:)
real(kind(0.d0)),intent(in) :: alpha,beta real(kind(0.d0)),intent(in) :: alpha,beta
character(len=1) :: trans character(len=1), intent(in) :: trans
real(kind(0.d0)),target :: work(:) real(kind(0.d0)),target, intent(inout) :: work(:)
integer, intent(out) :: info integer, intent(out) :: info
! Local variables ! Local variables
integer :: n_row,n_col integer :: n_row,n_col

20
mlprec/mld_prec_mod.f90
Unescape Escape View File

@ -269,21 +269,21 @@ module mld_prec_mod
real(kind(0.d0)),intent(in) :: x(:) real(kind(0.d0)),intent(in) :: x(:)
real(kind(0.d0)),intent(inout) :: y(:) real(kind(0.d0)),intent(inout) :: y(:)
real(kind(0.d0)),intent(in) :: alpha,beta real(kind(0.d0)),intent(in) :: alpha,beta
character(len=1) :: trans character(len=1),intent(in) :: trans
real(kind(0.d0)),target :: work(:) real(kind(0.d0)),target,intent(inout) :: work(:)
integer, intent(out) :: info integer, intent(out) :: info
end subroutine mld_dbjac_aply end subroutine mld_dbjac_aply
subroutine mld_zbjac_aply(alpha,prec,x,beta,y,desc_data,trans,work,info) subroutine mld_zbjac_aply(alpha,prec,x,beta,y,desc_data,trans,work,info)
use psb_base_mod use psb_base_mod
use mld_prec_type use mld_prec_type
type(psb_desc_type), intent(in) :: desc_data type(psb_desc_type), intent(in) :: desc_data
type(mld_zbaseprc_type), intent(in) :: prec type(mld_zbaseprc_type), intent(in) :: prec
complex(kind(0.d0)),intent(in) :: x(:) complex(kind(0.d0)),intent(in) :: x(:)
complex(kind(0.d0)),intent(inout) :: y(:) complex(kind(0.d0)),intent(inout) :: y(:)
complex(kind(0.d0)),intent(in) :: alpha,beta complex(kind(0.d0)),intent(in) :: alpha,beta
character(len=1) :: trans character(len=1),intent(in) :: trans
complex(kind(0.d0)),target :: work(:) complex(kind(0.d0)),target,intent(inout) :: work(:)
integer, intent(out) :: info integer, intent(out) :: info
end subroutine mld_zbjac_aply end subroutine mld_zbjac_aply
end interface end interface

16
mlprec/mld_zbjac_aply.f90
Unescape Escape View File

@ -138,14 +138,14 @@ subroutine mld_zbjac_aply(alpha,prec,x,beta,y,desc_data,trans,work,info)
implicit none implicit none
! Arguments ! Arguments
type(psb_desc_type), intent(in) :: desc_data type(psb_desc_type), intent(in) :: desc_data
type(mld_zbaseprc_type), intent(in) :: prec type(mld_zbaseprc_type), intent(in) :: prec
complex(kind(0.d0)),intent(in) :: x(:) complex(kind(0.d0)),intent(in) :: x(:)
complex(kind(0.d0)),intent(inout) :: y(:) complex(kind(0.d0)),intent(inout) :: y(:)
complex(kind(0.d0)),intent(in) :: alpha,beta complex(kind(0.d0)),intent(in) :: alpha,beta
character(len=1) :: trans character(len=1), intent(in) :: trans
complex(kind(0.d0)),target :: work(:) complex(kind(0.d0)),target, intent(inout) :: work(:)
integer, intent(out) :: info integer, intent(out) :: info
! Local variables ! Local variables
integer :: n_row,n_col integer :: n_row,n_col

Write Preview
Loading…
Cancel
Save