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

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

@ -207,8 +207,8 @@ module psb_c_psblas_mod
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
@ -222,8 +222,8 @@ module psb_c_psblas_mod
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
@ -240,8 +240,8 @@ module psb_c_psblas_mod
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
@ -257,8 +257,8 @@ module psb_c_psblas_mod
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

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

@ -218,8 +218,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
@ -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
@ -251,8 +251,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) :: 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
@ -268,8 +268,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) :: 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

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

@ -207,8 +207,8 @@ module psb_s_psblas_mod
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
@ -222,8 +222,8 @@ module psb_s_psblas_mod
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
@ -240,8 +240,8 @@ module psb_s_psblas_mod
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
@ -257,8 +257,8 @@ module psb_s_psblas_mod
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

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

@ -207,8 +207,8 @@ module psb_z_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_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
@ -222,8 +222,8 @@ module psb_z_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_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
@ -240,8 +240,8 @@ module psb_z_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_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
@ -257,8 +257,8 @@ module psb_z_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_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

Write Preview
Loading…
Cancel
Save