diff --git a/base/comm/internals/psi_cswapdata_a.F90 b/base/comm/internals/psi_cswapdata_a.F90 index c8d31ea4f..ad84b7ef9 100644 --- a/base/comm/internals/psi_cswapdata_a.F90 +++ b/base/comm/internals/psi_cswapdata_a.F90 @@ -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 diff --git a/base/comm/internals/psi_cswaptran_a.F90 b/base/comm/internals/psi_cswaptran_a.F90 index 89469eb7e..25ed4fe47 100644 --- a/base/comm/internals/psi_cswaptran_a.F90 +++ b/base/comm/internals/psi_cswaptran_a.F90 @@ -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 diff --git a/base/comm/internals/psi_dswapdata_a.F90 b/base/comm/internals/psi_dswapdata_a.F90 index f8dc5a6a2..e861ce3a4 100644 --- a/base/comm/internals/psi_dswapdata_a.F90 +++ b/base/comm/internals/psi_dswapdata_a.F90 @@ -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 diff --git a/base/comm/internals/psi_dswaptran_a.F90 b/base/comm/internals/psi_dswaptran_a.F90 index ec88bc275..397acb083 100644 --- a/base/comm/internals/psi_dswaptran_a.F90 +++ b/base/comm/internals/psi_dswaptran_a.F90 @@ -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 diff --git a/base/comm/internals/psi_eswapdata_a.F90 b/base/comm/internals/psi_eswapdata_a.F90 index 3c778cb35..8db52b035 100644 --- a/base/comm/internals/psi_eswapdata_a.F90 +++ b/base/comm/internals/psi_eswapdata_a.F90 @@ -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 diff --git a/base/comm/internals/psi_eswaptran_a.F90 b/base/comm/internals/psi_eswaptran_a.F90 index 83b4219d0..b1f532472 100644 --- a/base/comm/internals/psi_eswaptran_a.F90 +++ b/base/comm/internals/psi_eswaptran_a.F90 @@ -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 diff --git a/base/comm/internals/psi_i2swapdata_a.F90 b/base/comm/internals/psi_i2swapdata_a.F90 index 73828e752..6ff8a1e26 100644 --- a/base/comm/internals/psi_i2swapdata_a.F90 +++ b/base/comm/internals/psi_i2swapdata_a.F90 @@ -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 diff --git a/base/comm/internals/psi_i2swaptran_a.F90 b/base/comm/internals/psi_i2swaptran_a.F90 index eb84761b9..c6b1ee415 100644 --- a/base/comm/internals/psi_i2swaptran_a.F90 +++ b/base/comm/internals/psi_i2swaptran_a.F90 @@ -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 diff --git a/base/comm/internals/psi_mswapdata_a.F90 b/base/comm/internals/psi_mswapdata_a.F90 index 8ff53079f..435ea717f 100644 --- a/base/comm/internals/psi_mswapdata_a.F90 +++ b/base/comm/internals/psi_mswapdata_a.F90 @@ -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 diff --git a/base/comm/internals/psi_mswaptran_a.F90 b/base/comm/internals/psi_mswaptran_a.F90 index e0f32eb2e..d6ea59abc 100644 --- a/base/comm/internals/psi_mswaptran_a.F90 +++ b/base/comm/internals/psi_mswaptran_a.F90 @@ -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 diff --git a/base/comm/internals/psi_sswapdata_a.F90 b/base/comm/internals/psi_sswapdata_a.F90 index 08f722cd9..4994b59b5 100644 --- a/base/comm/internals/psi_sswapdata_a.F90 +++ b/base/comm/internals/psi_sswapdata_a.F90 @@ -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 diff --git a/base/comm/internals/psi_sswaptran_a.F90 b/base/comm/internals/psi_sswaptran_a.F90 index a5dcbede4..bcdc0c4c4 100644 --- a/base/comm/internals/psi_sswaptran_a.F90 +++ b/base/comm/internals/psi_sswaptran_a.F90 @@ -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 diff --git a/base/comm/internals/psi_zswapdata_a.F90 b/base/comm/internals/psi_zswapdata_a.F90 index db5373e37..ac1972ee0 100644 --- a/base/comm/internals/psi_zswapdata_a.F90 +++ b/base/comm/internals/psi_zswapdata_a.F90 @@ -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 diff --git a/base/comm/internals/psi_zswaptran_a.F90 b/base/comm/internals/psi_zswaptran_a.F90 index 240ab16b8..9a882bd46 100644 --- a/base/comm/internals/psi_zswaptran_a.F90 +++ b/base/comm/internals/psi_zswaptran_a.F90 @@ -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