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

Fixes for LLVM compilation

Browse Source
This commit is contained in:
sfilippone
2024-03-22 17:10:30 +01:00
parent 373d841bce
commit 3a25d7b04a
19 changed files with 61 additions and 29 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/comm/internals/psi_cswapdata_a.F90
+2 -2
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_
base/comm/internals/psi_cswaptran_a.F90
+2 -2
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_
base/comm/internals/psi_dswapdata_a.F90
+2 -2
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_
base/comm/internals/psi_dswaptran_a.F90
+2 -2
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_
base/comm/internals/psi_eswapdata_a.F90
+2 -2
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_
base/comm/internals/psi_eswaptran_a.F90
+2 -2
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_
base/comm/internals/psi_i2swapdata_a.F90
+2 -2
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_
base/comm/internals/psi_i2swaptran_a.F90
+2 -2
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_
base/comm/internals/psi_mswapdata_a.F90
+2 -2
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_
base/comm/internals/psi_mswaptran_a.F90
+2 -2
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_
base/comm/internals/psi_sswapdata_a.F90
+2 -2
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_
base/comm/internals/psi_sswaptran_a.F90
+2 -2
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_
base/comm/internals/psi_zswapdata_a.F90
+2 -2
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_
base/comm/internals/psi_zswaptran_a.F90
+2 -2
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_