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

psblas3:

Browse Source 
base/modules/psb_c_psblas_mod.f90
 base/modules/psb_d_psblas_mod.f90
 base/modules/psb_s_psblas_mod.f90
 base/modules/psb_z_psblas_mod.f90
Further fixes for  interface problems uncovered by Cray compiler;
psblas3-type-indexed
Salvatore Filippone 13 years ago
parent f9e16f8340
commit 52205a2f63
4 changed files with 100 additions and 100 deletions
Show Stats Download Patch File Download Diff File

54
base/modules/psb_c_psblas_mod.f90
Unescape Escape View File

@ -206,12 +206,12 @@ module psb_c_psblas_mod
&trans, k, jx, jy,work,doswap) &trans, k, jx, jy,work,doswap)
use psb_descriptor_type, only : psb_desc_type, psb_spk_ use psb_descriptor_type, only : psb_desc_type, psb_spk_
use psb_mat_mod, only : psb_cspmat_type use psb_mat_mod, only : psb_cspmat_type
type(psb_cspmat_type), intent(in) :: a type(psb_cspmat_type), intent(in) :: a
complex(psb_spk_), intent(inout) :: x(:,:) complex(psb_spk_), intent(inout), target :: x(:,:)
complex(psb_spk_), intent(inout) :: y(:,:) complex(psb_spk_), intent(inout), target :: y(:,:)
complex(psb_spk_), intent(in) :: alpha, beta complex(psb_spk_), intent(in) :: alpha, beta
type(psb_desc_type), intent(in) :: desc_a type(psb_desc_type), intent(in) :: desc_a
character, optional, intent(in) :: trans character, optional, intent(in) :: trans
complex(psb_spk_), optional, intent(inout),target :: work(:) complex(psb_spk_), optional, intent(inout),target :: work(:)
integer, optional, intent(in) :: k, jx, jy integer, optional, intent(in) :: k, jx, jy
logical, optional, intent(in) :: doswap logical, optional, intent(in) :: doswap
@ -221,12 +221,12 @@ module psb_c_psblas_mod
& desc_a, info, trans, work,doswap) & desc_a, info, trans, work,doswap)
use psb_descriptor_type, only : psb_desc_type, psb_spk_ use psb_descriptor_type, only : psb_desc_type, psb_spk_
use psb_mat_mod, only : psb_cspmat_type use psb_mat_mod, only : psb_cspmat_type
type(psb_cspmat_type), intent(in) :: a type(psb_cspmat_type), intent(in) :: a
complex(psb_spk_), intent(inout) :: x(:) complex(psb_spk_), intent(inout), target :: x(:)
complex(psb_spk_), intent(inout) :: y(:) complex(psb_spk_), intent(inout), target :: y(:)
complex(psb_spk_), intent(in) :: alpha, beta complex(psb_spk_), intent(in) :: alpha, beta
type(psb_desc_type), intent(in) :: desc_a type(psb_desc_type), intent(in) :: desc_a
character, optional, intent(in) :: trans character, optional, intent(in) :: trans
complex(psb_spk_), optional, intent(inout),target :: work(:) complex(psb_spk_), optional, intent(inout),target :: work(:)
logical, optional, intent(in) :: doswap logical, optional, intent(in) :: doswap
integer, intent(out) :: info integer, intent(out) :: info
@ -239,14 +239,14 @@ module psb_c_psblas_mod
& diag, n, jx, jy, work) & diag, n, jx, jy, work)
use psb_descriptor_type, only : psb_desc_type, psb_spk_ use psb_descriptor_type, only : psb_desc_type, psb_spk_
use psb_mat_mod, only : psb_cspmat_type use psb_mat_mod, only : psb_cspmat_type
type(psb_cspmat_type), intent(in) :: t type(psb_cspmat_type), intent(in) :: t
complex(psb_spk_), intent(in) :: x(:,:) complex(psb_spk_), intent(in), target :: x(:,:)
complex(psb_spk_), intent(inout) :: y(:,:) complex(psb_spk_), intent(inout), target :: y(:,:)
complex(psb_spk_), intent(in) :: alpha, beta complex(psb_spk_), intent(in) :: alpha, beta
type(psb_desc_type), intent(in) :: desc_a type(psb_desc_type), intent(in) :: desc_a
character, optional, intent(in) :: trans, scale character, optional, intent(in) :: trans, scale
integer, optional, intent(in) :: n, jx, jy integer, optional, intent(in) :: n, jx, jy
integer, optional, intent(in) :: choice integer, optional, intent(in) :: choice
complex(psb_spk_), optional, intent(in), target :: diag(:) complex(psb_spk_), optional, intent(in), target :: diag(:)
complex(psb_spk_), optional, intent(inout), target :: work(:) complex(psb_spk_), optional, intent(inout), target :: work(:)
integer, intent(out) :: info integer, intent(out) :: info
@ -256,13 +256,13 @@ module psb_c_psblas_mod
& diag, work) & diag, work)
use psb_descriptor_type, only : psb_desc_type, psb_spk_ use psb_descriptor_type, only : psb_desc_type, psb_spk_
use psb_mat_mod, only : psb_cspmat_type use psb_mat_mod, only : psb_cspmat_type
type(psb_cspmat_type), intent(in) :: t type(psb_cspmat_type), intent(in) :: t
complex(psb_spk_), intent(in) :: x(:) complex(psb_spk_), intent(in), target :: x(:)
complex(psb_spk_), intent(inout) :: y(:) complex(psb_spk_), intent(inout), target :: y(:)
complex(psb_spk_), intent(in) :: alpha, beta complex(psb_spk_), intent(in) :: alpha, beta
type(psb_desc_type), intent(in) :: desc_a type(psb_desc_type), intent(in) :: desc_a
character, optional, intent(in) :: trans, scale character, optional, intent(in) :: trans, scale
integer, optional, intent(in) :: choice integer, optional, intent(in) :: choice
complex(psb_spk_), optional, intent(in), target :: diag(:) complex(psb_spk_), optional, intent(in), target :: diag(:)
complex(psb_spk_), optional, intent(inout), target :: work(:) complex(psb_spk_), optional, intent(inout), target :: work(:)
integer, intent(out) :: info integer, intent(out) :: info

38
base/modules/psb_d_psblas_mod.f90
Unescape Escape View File

@ -217,12 +217,12 @@ module psb_d_psblas_mod
&trans, k, jx, jy,work,doswap) &trans, k, jx, jy,work,doswap)
use psb_descriptor_type, only : psb_desc_type, psb_dpk_ use psb_descriptor_type, only : psb_desc_type, psb_dpk_
use psb_mat_mod, only : psb_dspmat_type use psb_mat_mod, only : psb_dspmat_type
type(psb_dspmat_type), intent(in) :: a type(psb_dspmat_type), intent(in) :: a
real(psb_dpk_), intent(inout) :: x(:,:) real(psb_dpk_), intent(inout), target :: x(:,:)
real(psb_dpk_), intent(inout) :: y(:,:) real(psb_dpk_), intent(inout), target :: y(:,:)
real(psb_dpk_), intent(in) :: alpha, beta real(psb_dpk_), intent(in) :: alpha, beta
type(psb_desc_type), intent(in) :: desc_a type(psb_desc_type), intent(in) :: desc_a
character, optional, intent(in) :: trans character, optional, intent(in) :: trans
real(psb_dpk_), optional, intent(inout),target :: work(:) real(psb_dpk_), optional, intent(inout),target :: work(:)
integer, optional, intent(in) :: k, jx, jy integer, optional, intent(in) :: k, jx, jy
logical, optional, intent(in) :: doswap logical, optional, intent(in) :: doswap
@ -233,8 +233,8 @@ module psb_d_psblas_mod
use psb_descriptor_type, only : psb_desc_type, psb_dpk_ use psb_descriptor_type, only : psb_desc_type, psb_dpk_
use psb_mat_mod, only : psb_dspmat_type use psb_mat_mod, only : psb_dspmat_type
type(psb_dspmat_type), intent(in) :: a type(psb_dspmat_type), intent(in) :: a
real(psb_dpk_), intent(inout) :: x(:) real(psb_dpk_), intent(inout), target :: x(:)
real(psb_dpk_), intent(inout) :: y(:) real(psb_dpk_), intent(inout), target :: y(:)
real(psb_dpk_), intent(in) :: alpha, beta real(psb_dpk_), intent(in) :: alpha, beta
type(psb_desc_type), intent(in) :: desc_a type(psb_desc_type), intent(in) :: desc_a
character, optional, intent(in) :: trans character, optional, intent(in) :: trans
@ -250,14 +250,14 @@ module psb_d_psblas_mod
& diag, n, jx, jy, work) & diag, n, jx, jy, work)
use psb_descriptor_type, only : psb_desc_type, psb_dpk_ use psb_descriptor_type, only : psb_desc_type, psb_dpk_
use psb_mat_mod, only : psb_dspmat_type use psb_mat_mod, only : psb_dspmat_type
type(psb_dspmat_type), intent(in) :: t type(psb_dspmat_type), intent(in) :: t
real(psb_dpk_), intent(in) :: x(:,:) real(psb_dpk_), intent(in), target :: x(:,:)
real(psb_dpk_), intent(inout) :: y(:,:) real(psb_dpk_), intent(inout), target :: y(:,:)
real(psb_dpk_), intent(in) :: alpha, beta real(psb_dpk_), intent(in) :: alpha, beta
type(psb_desc_type), intent(in) :: desc_a type(psb_desc_type), intent(in) :: desc_a
character, optional, intent(in) :: trans, scale character, optional, intent(in) :: trans, scale
integer, optional, intent(in) :: n, jx, jy integer, optional, intent(in) :: n, jx, jy
integer, optional, intent(in) :: choice integer, optional, intent(in) :: choice
real(psb_dpk_), optional, intent(in), target :: diag(:) real(psb_dpk_), optional, intent(in), target :: diag(:)
real(psb_dpk_), optional, intent(inout), target :: work(:) real(psb_dpk_), optional, intent(inout), target :: work(:)
integer, intent(out) :: info integer, intent(out) :: info
@ -267,9 +267,9 @@ module psb_d_psblas_mod
& diag, work) & diag, work)
use psb_descriptor_type, only : psb_desc_type, psb_dpk_ use psb_descriptor_type, only : psb_desc_type, psb_dpk_
use psb_mat_mod, only : psb_dspmat_type use psb_mat_mod, only : psb_dspmat_type
type(psb_dspmat_type), intent(in) :: t type(psb_dspmat_type), intent(in) :: t
real(psb_dpk_), intent(in) :: x(:) real(psb_dpk_), intent(in), target :: x(:)
real(psb_dpk_), intent(inout) :: y(:) real(psb_dpk_), intent(inout), target :: y(:)
real(psb_dpk_), intent(in) :: alpha, beta real(psb_dpk_), intent(in) :: alpha, beta
type(psb_desc_type), intent(in) :: desc_a type(psb_desc_type), intent(in) :: desc_a
character, optional, intent(in) :: trans, scale character, optional, intent(in) :: trans, scale

54
base/modules/psb_s_psblas_mod.f90
Unescape Escape View File

@ -206,12 +206,12 @@ module psb_s_psblas_mod
&trans, k, jx, jy,work,doswap) &trans, k, jx, jy,work,doswap)
use psb_descriptor_type, only : psb_desc_type, psb_spk_ use psb_descriptor_type, only : psb_desc_type, psb_spk_
use psb_mat_mod, only : psb_sspmat_type use psb_mat_mod, only : psb_sspmat_type
type(psb_sspmat_type), intent(in) :: a type(psb_sspmat_type), intent(in) :: a
real(psb_spk_), intent(inout) :: x(:,:) real(psb_spk_), intent(inout), target :: x(:,:)
real(psb_spk_), intent(inout) :: y(:,:) real(psb_spk_), intent(inout), target :: y(:,:)
real(psb_spk_), intent(in) :: alpha, beta real(psb_spk_), intent(in) :: alpha, beta
type(psb_desc_type), intent(in) :: desc_a type(psb_desc_type), intent(in) :: desc_a
character, optional, intent(in) :: trans character, optional, intent(in) :: trans
real(psb_spk_), optional, intent(inout),target :: work(:) real(psb_spk_), optional, intent(inout),target :: work(:)
integer, optional, intent(in) :: k, jx, jy integer, optional, intent(in) :: k, jx, jy
logical, optional, intent(in) :: doswap logical, optional, intent(in) :: doswap
@ -221,12 +221,12 @@ module psb_s_psblas_mod
& desc_a, info, trans, work,doswap) & desc_a, info, trans, work,doswap)
use psb_descriptor_type, only : psb_desc_type, psb_spk_ use psb_descriptor_type, only : psb_desc_type, psb_spk_
use psb_mat_mod, only : psb_sspmat_type use psb_mat_mod, only : psb_sspmat_type
type(psb_sspmat_type), intent(in) :: a type(psb_sspmat_type), intent(in) :: a
real(psb_spk_), intent(inout) :: x(:) real(psb_spk_), intent(inout), target :: x(:)
real(psb_spk_), intent(inout) :: y(:) real(psb_spk_), intent(inout), target :: y(:)
real(psb_spk_), intent(in) :: alpha, beta real(psb_spk_), intent(in) :: alpha, beta
type(psb_desc_type), intent(in) :: desc_a type(psb_desc_type), intent(in) :: desc_a
character, optional, intent(in) :: trans character, optional, intent(in) :: trans
real(psb_spk_), optional, intent(inout),target :: work(:) real(psb_spk_), optional, intent(inout),target :: work(:)
logical, optional, intent(in) :: doswap logical, optional, intent(in) :: doswap
integer, intent(out) :: info integer, intent(out) :: info
@ -239,14 +239,14 @@ module psb_s_psblas_mod
& diag, n, jx, jy, work) & diag, n, jx, jy, work)
use psb_descriptor_type, only : psb_desc_type, psb_spk_ use psb_descriptor_type, only : psb_desc_type, psb_spk_
use psb_mat_mod, only : psb_sspmat_type use psb_mat_mod, only : psb_sspmat_type
type(psb_sspmat_type), intent(in) :: t type(psb_sspmat_type), intent(in) :: t
real(psb_spk_), intent(in) :: x(:,:) real(psb_spk_), intent(in), target :: x(:,:)
real(psb_spk_), intent(inout) :: y(:,:) real(psb_spk_), intent(inout), target :: y(:,:)
real(psb_spk_), intent(in) :: alpha, beta real(psb_spk_), intent(in) :: alpha, beta
type(psb_desc_type), intent(in) :: desc_a type(psb_desc_type), intent(in) :: desc_a
character, optional, intent(in) :: trans, scale character, optional, intent(in) :: trans, scale
integer, optional, intent(in) :: n, jx, jy integer, optional, intent(in) :: n, jx, jy
integer, optional, intent(in) :: choice integer, optional, intent(in) :: choice
real(psb_spk_), optional, intent(in),target :: diag(:) real(psb_spk_), optional, intent(in),target :: diag(:)
real(psb_spk_), optional, intent(inout),target :: work(:) real(psb_spk_), optional, intent(inout),target :: work(:)
integer, intent(out) :: info integer, intent(out) :: info
@ -256,13 +256,13 @@ module psb_s_psblas_mod
& diag, work) & diag, work)
use psb_descriptor_type, only : psb_desc_type, psb_spk_ use psb_descriptor_type, only : psb_desc_type, psb_spk_
use psb_mat_mod, only : psb_sspmat_type use psb_mat_mod, only : psb_sspmat_type
type(psb_sspmat_type), intent(in) :: t type(psb_sspmat_type), intent(in) :: t
real(psb_spk_), intent(in) :: x(:) real(psb_spk_), intent(in), target :: x(:)
real(psb_spk_), intent(inout) :: y(:) real(psb_spk_), intent(inout), target :: y(:)
real(psb_spk_), intent(in) :: alpha, beta real(psb_spk_), intent(in) :: alpha, beta
type(psb_desc_type), intent(in) :: desc_a type(psb_desc_type), intent(in) :: desc_a
character, optional, intent(in) :: trans, scale character, optional, intent(in) :: trans, scale
integer, optional, intent(in) :: choice integer, optional, intent(in) :: choice
real(psb_spk_), optional, intent(in), target :: diag(:) real(psb_spk_), optional, intent(in), target :: diag(:)
real(psb_spk_), optional, intent(inout), target :: work(:) real(psb_spk_), optional, intent(inout), target :: work(:)
integer, intent(out) :: info integer, intent(out) :: info

54
base/modules/psb_z_psblas_mod.f90
Unescape Escape View File

@ -206,12 +206,12 @@ module psb_z_psblas_mod
&trans, k, jx, jy,work,doswap) &trans, k, jx, jy,work,doswap)
use psb_descriptor_type, only : psb_desc_type, psb_dpk_ use psb_descriptor_type, only : psb_desc_type, psb_dpk_
use psb_mat_mod, only : psb_zspmat_type use psb_mat_mod, only : psb_zspmat_type
type(psb_zspmat_type), intent(in) :: a type(psb_zspmat_type), intent(in) :: a
complex(psb_dpk_), intent(inout) :: x(:,:) complex(psb_dpk_), intent(inout), target :: x(:,:)
complex(psb_dpk_), intent(inout) :: y(:,:) complex(psb_dpk_), intent(inout), target :: y(:,:)
complex(psb_dpk_), intent(in) :: alpha, beta complex(psb_dpk_), intent(in) :: alpha, beta
type(psb_desc_type), intent(in) :: desc_a type(psb_desc_type), intent(in) :: desc_a
character, optional, intent(in) :: trans character, optional, intent(in) :: trans
complex(psb_dpk_), optional, intent(inout),target :: work(:) complex(psb_dpk_), optional, intent(inout),target :: work(:)
integer, optional, intent(in) :: k, jx, jy integer, optional, intent(in) :: k, jx, jy
logical, optional, intent(in) :: doswap logical, optional, intent(in) :: doswap
@ -221,12 +221,12 @@ module psb_z_psblas_mod
& desc_a, info, trans, work,doswap) & desc_a, info, trans, work,doswap)
use psb_descriptor_type, only : psb_desc_type, psb_dpk_ use psb_descriptor_type, only : psb_desc_type, psb_dpk_
use psb_mat_mod, only : psb_zspmat_type use psb_mat_mod, only : psb_zspmat_type
type(psb_zspmat_type), intent(in) :: a type(psb_zspmat_type), intent(in) :: a
complex(psb_dpk_), intent(inout) :: x(:) complex(psb_dpk_), intent(inout), target :: x(:)
complex(psb_dpk_), intent(inout) :: y(:) complex(psb_dpk_), intent(inout), target :: y(:)
complex(psb_dpk_), intent(in) :: alpha, beta complex(psb_dpk_), intent(in) :: alpha, beta
type(psb_desc_type), intent(in) :: desc_a type(psb_desc_type), intent(in) :: desc_a
character, optional, intent(in) :: trans character, optional, intent(in) :: trans
complex(psb_dpk_), optional, intent(inout),target :: work(:) complex(psb_dpk_), optional, intent(inout),target :: work(:)
logical, optional, intent(in) :: doswap logical, optional, intent(in) :: doswap
integer, intent(out) :: info integer, intent(out) :: info
@ -239,14 +239,14 @@ module psb_z_psblas_mod
& diag, n, jx, jy, work) & diag, n, jx, jy, work)
use psb_descriptor_type, only : psb_desc_type, psb_dpk_ use psb_descriptor_type, only : psb_desc_type, psb_dpk_
use psb_mat_mod, only : psb_zspmat_type use psb_mat_mod, only : psb_zspmat_type
type(psb_zspmat_type), intent(in) :: t type(psb_zspmat_type), intent(in) :: t
complex(psb_dpk_), intent(in) :: x(:,:) complex(psb_dpk_), intent(in), target :: x(:,:)
complex(psb_dpk_), intent(inout) :: y(:,:) complex(psb_dpk_), intent(inout), target :: y(:,:)
complex(psb_dpk_), intent(in) :: alpha, beta complex(psb_dpk_), intent(in) :: alpha, beta
type(psb_desc_type), intent(in) :: desc_a type(psb_desc_type), intent(in) :: desc_a
character, optional, intent(in) :: trans, scale character, optional, intent(in) :: trans, scale
integer, optional, intent(in) :: n, jx, jy integer, optional, intent(in) :: n, jx, jy
integer, optional, intent(in) :: choice integer, optional, intent(in) :: choice
complex(psb_dpk_), optional, intent(in), target :: diag(:) complex(psb_dpk_), optional, intent(in), target :: diag(:)
complex(psb_dpk_), optional, intent(inout), target :: work(:) complex(psb_dpk_), optional, intent(inout), target :: work(:)
integer, intent(out) :: info integer, intent(out) :: info
@ -256,13 +256,13 @@ module psb_z_psblas_mod
& diag, work) & diag, work)
use psb_descriptor_type, only : psb_desc_type, psb_dpk_ use psb_descriptor_type, only : psb_desc_type, psb_dpk_
use psb_mat_mod, only : psb_zspmat_type use psb_mat_mod, only : psb_zspmat_type
type(psb_zspmat_type), intent(in) :: t type(psb_zspmat_type), intent(in) :: t
complex(psb_dpk_), intent(in) :: x(:) complex(psb_dpk_), intent(in), target :: x(:)
complex(psb_dpk_), intent(inout) :: y(:) complex(psb_dpk_), intent(inout), target :: y(:)
complex(psb_dpk_), intent(in) :: alpha, beta complex(psb_dpk_), intent(in) :: alpha, beta
type(psb_desc_type), intent(in) :: desc_a type(psb_desc_type), intent(in) :: desc_a
character, optional, intent(in) :: trans, scale character, optional, intent(in) :: trans, scale
integer, optional, intent(in) :: choice integer, optional, intent(in) :: choice
complex(psb_dpk_), optional, intent(in), target :: diag(:) complex(psb_dpk_), optional, intent(in), target :: diag(:)
complex(psb_dpk_), optional, intent(inout), target :: work(:) complex(psb_dpk_), optional, intent(inout), target :: work(:)
integer, intent(out) :: info integer, intent(out) :: info

Write Preview
Loading…
Cancel
Save