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

Fixes for LLVM compilation

Browse Source
repack-llvm
sfilippone 11 months ago
parent 373d841bce
commit 3a25d7b04a
19 changed files with 61 additions and 29 deletions
Show Stats Download Patch File Download Diff File

4
base/comm/internals/psi_cswapdata_a.F90
Unescape Escape View File

@ -191,7 +191,7 @@ subroutine psi_cswapidxm(ctxt,icomm,flag,n,beta,y,idx, &
logical, parameter :: usersend=.false.
complex(psb_spk_), pointer, dimension(:) :: sndbuf, rcvbuf
volatile :: sndbuf, rcvbuf
!volatile :: sndbuf, rcvbuf
character(len=20) :: name
info=psb_success_
@ -676,7 +676,7 @@ subroutine psi_cswapidxv(ctxt,icomm,flag,beta,y,idx, &
logical, parameter :: usersend=.false.
complex(psb_spk_), pointer, dimension(:) :: sndbuf, rcvbuf
volatile :: sndbuf, rcvbuf
!volatile :: sndbuf, rcvbuf
character(len=20) :: name
info=psb_success_

4
base/comm/internals/psi_cswaptran_a.F90
Unescape Escape View File

@ -195,7 +195,7 @@ subroutine psi_ctranidxm(ctxt,icomm,flag,n,beta,y,idx,&
logical, parameter :: usersend=.false.
complex(psb_spk_), pointer, dimension(:) :: sndbuf, rcvbuf
volatile :: sndbuf, rcvbuf
!volatile :: sndbuf, rcvbuf
character(len=20) :: name
info=psb_success_
@ -688,7 +688,7 @@ subroutine psi_ctranidxv(ctxt,icomm,flag,beta,y,idx,&
logical, parameter :: usersend=.false.
complex(psb_spk_), pointer, dimension(:) :: sndbuf, rcvbuf
volatile :: sndbuf, rcvbuf
!volatile :: sndbuf, rcvbuf
character(len=20) :: name
info=psb_success_

4
base/comm/internals/psi_dswapdata_a.F90
Unescape Escape View File

@ -191,7 +191,7 @@ subroutine psi_dswapidxm(ctxt,icomm,flag,n,beta,y,idx, &
logical, parameter :: usersend=.false.
real(psb_dpk_), pointer, dimension(:) :: sndbuf, rcvbuf
volatile :: sndbuf, rcvbuf
!volatile :: sndbuf, rcvbuf
character(len=20) :: name
info=psb_success_
@ -676,7 +676,7 @@ subroutine psi_dswapidxv(ctxt,icomm,flag,beta,y,idx, &
logical, parameter :: usersend=.false.
real(psb_dpk_), pointer, dimension(:) :: sndbuf, rcvbuf
volatile :: sndbuf, rcvbuf
!volatile :: sndbuf, rcvbuf
character(len=20) :: name
info=psb_success_

4
base/comm/internals/psi_dswaptran_a.F90
Unescape Escape View File

@ -195,7 +195,7 @@ subroutine psi_dtranidxm(ctxt,icomm,flag,n,beta,y,idx,&
logical, parameter :: usersend=.false.
real(psb_dpk_), pointer, dimension(:) :: sndbuf, rcvbuf
volatile :: sndbuf, rcvbuf
!volatile :: sndbuf, rcvbuf
character(len=20) :: name
info=psb_success_
@ -688,7 +688,7 @@ subroutine psi_dtranidxv(ctxt,icomm,flag,beta,y,idx,&
logical, parameter :: usersend=.false.
real(psb_dpk_), pointer, dimension(:) :: sndbuf, rcvbuf
volatile :: sndbuf, rcvbuf
!volatile :: sndbuf, rcvbuf
character(len=20) :: name
info=psb_success_

4
base/comm/internals/psi_eswapdata_a.F90
Unescape Escape View File

@ -191,7 +191,7 @@ subroutine psi_eswapidxm(ctxt,icomm,flag,n,beta,y,idx, &
logical, parameter :: usersend=.false.
integer(psb_epk_), pointer, dimension(:) :: sndbuf, rcvbuf
volatile :: sndbuf, rcvbuf
!volatile :: sndbuf, rcvbuf
character(len=20) :: name
info=psb_success_
@ -676,7 +676,7 @@ subroutine psi_eswapidxv(ctxt,icomm,flag,beta,y,idx, &
logical, parameter :: usersend=.false.
integer(psb_epk_), pointer, dimension(:) :: sndbuf, rcvbuf
volatile :: sndbuf, rcvbuf
!volatile :: sndbuf, rcvbuf
character(len=20) :: name
info=psb_success_

4
base/comm/internals/psi_eswaptran_a.F90
Unescape Escape View File

@ -195,7 +195,7 @@ subroutine psi_etranidxm(ctxt,icomm,flag,n,beta,y,idx,&
logical, parameter :: usersend=.false.
integer(psb_epk_), pointer, dimension(:) :: sndbuf, rcvbuf
volatile :: sndbuf, rcvbuf
!volatile :: sndbuf, rcvbuf
character(len=20) :: name
info=psb_success_
@ -688,7 +688,7 @@ subroutine psi_etranidxv(ctxt,icomm,flag,beta,y,idx,&
logical, parameter :: usersend=.false.
integer(psb_epk_), pointer, dimension(:) :: sndbuf, rcvbuf
volatile :: sndbuf, rcvbuf
!volatile :: sndbuf, rcvbuf
character(len=20) :: name
info=psb_success_

4
base/comm/internals/psi_i2swapdata_a.F90
Unescape Escape View File

@ -191,7 +191,7 @@ subroutine psi_i2swapidxm(ctxt,icomm,flag,n,beta,y,idx, &
logical, parameter :: usersend=.false.
integer(psb_i2pk_), pointer, dimension(:) :: sndbuf, rcvbuf
volatile :: sndbuf, rcvbuf
!volatile :: sndbuf, rcvbuf
character(len=20) :: name
info=psb_success_
@ -676,7 +676,7 @@ subroutine psi_i2swapidxv(ctxt,icomm,flag,beta,y,idx, &
logical, parameter :: usersend=.false.
integer(psb_i2pk_), pointer, dimension(:) :: sndbuf, rcvbuf
volatile :: sndbuf, rcvbuf
!volatile :: sndbuf, rcvbuf
character(len=20) :: name
info=psb_success_

4
base/comm/internals/psi_i2swaptran_a.F90
Unescape Escape View File

@ -195,7 +195,7 @@ subroutine psi_i2tranidxm(ctxt,icomm,flag,n,beta,y,idx,&
logical, parameter :: usersend=.false.
integer(psb_i2pk_), pointer, dimension(:) :: sndbuf, rcvbuf
volatile :: sndbuf, rcvbuf
!volatile :: sndbuf, rcvbuf
character(len=20) :: name
info=psb_success_
@ -688,7 +688,7 @@ subroutine psi_i2tranidxv(ctxt,icomm,flag,beta,y,idx,&
logical, parameter :: usersend=.false.
integer(psb_i2pk_), pointer, dimension(:) :: sndbuf, rcvbuf
volatile :: sndbuf, rcvbuf
!volatile :: sndbuf, rcvbuf
character(len=20) :: name
info=psb_success_

4
base/comm/internals/psi_mswapdata_a.F90
Unescape Escape View File

@ -191,7 +191,7 @@ subroutine psi_mswapidxm(ctxt,icomm,flag,n,beta,y,idx, &
logical, parameter :: usersend=.false.
integer(psb_mpk_), pointer, dimension(:) :: sndbuf, rcvbuf
volatile :: sndbuf, rcvbuf
!volatile :: sndbuf, rcvbuf
character(len=20) :: name
info=psb_success_
@ -676,7 +676,7 @@ subroutine psi_mswapidxv(ctxt,icomm,flag,beta,y,idx, &
logical, parameter :: usersend=.false.
integer(psb_mpk_), pointer, dimension(:) :: sndbuf, rcvbuf
volatile :: sndbuf, rcvbuf
!volatile :: sndbuf, rcvbuf
character(len=20) :: name
info=psb_success_

4
base/comm/internals/psi_mswaptran_a.F90
Unescape Escape View File

@ -195,7 +195,7 @@ subroutine psi_mtranidxm(ctxt,icomm,flag,n,beta,y,idx,&
logical, parameter :: usersend=.false.
integer(psb_mpk_), pointer, dimension(:) :: sndbuf, rcvbuf
volatile :: sndbuf, rcvbuf
!volatile :: sndbuf, rcvbuf
character(len=20) :: name
info=psb_success_
@ -688,7 +688,7 @@ subroutine psi_mtranidxv(ctxt,icomm,flag,beta,y,idx,&
logical, parameter :: usersend=.false.
integer(psb_mpk_), pointer, dimension(:) :: sndbuf, rcvbuf
volatile :: sndbuf, rcvbuf
!volatile :: sndbuf, rcvbuf
character(len=20) :: name
info=psb_success_

4
base/comm/internals/psi_sswapdata_a.F90
Unescape Escape View File

@ -191,7 +191,7 @@ subroutine psi_sswapidxm(ctxt,icomm,flag,n,beta,y,idx, &
logical, parameter :: usersend=.false.
real(psb_spk_), pointer, dimension(:) :: sndbuf, rcvbuf
volatile :: sndbuf, rcvbuf
!volatile :: sndbuf, rcvbuf
character(len=20) :: name
info=psb_success_
@ -676,7 +676,7 @@ subroutine psi_sswapidxv(ctxt,icomm,flag,beta,y,idx, &
logical, parameter :: usersend=.false.
real(psb_spk_), pointer, dimension(:) :: sndbuf, rcvbuf
volatile :: sndbuf, rcvbuf
!volatile :: sndbuf, rcvbuf
character(len=20) :: name
info=psb_success_

4
base/comm/internals/psi_sswaptran_a.F90
Unescape Escape View File

@ -195,7 +195,7 @@ subroutine psi_stranidxm(ctxt,icomm,flag,n,beta,y,idx,&
logical, parameter :: usersend=.false.
real(psb_spk_), pointer, dimension(:) :: sndbuf, rcvbuf
volatile :: sndbuf, rcvbuf
!volatile :: sndbuf, rcvbuf
character(len=20) :: name
info=psb_success_
@ -688,7 +688,7 @@ subroutine psi_stranidxv(ctxt,icomm,flag,beta,y,idx,&
logical, parameter :: usersend=.false.
real(psb_spk_), pointer, dimension(:) :: sndbuf, rcvbuf
volatile :: sndbuf, rcvbuf
!volatile :: sndbuf, rcvbuf
character(len=20) :: name
info=psb_success_

4
base/comm/internals/psi_zswapdata_a.F90
Unescape Escape View File

@ -191,7 +191,7 @@ subroutine psi_zswapidxm(ctxt,icomm,flag,n,beta,y,idx, &
logical, parameter :: usersend=.false.
complex(psb_dpk_), pointer, dimension(:) :: sndbuf, rcvbuf
volatile :: sndbuf, rcvbuf
!volatile :: sndbuf, rcvbuf
character(len=20) :: name
info=psb_success_
@ -676,7 +676,7 @@ subroutine psi_zswapidxv(ctxt,icomm,flag,beta,y,idx, &
logical, parameter :: usersend=.false.
complex(psb_dpk_), pointer, dimension(:) :: sndbuf, rcvbuf
volatile :: sndbuf, rcvbuf
!volatile :: sndbuf, rcvbuf
character(len=20) :: name
info=psb_success_

4
base/comm/internals/psi_zswaptran_a.F90
Unescape Escape View File

@ -195,7 +195,7 @@ subroutine psi_ztranidxm(ctxt,icomm,flag,n,beta,y,idx,&
logical, parameter :: usersend=.false.
complex(psb_dpk_), pointer, dimension(:) :: sndbuf, rcvbuf
volatile :: sndbuf, rcvbuf
!volatile :: sndbuf, rcvbuf
character(len=20) :: name
info=psb_success_
@ -688,7 +688,7 @@ subroutine psi_ztranidxv(ctxt,icomm,flag,beta,y,idx,&
logical, parameter :: usersend=.false.
complex(psb_dpk_), pointer, dimension(:) :: sndbuf, rcvbuf
volatile :: sndbuf, rcvbuf
!volatile :: sndbuf, rcvbuf
character(len=20) :: name
info=psb_success_

8
ext/psb_c_ell_mat_mod.f90
Unescape Escape View File

@ -94,6 +94,7 @@ module psb_c_ell_mat_mod
procedure, pass(a) :: print => psb_c_ell_print
procedure, pass(a) :: free => c_ell_free
procedure, pass(a) :: mold => psb_c_ell_mold
procedure, pass(a) :: get_nrm => c_ell_get_nrm
end type psb_c_ell_sparse_mat
@ -459,6 +460,13 @@ contains
res = 'ELL'
end function c_ell_get_fmt
function c_ell_get_nrm(a) result(res)
implicit none
class(psb_c_ell_sparse_mat), intent(in) :: a
integer(psb_ipk_) :: res
res = size(a%val,2)
end function c_ell_get_nrm
function c_ell_get_nzeros(a) result(res)
implicit none
class(psb_c_ell_sparse_mat), intent(in) :: a

8
ext/psb_d_ell_mat_mod.f90
Unescape Escape View File

@ -94,6 +94,7 @@ module psb_d_ell_mat_mod
procedure, pass(a) :: print => psb_d_ell_print
procedure, pass(a) :: free => d_ell_free
procedure, pass(a) :: mold => psb_d_ell_mold
procedure, pass(a) :: get_nrm => d_ell_get_nrm
end type psb_d_ell_sparse_mat
@ -459,6 +460,13 @@ contains
res = 'ELL'
end function d_ell_get_fmt
function d_ell_get_nrm(a) result(res)
implicit none
class(psb_d_ell_sparse_mat), intent(in) :: a
integer(psb_ipk_) :: res
res = size(a%val,2)
end function d_ell_get_nrm
function d_ell_get_nzeros(a) result(res)
implicit none
class(psb_d_ell_sparse_mat), intent(in) :: a

8
ext/psb_s_ell_mat_mod.f90
Unescape Escape View File

@ -94,6 +94,7 @@ module psb_s_ell_mat_mod
procedure, pass(a) :: print => psb_s_ell_print
procedure, pass(a) :: free => s_ell_free
procedure, pass(a) :: mold => psb_s_ell_mold
procedure, pass(a) :: get_nrm => s_ell_get_nrm
end type psb_s_ell_sparse_mat
@ -459,6 +460,13 @@ contains
res = 'ELL'
end function s_ell_get_fmt
function s_ell_get_nrm(a) result(res)
implicit none
class(psb_s_ell_sparse_mat), intent(in) :: a
integer(psb_ipk_) :: res
res = size(a%val,2)
end function s_ell_get_nrm
function s_ell_get_nzeros(a) result(res)
implicit none
class(psb_s_ell_sparse_mat), intent(in) :: a

8
ext/psb_z_ell_mat_mod.f90
Unescape Escape View File

@ -94,6 +94,7 @@ module psb_z_ell_mat_mod
procedure, pass(a) :: print => psb_z_ell_print
procedure, pass(a) :: free => z_ell_free
procedure, pass(a) :: mold => psb_z_ell_mold
procedure, pass(a) :: get_nrm => z_ell_get_nrm
end type psb_z_ell_sparse_mat
@ -459,6 +460,13 @@ contains
res = 'ELL'
end function z_ell_get_fmt
function z_ell_get_nrm(a) result(res)
implicit none
class(psb_z_ell_sparse_mat), intent(in) :: a
integer(psb_ipk_) :: res
res = size(a%val,2)
end function z_ell_get_nrm
function z_ell_get_nzeros(a) result(res)
implicit none
class(psb_z_ell_sparse_mat), intent(in) :: a

Write Preview
Loading…
Cancel
Save