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

Version with LX for RWEXTD.

Browse Source
ILmat
Salvatore Filippone 8 years ago
parent f21ee70271
commit dccf69dfca
4 changed files with 96 additions and 16 deletions
Show Stats Download Patch File Download Diff File

28
base/modules/serial/psb_c_serial_mod.f90
Unescape Escape View File

@ -119,9 +119,9 @@ module psb_c_serial_mod
use psb_c_mat_mod, only : psb_cspmat_type use psb_c_mat_mod, only : psb_cspmat_type
import :: psb_ipk_ import :: psb_ipk_
implicit none implicit none
integer(psb_ipk_), intent(in) :: nr integer(psb_ipk_), intent(in) :: nr
type(psb_cspmat_type), intent(inout) :: a type(psb_cspmat_type), intent(inout) :: a
integer(psb_ipk_),intent(out) :: info integer(psb_ipk_),intent(out) :: info
type(psb_cspmat_type), intent(in), optional :: b type(psb_cspmat_type), intent(in), optional :: b
logical,intent(in), optional :: rowscale logical,intent(in), optional :: rowscale
end subroutine psb_crwextd end subroutine psb_crwextd
@ -129,12 +129,32 @@ module psb_c_serial_mod
use psb_c_mat_mod, only : psb_c_base_sparse_mat use psb_c_mat_mod, only : psb_c_base_sparse_mat
import :: psb_ipk_ import :: psb_ipk_
implicit none implicit none
integer(psb_ipk_), intent(in) :: nr integer(psb_ipk_), intent(in) :: nr
class(psb_c_base_sparse_mat), intent(inout) :: a class(psb_c_base_sparse_mat), intent(inout) :: a
integer(psb_ipk_),intent(out) :: info integer(psb_ipk_),intent(out) :: info
class(psb_c_base_sparse_mat), intent(in), optional :: b class(psb_c_base_sparse_mat), intent(in), optional :: b
logical,intent(in), optional :: rowscale logical,intent(in), optional :: rowscale
end subroutine psb_cbase_rwextd end subroutine psb_cbase_rwextd
subroutine psb_lcrwextd(nr,a,info,b,rowscale)
use psb_c_mat_mod, only : psb_lcspmat_type
import :: psb_ipk_, psb_lpk_
implicit none
integer(psb_lpk_), intent(in) :: nr
type(psb_lcspmat_type), intent(inout) :: a
integer(psb_ipk_),intent(out) :: info
type(psb_lcspmat_type), intent(in), optional :: b
logical,intent(in), optional :: rowscale
end subroutine psb_lcrwextd
subroutine psb_lcbase_rwextd(nr,a,info,b,rowscale)
use psb_c_mat_mod, only : psb_lc_base_sparse_mat
import :: psb_ipk_, psb_lpk_
implicit none
integer(psb_lpk_), intent(in) :: nr
class(psb_lc_base_sparse_mat), intent(inout) :: a
integer(psb_ipk_),intent(out) :: info
class(psb_lc_base_sparse_mat), intent(in), optional :: b
logical,intent(in), optional :: rowscale
end subroutine psb_lcbase_rwextd
end interface psb_rwextd end interface psb_rwextd

28
base/modules/serial/psb_d_serial_mod.f90
Unescape Escape View File

@ -119,9 +119,9 @@ module psb_d_serial_mod
use psb_d_mat_mod, only : psb_dspmat_type use psb_d_mat_mod, only : psb_dspmat_type
import :: psb_ipk_ import :: psb_ipk_
implicit none implicit none
integer(psb_ipk_), intent(in) :: nr integer(psb_ipk_), intent(in) :: nr
type(psb_dspmat_type), intent(inout) :: a type(psb_dspmat_type), intent(inout) :: a
integer(psb_ipk_),intent(out) :: info integer(psb_ipk_),intent(out) :: info
type(psb_dspmat_type), intent(in), optional :: b type(psb_dspmat_type), intent(in), optional :: b
logical,intent(in), optional :: rowscale logical,intent(in), optional :: rowscale
end subroutine psb_drwextd end subroutine psb_drwextd
@ -129,12 +129,32 @@ module psb_d_serial_mod
use psb_d_mat_mod, only : psb_d_base_sparse_mat use psb_d_mat_mod, only : psb_d_base_sparse_mat
import :: psb_ipk_ import :: psb_ipk_
implicit none implicit none
integer(psb_ipk_), intent(in) :: nr integer(psb_ipk_), intent(in) :: nr
class(psb_d_base_sparse_mat), intent(inout) :: a class(psb_d_base_sparse_mat), intent(inout) :: a
integer(psb_ipk_),intent(out) :: info integer(psb_ipk_),intent(out) :: info
class(psb_d_base_sparse_mat), intent(in), optional :: b class(psb_d_base_sparse_mat), intent(in), optional :: b
logical,intent(in), optional :: rowscale logical,intent(in), optional :: rowscale
end subroutine psb_dbase_rwextd end subroutine psb_dbase_rwextd
subroutine psb_ldrwextd(nr,a,info,b,rowscale)
use psb_d_mat_mod, only : psb_ldspmat_type
import :: psb_ipk_, psb_lpk_
implicit none
integer(psb_lpk_), intent(in) :: nr
type(psb_ldspmat_type), intent(inout) :: a
integer(psb_ipk_),intent(out) :: info
type(psb_ldspmat_type), intent(in), optional :: b
logical,intent(in), optional :: rowscale
end subroutine psb_ldrwextd
subroutine psb_ldbase_rwextd(nr,a,info,b,rowscale)
use psb_d_mat_mod, only : psb_ld_base_sparse_mat
import :: psb_ipk_, psb_lpk_
implicit none
integer(psb_lpk_), intent(in) :: nr
class(psb_ld_base_sparse_mat), intent(inout) :: a
integer(psb_ipk_),intent(out) :: info
class(psb_ld_base_sparse_mat), intent(in), optional :: b
logical,intent(in), optional :: rowscale
end subroutine psb_ldbase_rwextd
end interface psb_rwextd end interface psb_rwextd

28
base/modules/serial/psb_s_serial_mod.f90
Unescape Escape View File

@ -119,9 +119,9 @@ module psb_s_serial_mod
use psb_s_mat_mod, only : psb_sspmat_type use psb_s_mat_mod, only : psb_sspmat_type
import :: psb_ipk_ import :: psb_ipk_
implicit none implicit none
integer(psb_ipk_), intent(in) :: nr integer(psb_ipk_), intent(in) :: nr
type(psb_sspmat_type), intent(inout) :: a type(psb_sspmat_type), intent(inout) :: a
integer(psb_ipk_),intent(out) :: info integer(psb_ipk_),intent(out) :: info
type(psb_sspmat_type), intent(in), optional :: b type(psb_sspmat_type), intent(in), optional :: b
logical,intent(in), optional :: rowscale logical,intent(in), optional :: rowscale
end subroutine psb_srwextd end subroutine psb_srwextd
@ -129,12 +129,32 @@ module psb_s_serial_mod
use psb_s_mat_mod, only : psb_s_base_sparse_mat use psb_s_mat_mod, only : psb_s_base_sparse_mat
import :: psb_ipk_ import :: psb_ipk_
implicit none implicit none
integer(psb_ipk_), intent(in) :: nr integer(psb_ipk_), intent(in) :: nr
class(psb_s_base_sparse_mat), intent(inout) :: a class(psb_s_base_sparse_mat), intent(inout) :: a
integer(psb_ipk_),intent(out) :: info integer(psb_ipk_),intent(out) :: info
class(psb_s_base_sparse_mat), intent(in), optional :: b class(psb_s_base_sparse_mat), intent(in), optional :: b
logical,intent(in), optional :: rowscale logical,intent(in), optional :: rowscale
end subroutine psb_sbase_rwextd end subroutine psb_sbase_rwextd
subroutine psb_lsrwextd(nr,a,info,b,rowscale)
use psb_s_mat_mod, only : psb_lsspmat_type
import :: psb_ipk_, psb_lpk_
implicit none
integer(psb_lpk_), intent(in) :: nr
type(psb_lsspmat_type), intent(inout) :: a
integer(psb_ipk_),intent(out) :: info
type(psb_lsspmat_type), intent(in), optional :: b
logical,intent(in), optional :: rowscale
end subroutine psb_lsrwextd
subroutine psb_lsbase_rwextd(nr,a,info,b,rowscale)
use psb_s_mat_mod, only : psb_ls_base_sparse_mat
import :: psb_ipk_, psb_lpk_
implicit none
integer(psb_lpk_), intent(in) :: nr
class(psb_ls_base_sparse_mat), intent(inout) :: a
integer(psb_ipk_),intent(out) :: info
class(psb_ls_base_sparse_mat), intent(in), optional :: b
logical,intent(in), optional :: rowscale
end subroutine psb_lsbase_rwextd
end interface psb_rwextd end interface psb_rwextd

28
base/modules/serial/psb_z_serial_mod.f90
Unescape Escape View File

@ -119,9 +119,9 @@ module psb_z_serial_mod
use psb_z_mat_mod, only : psb_zspmat_type use psb_z_mat_mod, only : psb_zspmat_type
import :: psb_ipk_ import :: psb_ipk_
implicit none implicit none
integer(psb_ipk_), intent(in) :: nr integer(psb_ipk_), intent(in) :: nr
type(psb_zspmat_type), intent(inout) :: a type(psb_zspmat_type), intent(inout) :: a
integer(psb_ipk_),intent(out) :: info integer(psb_ipk_),intent(out) :: info
type(psb_zspmat_type), intent(in), optional :: b type(psb_zspmat_type), intent(in), optional :: b
logical,intent(in), optional :: rowscale logical,intent(in), optional :: rowscale
end subroutine psb_zrwextd end subroutine psb_zrwextd
@ -129,12 +129,32 @@ module psb_z_serial_mod
use psb_z_mat_mod, only : psb_z_base_sparse_mat use psb_z_mat_mod, only : psb_z_base_sparse_mat
import :: psb_ipk_ import :: psb_ipk_
implicit none implicit none
integer(psb_ipk_), intent(in) :: nr integer(psb_ipk_), intent(in) :: nr
class(psb_z_base_sparse_mat), intent(inout) :: a class(psb_z_base_sparse_mat), intent(inout) :: a
integer(psb_ipk_),intent(out) :: info integer(psb_ipk_),intent(out) :: info
class(psb_z_base_sparse_mat), intent(in), optional :: b class(psb_z_base_sparse_mat), intent(in), optional :: b
logical,intent(in), optional :: rowscale logical,intent(in), optional :: rowscale
end subroutine psb_zbase_rwextd end subroutine psb_zbase_rwextd
subroutine psb_lzrwextd(nr,a,info,b,rowscale)
use psb_z_mat_mod, only : psb_lzspmat_type
import :: psb_ipk_, psb_lpk_
implicit none
integer(psb_lpk_), intent(in) :: nr
type(psb_lzspmat_type), intent(inout) :: a
integer(psb_ipk_),intent(out) :: info
type(psb_lzspmat_type), intent(in), optional :: b
logical,intent(in), optional :: rowscale
end subroutine psb_lzrwextd
subroutine psb_lzbase_rwextd(nr,a,info,b,rowscale)
use psb_z_mat_mod, only : psb_lz_base_sparse_mat
import :: psb_ipk_, psb_lpk_
implicit none
integer(psb_lpk_), intent(in) :: nr
class(psb_lz_base_sparse_mat), intent(inout) :: a
integer(psb_ipk_),intent(out) :: info
class(psb_lz_base_sparse_mat), intent(in), optional :: b
logical,intent(in), optional :: rowscale
end subroutine psb_lzbase_rwextd
end interface psb_rwextd end interface psb_rwextd

Write Preview
Loading…
Cancel
Save