fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-06 22:55:08 +00:00
Code Issues Packages Projects Releases Wiki Activity

Fix INTEL compilation issue with swapdata_a

Browse Source
This commit is contained in:
sfilippone
2026-09-04 17:32:07 +02:00
parent f15bd7bc3d
commit a9401d784d
14 changed files with 28 additions and 28 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/comm/internals/psi_cswapdata_a.F90
+2 -2
View File
@@ -124,7 +124,7 @@ complex(psb_spk_), target :: work(:)
goto 9999
endif
if (.not.psb_is_asb_desc(desc_a)) then
if (.not.desc_a%is_asb()) then
info=psb_err_invalid_cd_state_
call psb_errpush(info,name)
goto 9999
@@ -591,7 +591,7 @@ complex(psb_spk_), pointer, dimension(:) :: sndbuf, rcvbuf
goto 9999
endif
if (.not.psb_is_asb_desc(desc_a)) then
if (.not.desc_a%is_asb()) then
info=psb_err_invalid_cd_state_
call psb_errpush(info,name)
goto 9999
base/comm/internals/psi_cswaptran_a.F90
+2 -2
View File
@@ -131,7 +131,7 @@ contains
goto 9999
endif
if (.not.psb_is_asb_desc(desc_a)) then
if (.not.desc_a%is_asb()) then
info=psb_err_invalid_cd_state_
call psb_errpush(info,name)
goto 9999
@@ -606,7 +606,7 @@ contains
goto 9999
endif
if (.not.psb_is_asb_desc(desc_a)) then
if (.not.desc_a%is_asb()) then
info=psb_err_invalid_cd_state_
call psb_errpush(info,name)
goto 9999
base/comm/internals/psi_dswapdata_a.F90
+2 -2
View File
@@ -124,7 +124,7 @@ real(psb_dpk_), target :: work(:)
goto 9999
endif
if (.not.psb_is_asb_desc(desc_a)) then
if (.not.desc_a%is_asb()) then
info=psb_err_invalid_cd_state_
call psb_errpush(info,name)
goto 9999
@@ -591,7 +591,7 @@ real(psb_dpk_), pointer, dimension(:) :: sndbuf, rcvbuf
goto 9999
endif
if (.not.psb_is_asb_desc(desc_a)) then
if (.not.desc_a%is_asb()) then
info=psb_err_invalid_cd_state_
call psb_errpush(info,name)
goto 9999
base/comm/internals/psi_dswaptran_a.F90
+2 -2
View File
@@ -131,7 +131,7 @@ contains
goto 9999
endif
if (.not.psb_is_asb_desc(desc_a)) then
if (.not.desc_a%is_asb()) then
info=psb_err_invalid_cd_state_
call psb_errpush(info,name)
goto 9999
@@ -606,7 +606,7 @@ contains
goto 9999
endif
if (.not.psb_is_asb_desc(desc_a)) then
if (.not.desc_a%is_asb()) then
info=psb_err_invalid_cd_state_
call psb_errpush(info,name)
goto 9999
base/comm/internals/psi_eswapdata_a.F90
+2 -2
View File
@@ -124,7 +124,7 @@ integer(psb_epk_), target :: work(:)
goto 9999
endif
if (.not.psb_is_asb_desc(desc_a)) then
if (.not.desc_a%is_asb()) then
info=psb_err_invalid_cd_state_
call psb_errpush(info,name)
goto 9999
@@ -591,7 +591,7 @@ integer(psb_epk_), pointer, dimension(:) :: sndbuf, rcvbuf
goto 9999
endif
if (.not.psb_is_asb_desc(desc_a)) then
if (.not.desc_a%is_asb()) then
info=psb_err_invalid_cd_state_
call psb_errpush(info,name)
goto 9999
base/comm/internals/psi_eswaptran_a.F90
+2 -2
View File
@@ -131,7 +131,7 @@ contains
goto 9999
endif
if (.not.psb_is_asb_desc(desc_a)) then
if (.not.desc_a%is_asb()) then
info=psb_err_invalid_cd_state_
call psb_errpush(info,name)
goto 9999
@@ -606,7 +606,7 @@ contains
goto 9999
endif
if (.not.psb_is_asb_desc(desc_a)) then
if (.not.desc_a%is_asb()) then
info=psb_err_invalid_cd_state_
call psb_errpush(info,name)
goto 9999
base/comm/internals/psi_i2swapdata_a.F90
+2 -2
View File
@@ -124,7 +124,7 @@ integer(psb_i2pk_), target :: work(:)
goto 9999
endif
if (.not.psb_is_asb_desc(desc_a)) then
if (.not.desc_a%is_asb()) then
info=psb_err_invalid_cd_state_
call psb_errpush(info,name)
goto 9999
@@ -591,7 +591,7 @@ integer(psb_i2pk_), pointer, dimension(:) :: sndbuf, rcvbuf
goto 9999
endif
if (.not.psb_is_asb_desc(desc_a)) then
if (.not.desc_a%is_asb()) then
info=psb_err_invalid_cd_state_
call psb_errpush(info,name)
goto 9999
base/comm/internals/psi_i2swaptran_a.F90
+2 -2
View File
@@ -131,7 +131,7 @@ contains
goto 9999
endif
if (.not.psb_is_asb_desc(desc_a)) then
if (.not.desc_a%is_asb()) then
info=psb_err_invalid_cd_state_
call psb_errpush(info,name)
goto 9999
@@ -606,7 +606,7 @@ contains
goto 9999
endif
if (.not.psb_is_asb_desc(desc_a)) then
if (.not.desc_a%is_asb()) then
info=psb_err_invalid_cd_state_
call psb_errpush(info,name)
goto 9999
base/comm/internals/psi_mswapdata_a.F90
+2 -2
View File
@@ -124,7 +124,7 @@ integer(psb_mpk_), target :: work(:)
goto 9999
endif
if (.not.psb_is_asb_desc(desc_a)) then
if (.not.desc_a%is_asb()) then
info=psb_err_invalid_cd_state_
call psb_errpush(info,name)
goto 9999
@@ -591,7 +591,7 @@ integer(psb_mpk_), pointer, dimension(:) :: sndbuf, rcvbuf
goto 9999
endif
if (.not.psb_is_asb_desc(desc_a)) then
if (.not.desc_a%is_asb()) then
info=psb_err_invalid_cd_state_
call psb_errpush(info,name)
goto 9999
base/comm/internals/psi_mswaptran_a.F90
+2 -2
View File
@@ -131,7 +131,7 @@ contains
goto 9999
endif
if (.not.psb_is_asb_desc(desc_a)) then
if (.not.desc_a%is_asb()) then
info=psb_err_invalid_cd_state_
call psb_errpush(info,name)
goto 9999
@@ -606,7 +606,7 @@ contains
goto 9999
endif
if (.not.psb_is_asb_desc(desc_a)) then
if (.not.desc_a%is_asb()) then
info=psb_err_invalid_cd_state_
call psb_errpush(info,name)
goto 9999
base/comm/internals/psi_sswapdata_a.F90
+2 -2
View File
@@ -124,7 +124,7 @@ real(psb_spk_), target :: work(:)
goto 9999
endif
if (.not.psb_is_asb_desc(desc_a)) then
if (.not.desc_a%is_asb()) then
info=psb_err_invalid_cd_state_
call psb_errpush(info,name)
goto 9999
@@ -591,7 +591,7 @@ real(psb_spk_), pointer, dimension(:) :: sndbuf, rcvbuf
goto 9999
endif
if (.not.psb_is_asb_desc(desc_a)) then
if (.not.desc_a%is_asb()) then
info=psb_err_invalid_cd_state_
call psb_errpush(info,name)
goto 9999
base/comm/internals/psi_sswaptran_a.F90
+2 -2
View File
@@ -131,7 +131,7 @@ contains
goto 9999
endif
if (.not.psb_is_asb_desc(desc_a)) then
if (.not.desc_a%is_asb()) then
info=psb_err_invalid_cd_state_
call psb_errpush(info,name)
goto 9999
@@ -606,7 +606,7 @@ contains
goto 9999
endif
if (.not.psb_is_asb_desc(desc_a)) then
if (.not.desc_a%is_asb()) then
info=psb_err_invalid_cd_state_
call psb_errpush(info,name)
goto 9999
base/comm/internals/psi_zswapdata_a.F90
+2 -2
View File
@@ -124,7 +124,7 @@ complex(psb_dpk_), target :: work(:)
goto 9999
endif
if (.not.psb_is_asb_desc(desc_a)) then
if (.not.desc_a%is_asb()) then
info=psb_err_invalid_cd_state_
call psb_errpush(info,name)
goto 9999
@@ -591,7 +591,7 @@ complex(psb_dpk_), pointer, dimension(:) :: sndbuf, rcvbuf
goto 9999
endif
if (.not.psb_is_asb_desc(desc_a)) then
if (.not.desc_a%is_asb()) then
info=psb_err_invalid_cd_state_
call psb_errpush(info,name)
goto 9999
base/comm/internals/psi_zswaptran_a.F90
+2 -2
View File
@@ -131,7 +131,7 @@ contains
goto 9999
endif
if (.not.psb_is_asb_desc(desc_a)) then
if (.not.desc_a%is_asb()) then
info=psb_err_invalid_cd_state_
call psb_errpush(info,name)
goto 9999
@@ -606,7 +606,7 @@ contains
goto 9999
endif
if (.not.psb_is_asb_desc(desc_a)) then
if (.not.desc_a%is_asb()) then
info=psb_err_invalid_cd_state_
call psb_errpush(info,name)
goto 9999