fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-18 20:02:27 +00:00
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;
This commit is contained in:
Salvatore Filippone
2011-07-22 15:49:05 +00:00
parent f9e16f8340
commit 52205a2f63
4 changed files with 100 additions and 100 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/modules/psb_c_psblas_mod.f90
+27 -27
View File
@@ -206,12 +206,12 @@ module psb_c_psblas_mod
&trans, k, jx, jy,work,doswap)
use psb_descriptor_type, only : psb_desc_type, psb_spk_
use psb_mat_mod, only : psb_cspmat_type
type(psb_cspmat_type), intent(in) :: a
complex(psb_spk_), intent(inout) :: x(:,:)
complex(psb_spk_), intent(inout) :: y(:,:)
complex(psb_spk_), intent(in) :: alpha, beta
type(psb_desc_type), intent(in) :: desc_a
character, optional, intent(in) :: trans
type(psb_cspmat_type), intent(in) :: a
complex(psb_spk_), intent(inout), target :: x(:,:)
complex(psb_spk_), intent(inout), target :: y(:,:)
complex(psb_spk_), intent(in) :: alpha, beta
type(psb_desc_type), intent(in) :: desc_a
character, optional, intent(in) :: trans
complex(psb_spk_), optional, intent(inout),target :: work(:)
integer, optional, intent(in) :: k, jx, jy
logical, optional, intent(in) :: doswap
@@ -221,12 +221,12 @@ module psb_c_psblas_mod
& desc_a, info, trans, work,doswap)
use psb_descriptor_type, only : psb_desc_type, psb_spk_
use psb_mat_mod, only : psb_cspmat_type
type(psb_cspmat_type), intent(in) :: a
complex(psb_spk_), intent(inout) :: x(:)
complex(psb_spk_), intent(inout) :: y(:)
complex(psb_spk_), intent(in) :: alpha, beta
type(psb_desc_type), intent(in) :: desc_a
character, optional, intent(in) :: trans
type(psb_cspmat_type), intent(in) :: a
complex(psb_spk_), intent(inout), target :: x(:)
complex(psb_spk_), intent(inout), target :: y(:)
complex(psb_spk_), intent(in) :: alpha, beta
type(psb_desc_type), intent(in) :: desc_a
character, optional, intent(in) :: trans
complex(psb_spk_), optional, intent(inout),target :: work(:)
logical, optional, intent(in) :: doswap
integer, intent(out) :: info
@@ -239,14 +239,14 @@ module psb_c_psblas_mod
& diag, n, jx, jy, work)
use psb_descriptor_type, only : psb_desc_type, psb_spk_
use psb_mat_mod, only : psb_cspmat_type
type(psb_cspmat_type), intent(in) :: t
complex(psb_spk_), intent(in) :: x(:,:)
complex(psb_spk_), intent(inout) :: y(:,:)
complex(psb_spk_), intent(in) :: alpha, beta
type(psb_desc_type), intent(in) :: desc_a
character, optional, intent(in) :: trans, scale
integer, optional, intent(in) :: n, jx, jy
integer, optional, intent(in) :: choice
type(psb_cspmat_type), intent(in) :: t
complex(psb_spk_), intent(in), target :: x(:,:)
complex(psb_spk_), intent(inout), target :: y(:,:)
complex(psb_spk_), intent(in) :: alpha, beta
type(psb_desc_type), intent(in) :: desc_a
character, optional, intent(in) :: trans, scale
integer, optional, intent(in) :: n, jx, jy
integer, optional, intent(in) :: choice
complex(psb_spk_), optional, intent(in), target :: diag(:)
complex(psb_spk_), optional, intent(inout), target :: work(:)
integer, intent(out) :: info
@@ -256,13 +256,13 @@ module psb_c_psblas_mod
& diag, work)
use psb_descriptor_type, only : psb_desc_type, psb_spk_
use psb_mat_mod, only : psb_cspmat_type
type(psb_cspmat_type), intent(in) :: t
complex(psb_spk_), intent(in) :: x(:)
complex(psb_spk_), intent(inout) :: y(:)
complex(psb_spk_), intent(in) :: alpha, beta
type(psb_desc_type), intent(in) :: desc_a
character, optional, intent(in) :: trans, scale
integer, optional, intent(in) :: choice
type(psb_cspmat_type), intent(in) :: t
complex(psb_spk_), intent(in), target :: x(:)
complex(psb_spk_), intent(inout), target :: y(:)
complex(psb_spk_), intent(in) :: alpha, beta
type(psb_desc_type), intent(in) :: desc_a
character, optional, intent(in) :: trans, scale
integer, optional, intent(in) :: choice
complex(psb_spk_), optional, intent(in), target :: diag(:)
complex(psb_spk_), optional, intent(inout), target :: work(:)
integer, intent(out) :: info
base/modules/psb_d_psblas_mod.f90
+19 -19
View File
@@ -217,12 +217,12 @@ module psb_d_psblas_mod
&trans, k, jx, jy,work,doswap)
use psb_descriptor_type, only : psb_desc_type, psb_dpk_
use psb_mat_mod, only : psb_dspmat_type
type(psb_dspmat_type), intent(in) :: a
real(psb_dpk_), intent(inout) :: x(:,:)
real(psb_dpk_), intent(inout) :: y(:,:)
real(psb_dpk_), intent(in) :: alpha, beta
type(psb_desc_type), intent(in) :: desc_a
character, optional, intent(in) :: trans
type(psb_dspmat_type), intent(in) :: a
real(psb_dpk_), intent(inout), target :: x(:,:)
real(psb_dpk_), intent(inout), target :: y(:,:)
real(psb_dpk_), intent(in) :: alpha, beta
type(psb_desc_type), intent(in) :: desc_a
character, optional, intent(in) :: trans
real(psb_dpk_), optional, intent(inout),target :: work(:)
integer, optional, intent(in) :: k, jx, jy
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_mat_mod, only : psb_dspmat_type
type(psb_dspmat_type), intent(in) :: a
real(psb_dpk_), intent(inout) :: x(:)
real(psb_dpk_), intent(inout) :: y(:)
real(psb_dpk_), intent(inout), target :: x(:)
real(psb_dpk_), intent(inout), target :: y(:)
real(psb_dpk_), intent(in) :: alpha, beta
type(psb_desc_type), intent(in) :: desc_a
character, optional, intent(in) :: trans
@@ -250,14 +250,14 @@ module psb_d_psblas_mod
& diag, n, jx, jy, work)
use psb_descriptor_type, only : psb_desc_type, psb_dpk_
use psb_mat_mod, only : psb_dspmat_type
type(psb_dspmat_type), intent(in) :: t
real(psb_dpk_), intent(in) :: x(:,:)
real(psb_dpk_), intent(inout) :: y(:,:)
real(psb_dpk_), intent(in) :: alpha, beta
type(psb_desc_type), intent(in) :: desc_a
character, optional, intent(in) :: trans, scale
integer, optional, intent(in) :: n, jx, jy
integer, optional, intent(in) :: choice
type(psb_dspmat_type), intent(in) :: t
real(psb_dpk_), intent(in), target :: x(:,:)
real(psb_dpk_), intent(inout), target :: y(:,:)
real(psb_dpk_), intent(in) :: alpha, beta
type(psb_desc_type), intent(in) :: desc_a
character, optional, intent(in) :: trans, scale
integer, optional, intent(in) :: n, jx, jy
integer, optional, intent(in) :: choice
real(psb_dpk_), optional, intent(in), target :: diag(:)
real(psb_dpk_), optional, intent(inout), target :: work(:)
integer, intent(out) :: info
@@ -267,9 +267,9 @@ module psb_d_psblas_mod
& diag, work)
use psb_descriptor_type, only : psb_desc_type, psb_dpk_
use psb_mat_mod, only : psb_dspmat_type
type(psb_dspmat_type), intent(in) :: t
real(psb_dpk_), intent(in) :: x(:)
real(psb_dpk_), intent(inout) :: y(:)
type(psb_dspmat_type), intent(in) :: t
real(psb_dpk_), intent(in), target :: x(:)
real(psb_dpk_), intent(inout), target :: y(:)
real(psb_dpk_), intent(in) :: alpha, beta
type(psb_desc_type), intent(in) :: desc_a
character, optional, intent(in) :: trans, scale
base/modules/psb_s_psblas_mod.f90
+27 -27
View File
@@ -206,12 +206,12 @@ module psb_s_psblas_mod
&trans, k, jx, jy,work,doswap)
use psb_descriptor_type, only : psb_desc_type, psb_spk_
use psb_mat_mod, only : psb_sspmat_type
type(psb_sspmat_type), intent(in) :: a
real(psb_spk_), intent(inout) :: x(:,:)
real(psb_spk_), intent(inout) :: y(:,:)
real(psb_spk_), intent(in) :: alpha, beta
type(psb_desc_type), intent(in) :: desc_a
character, optional, intent(in) :: trans
type(psb_sspmat_type), intent(in) :: a
real(psb_spk_), intent(inout), target :: x(:,:)
real(psb_spk_), intent(inout), target :: y(:,:)
real(psb_spk_), intent(in) :: alpha, beta
type(psb_desc_type), intent(in) :: desc_a
character, optional, intent(in) :: trans
real(psb_spk_), optional, intent(inout),target :: work(:)
integer, optional, intent(in) :: k, jx, jy
logical, optional, intent(in) :: doswap
@@ -221,12 +221,12 @@ module psb_s_psblas_mod
& desc_a, info, trans, work,doswap)
use psb_descriptor_type, only : psb_desc_type, psb_spk_
use psb_mat_mod, only : psb_sspmat_type
type(psb_sspmat_type), intent(in) :: a
real(psb_spk_), intent(inout) :: x(:)
real(psb_spk_), intent(inout) :: y(:)
real(psb_spk_), intent(in) :: alpha, beta
type(psb_desc_type), intent(in) :: desc_a
character, optional, intent(in) :: trans
type(psb_sspmat_type), intent(in) :: a
real(psb_spk_), intent(inout), target :: x(:)
real(psb_spk_), intent(inout), target :: y(:)
real(psb_spk_), intent(in) :: alpha, beta
type(psb_desc_type), intent(in) :: desc_a
character, optional, intent(in) :: trans
real(psb_spk_), optional, intent(inout),target :: work(:)
logical, optional, intent(in) :: doswap
integer, intent(out) :: info
@@ -239,14 +239,14 @@ module psb_s_psblas_mod
& diag, n, jx, jy, work)
use psb_descriptor_type, only : psb_desc_type, psb_spk_
use psb_mat_mod, only : psb_sspmat_type
type(psb_sspmat_type), intent(in) :: t
real(psb_spk_), intent(in) :: x(:,:)
real(psb_spk_), intent(inout) :: y(:,:)
real(psb_spk_), intent(in) :: alpha, beta
type(psb_desc_type), intent(in) :: desc_a
character, optional, intent(in) :: trans, scale
integer, optional, intent(in) :: n, jx, jy
integer, optional, intent(in) :: choice
type(psb_sspmat_type), intent(in) :: t
real(psb_spk_), intent(in), target :: x(:,:)
real(psb_spk_), intent(inout), target :: y(:,:)
real(psb_spk_), intent(in) :: alpha, beta
type(psb_desc_type), intent(in) :: desc_a
character, optional, intent(in) :: trans, scale
integer, optional, intent(in) :: n, jx, jy
integer, optional, intent(in) :: choice
real(psb_spk_), optional, intent(in),target :: diag(:)
real(psb_spk_), optional, intent(inout),target :: work(:)
integer, intent(out) :: info
@@ -256,13 +256,13 @@ module psb_s_psblas_mod
& diag, work)
use psb_descriptor_type, only : psb_desc_type, psb_spk_
use psb_mat_mod, only : psb_sspmat_type
type(psb_sspmat_type), intent(in) :: t
real(psb_spk_), intent(in) :: x(:)
real(psb_spk_), intent(inout) :: y(:)
real(psb_spk_), intent(in) :: alpha, beta
type(psb_desc_type), intent(in) :: desc_a
character, optional, intent(in) :: trans, scale
integer, optional, intent(in) :: choice
type(psb_sspmat_type), intent(in) :: t
real(psb_spk_), intent(in), target :: x(:)
real(psb_spk_), intent(inout), target :: y(:)
real(psb_spk_), intent(in) :: alpha, beta
type(psb_desc_type), intent(in) :: desc_a
character, optional, intent(in) :: trans, scale
integer, optional, intent(in) :: choice
real(psb_spk_), optional, intent(in), target :: diag(:)
real(psb_spk_), optional, intent(inout), target :: work(:)
integer, intent(out) :: info
base/modules/psb_z_psblas_mod.f90
+27 -27
View File
@@ -206,12 +206,12 @@ module psb_z_psblas_mod
&trans, k, jx, jy,work,doswap)
use psb_descriptor_type, only : psb_desc_type, psb_dpk_
use psb_mat_mod, only : psb_zspmat_type
type(psb_zspmat_type), intent(in) :: a
complex(psb_dpk_), intent(inout) :: x(:,:)
complex(psb_dpk_), intent(inout) :: y(:,:)
complex(psb_dpk_), intent(in) :: alpha, beta
type(psb_desc_type), intent(in) :: desc_a
character, optional, intent(in) :: trans
type(psb_zspmat_type), intent(in) :: a
complex(psb_dpk_), intent(inout), target :: x(:,:)
complex(psb_dpk_), intent(inout), target :: y(:,:)
complex(psb_dpk_), intent(in) :: alpha, beta
type(psb_desc_type), intent(in) :: desc_a
character, optional, intent(in) :: trans
complex(psb_dpk_), optional, intent(inout),target :: work(:)
integer, optional, intent(in) :: k, jx, jy
logical, optional, intent(in) :: doswap
@@ -221,12 +221,12 @@ module psb_z_psblas_mod
& desc_a, info, trans, work,doswap)
use psb_descriptor_type, only : psb_desc_type, psb_dpk_
use psb_mat_mod, only : psb_zspmat_type
type(psb_zspmat_type), intent(in) :: a
complex(psb_dpk_), intent(inout) :: x(:)
complex(psb_dpk_), intent(inout) :: y(:)
complex(psb_dpk_), intent(in) :: alpha, beta
type(psb_desc_type), intent(in) :: desc_a
character, optional, intent(in) :: trans
type(psb_zspmat_type), intent(in) :: a
complex(psb_dpk_), intent(inout), target :: x(:)
complex(psb_dpk_), intent(inout), target :: y(:)
complex(psb_dpk_), intent(in) :: alpha, beta
type(psb_desc_type), intent(in) :: desc_a
character, optional, intent(in) :: trans
complex(psb_dpk_), optional, intent(inout),target :: work(:)
logical, optional, intent(in) :: doswap
integer, intent(out) :: info
@@ -239,14 +239,14 @@ module psb_z_psblas_mod
& diag, n, jx, jy, work)
use psb_descriptor_type, only : psb_desc_type, psb_dpk_
use psb_mat_mod, only : psb_zspmat_type
type(psb_zspmat_type), intent(in) :: t
complex(psb_dpk_), intent(in) :: x(:,:)
complex(psb_dpk_), intent(inout) :: y(:,:)
complex(psb_dpk_), intent(in) :: alpha, beta
type(psb_desc_type), intent(in) :: desc_a
character, optional, intent(in) :: trans, scale
integer, optional, intent(in) :: n, jx, jy
integer, optional, intent(in) :: choice
type(psb_zspmat_type), intent(in) :: t
complex(psb_dpk_), intent(in), target :: x(:,:)
complex(psb_dpk_), intent(inout), target :: y(:,:)
complex(psb_dpk_), intent(in) :: alpha, beta
type(psb_desc_type), intent(in) :: desc_a
character, optional, intent(in) :: trans, scale
integer, optional, intent(in) :: n, jx, jy
integer, optional, intent(in) :: choice
complex(psb_dpk_), optional, intent(in), target :: diag(:)
complex(psb_dpk_), optional, intent(inout), target :: work(:)
integer, intent(out) :: info
@@ -256,13 +256,13 @@ module psb_z_psblas_mod
& diag, work)
use psb_descriptor_type, only : psb_desc_type, psb_dpk_
use psb_mat_mod, only : psb_zspmat_type
type(psb_zspmat_type), intent(in) :: t
complex(psb_dpk_), intent(in) :: x(:)
complex(psb_dpk_), intent(inout) :: y(:)
complex(psb_dpk_), intent(in) :: alpha, beta
type(psb_desc_type), intent(in) :: desc_a
character, optional, intent(in) :: trans, scale
integer, optional, intent(in) :: choice
type(psb_zspmat_type), intent(in) :: t
complex(psb_dpk_), intent(in), target :: x(:)
complex(psb_dpk_), intent(inout), target :: y(:)
complex(psb_dpk_), intent(in) :: alpha, beta
type(psb_desc_type), intent(in) :: desc_a
character, optional, intent(in) :: trans, scale
integer, optional, intent(in) :: choice
complex(psb_dpk_), optional, intent(in), target :: diag(:)
complex(psb_dpk_), optional, intent(inout), target :: work(:)
integer, intent(out) :: info