diff --git a/base/comm/internals/psi_cswapdata_a.F90 b/base/comm/internals/psi_cswapdata_a.F90 index 2a113b17..37d019d6 100644 --- a/base/comm/internals/psi_cswapdata_a.F90 +++ b/base/comm/internals/psi_cswapdata_a.F90 @@ -186,9 +186,7 @@ subroutine psi_cswapidxm(iictxt,iicomm,flag,n,beta,y,idx, & logical, parameter :: usersend=.false. complex(psb_spk_), pointer, dimension(:) :: sndbuf, rcvbuf -#ifdef HAVE_VOLATILE volatile :: sndbuf, rcvbuf -#endif character(len=20) :: name info=psb_success_ @@ -672,9 +670,7 @@ subroutine psi_cswapidxv(iictxt,iicomm,flag,beta,y,idx, & logical, parameter :: usersend=.false. complex(psb_spk_), pointer, dimension(:) :: sndbuf, rcvbuf -#ifdef HAVE_VOLATILE volatile :: sndbuf, rcvbuf -#endif character(len=20) :: name info=psb_success_ diff --git a/base/comm/internals/psi_cswaptran_a.F90 b/base/comm/internals/psi_cswaptran_a.F90 index ed061be6..f43e3be3 100644 --- a/base/comm/internals/psi_cswaptran_a.F90 +++ b/base/comm/internals/psi_cswaptran_a.F90 @@ -191,9 +191,7 @@ subroutine psi_ctranidxm(iictxt,iicomm,flag,n,beta,y,idx,& logical, parameter :: usersend=.false. complex(psb_spk_), pointer, dimension(:) :: sndbuf, rcvbuf -#ifdef HAVE_VOLATILE volatile :: sndbuf, rcvbuf -#endif character(len=20) :: name info=psb_success_ @@ -685,9 +683,7 @@ subroutine psi_ctranidxv(iictxt,iicomm,flag,beta,y,idx,& logical, parameter :: usersend=.false. complex(psb_spk_), pointer, dimension(:) :: sndbuf, rcvbuf -#ifdef HAVE_VOLATILE volatile :: sndbuf, rcvbuf -#endif character(len=20) :: name info=psb_success_ diff --git a/base/comm/internals/psi_dswapdata_a.F90 b/base/comm/internals/psi_dswapdata_a.F90 index b9d0aaae..7400548a 100644 --- a/base/comm/internals/psi_dswapdata_a.F90 +++ b/base/comm/internals/psi_dswapdata_a.F90 @@ -186,9 +186,7 @@ subroutine psi_dswapidxm(iictxt,iicomm,flag,n,beta,y,idx, & logical, parameter :: usersend=.false. real(psb_dpk_), pointer, dimension(:) :: sndbuf, rcvbuf -#ifdef HAVE_VOLATILE volatile :: sndbuf, rcvbuf -#endif character(len=20) :: name info=psb_success_ @@ -672,9 +670,7 @@ subroutine psi_dswapidxv(iictxt,iicomm,flag,beta,y,idx, & logical, parameter :: usersend=.false. real(psb_dpk_), pointer, dimension(:) :: sndbuf, rcvbuf -#ifdef HAVE_VOLATILE volatile :: sndbuf, rcvbuf -#endif character(len=20) :: name info=psb_success_ diff --git a/base/comm/internals/psi_dswaptran_a.F90 b/base/comm/internals/psi_dswaptran_a.F90 index aad6348e..cce55b4d 100644 --- a/base/comm/internals/psi_dswaptran_a.F90 +++ b/base/comm/internals/psi_dswaptran_a.F90 @@ -191,9 +191,7 @@ subroutine psi_dtranidxm(iictxt,iicomm,flag,n,beta,y,idx,& logical, parameter :: usersend=.false. real(psb_dpk_), pointer, dimension(:) :: sndbuf, rcvbuf -#ifdef HAVE_VOLATILE volatile :: sndbuf, rcvbuf -#endif character(len=20) :: name info=psb_success_ @@ -685,9 +683,7 @@ subroutine psi_dtranidxv(iictxt,iicomm,flag,beta,y,idx,& logical, parameter :: usersend=.false. real(psb_dpk_), pointer, dimension(:) :: sndbuf, rcvbuf -#ifdef HAVE_VOLATILE volatile :: sndbuf, rcvbuf -#endif character(len=20) :: name info=psb_success_ diff --git a/base/comm/internals/psi_eswapdata_a.F90 b/base/comm/internals/psi_eswapdata_a.F90 index f7c67ac3..aa0cda65 100644 --- a/base/comm/internals/psi_eswapdata_a.F90 +++ b/base/comm/internals/psi_eswapdata_a.F90 @@ -186,9 +186,7 @@ subroutine psi_eswapidxm(iictxt,iicomm,flag,n,beta,y,idx, & logical, parameter :: usersend=.false. integer(psb_epk_), pointer, dimension(:) :: sndbuf, rcvbuf -#ifdef HAVE_VOLATILE volatile :: sndbuf, rcvbuf -#endif character(len=20) :: name info=psb_success_ @@ -672,9 +670,7 @@ subroutine psi_eswapidxv(iictxt,iicomm,flag,beta,y,idx, & logical, parameter :: usersend=.false. integer(psb_epk_), pointer, dimension(:) :: sndbuf, rcvbuf -#ifdef HAVE_VOLATILE volatile :: sndbuf, rcvbuf -#endif character(len=20) :: name info=psb_success_ diff --git a/base/comm/internals/psi_eswaptran_a.F90 b/base/comm/internals/psi_eswaptran_a.F90 index 42954369..0df27a5d 100644 --- a/base/comm/internals/psi_eswaptran_a.F90 +++ b/base/comm/internals/psi_eswaptran_a.F90 @@ -191,9 +191,7 @@ subroutine psi_etranidxm(iictxt,iicomm,flag,n,beta,y,idx,& logical, parameter :: usersend=.false. integer(psb_epk_), pointer, dimension(:) :: sndbuf, rcvbuf -#ifdef HAVE_VOLATILE volatile :: sndbuf, rcvbuf -#endif character(len=20) :: name info=psb_success_ @@ -685,9 +683,7 @@ subroutine psi_etranidxv(iictxt,iicomm,flag,beta,y,idx,& logical, parameter :: usersend=.false. integer(psb_epk_), pointer, dimension(:) :: sndbuf, rcvbuf -#ifdef HAVE_VOLATILE volatile :: sndbuf, rcvbuf -#endif character(len=20) :: name info=psb_success_ diff --git a/base/comm/internals/psi_i2swapdata_a.F90 b/base/comm/internals/psi_i2swapdata_a.F90 index 479042c4..0140504d 100644 --- a/base/comm/internals/psi_i2swapdata_a.F90 +++ b/base/comm/internals/psi_i2swapdata_a.F90 @@ -186,9 +186,7 @@ subroutine psi_i2swapidxm(iictxt,iicomm,flag,n,beta,y,idx, & logical, parameter :: usersend=.false. integer(psb_i2pk_), pointer, dimension(:) :: sndbuf, rcvbuf -#ifdef HAVE_VOLATILE volatile :: sndbuf, rcvbuf -#endif character(len=20) :: name info=psb_success_ @@ -672,9 +670,7 @@ subroutine psi_i2swapidxv(iictxt,iicomm,flag,beta,y,idx, & logical, parameter :: usersend=.false. integer(psb_i2pk_), pointer, dimension(:) :: sndbuf, rcvbuf -#ifdef HAVE_VOLATILE volatile :: sndbuf, rcvbuf -#endif character(len=20) :: name info=psb_success_ diff --git a/base/comm/internals/psi_i2swaptran_a.F90 b/base/comm/internals/psi_i2swaptran_a.F90 index f69b8aec..10531927 100644 --- a/base/comm/internals/psi_i2swaptran_a.F90 +++ b/base/comm/internals/psi_i2swaptran_a.F90 @@ -191,9 +191,7 @@ subroutine psi_i2tranidxm(iictxt,iicomm,flag,n,beta,y,idx,& logical, parameter :: usersend=.false. integer(psb_i2pk_), pointer, dimension(:) :: sndbuf, rcvbuf -#ifdef HAVE_VOLATILE volatile :: sndbuf, rcvbuf -#endif character(len=20) :: name info=psb_success_ @@ -685,9 +683,7 @@ subroutine psi_i2tranidxv(iictxt,iicomm,flag,beta,y,idx,& logical, parameter :: usersend=.false. integer(psb_i2pk_), pointer, dimension(:) :: sndbuf, rcvbuf -#ifdef HAVE_VOLATILE volatile :: sndbuf, rcvbuf -#endif character(len=20) :: name info=psb_success_ diff --git a/base/comm/internals/psi_mswapdata_a.F90 b/base/comm/internals/psi_mswapdata_a.F90 index b71e61ef..32b8a64e 100644 --- a/base/comm/internals/psi_mswapdata_a.F90 +++ b/base/comm/internals/psi_mswapdata_a.F90 @@ -186,9 +186,7 @@ subroutine psi_mswapidxm(iictxt,iicomm,flag,n,beta,y,idx, & logical, parameter :: usersend=.false. integer(psb_mpk_), pointer, dimension(:) :: sndbuf, rcvbuf -#ifdef HAVE_VOLATILE volatile :: sndbuf, rcvbuf -#endif character(len=20) :: name info=psb_success_ @@ -672,9 +670,7 @@ subroutine psi_mswapidxv(iictxt,iicomm,flag,beta,y,idx, & logical, parameter :: usersend=.false. integer(psb_mpk_), pointer, dimension(:) :: sndbuf, rcvbuf -#ifdef HAVE_VOLATILE volatile :: sndbuf, rcvbuf -#endif character(len=20) :: name info=psb_success_ diff --git a/base/comm/internals/psi_mswaptran_a.F90 b/base/comm/internals/psi_mswaptran_a.F90 index add5a608..7b94d480 100644 --- a/base/comm/internals/psi_mswaptran_a.F90 +++ b/base/comm/internals/psi_mswaptran_a.F90 @@ -191,9 +191,7 @@ subroutine psi_mtranidxm(iictxt,iicomm,flag,n,beta,y,idx,& logical, parameter :: usersend=.false. integer(psb_mpk_), pointer, dimension(:) :: sndbuf, rcvbuf -#ifdef HAVE_VOLATILE volatile :: sndbuf, rcvbuf -#endif character(len=20) :: name info=psb_success_ @@ -685,9 +683,7 @@ subroutine psi_mtranidxv(iictxt,iicomm,flag,beta,y,idx,& logical, parameter :: usersend=.false. integer(psb_mpk_), pointer, dimension(:) :: sndbuf, rcvbuf -#ifdef HAVE_VOLATILE volatile :: sndbuf, rcvbuf -#endif character(len=20) :: name info=psb_success_ diff --git a/base/comm/internals/psi_sswapdata_a.F90 b/base/comm/internals/psi_sswapdata_a.F90 index de8587c1..5b591bf3 100644 --- a/base/comm/internals/psi_sswapdata_a.F90 +++ b/base/comm/internals/psi_sswapdata_a.F90 @@ -186,9 +186,7 @@ subroutine psi_sswapidxm(iictxt,iicomm,flag,n,beta,y,idx, & logical, parameter :: usersend=.false. real(psb_spk_), pointer, dimension(:) :: sndbuf, rcvbuf -#ifdef HAVE_VOLATILE volatile :: sndbuf, rcvbuf -#endif character(len=20) :: name info=psb_success_ @@ -672,9 +670,7 @@ subroutine psi_sswapidxv(iictxt,iicomm,flag,beta,y,idx, & logical, parameter :: usersend=.false. real(psb_spk_), pointer, dimension(:) :: sndbuf, rcvbuf -#ifdef HAVE_VOLATILE volatile :: sndbuf, rcvbuf -#endif character(len=20) :: name info=psb_success_ diff --git a/base/comm/internals/psi_sswaptran_a.F90 b/base/comm/internals/psi_sswaptran_a.F90 index f0f82965..890a7a58 100644 --- a/base/comm/internals/psi_sswaptran_a.F90 +++ b/base/comm/internals/psi_sswaptran_a.F90 @@ -191,9 +191,7 @@ subroutine psi_stranidxm(iictxt,iicomm,flag,n,beta,y,idx,& logical, parameter :: usersend=.false. real(psb_spk_), pointer, dimension(:) :: sndbuf, rcvbuf -#ifdef HAVE_VOLATILE volatile :: sndbuf, rcvbuf -#endif character(len=20) :: name info=psb_success_ @@ -685,9 +683,7 @@ subroutine psi_stranidxv(iictxt,iicomm,flag,beta,y,idx,& logical, parameter :: usersend=.false. real(psb_spk_), pointer, dimension(:) :: sndbuf, rcvbuf -#ifdef HAVE_VOLATILE volatile :: sndbuf, rcvbuf -#endif character(len=20) :: name info=psb_success_ diff --git a/base/comm/internals/psi_zswapdata_a.F90 b/base/comm/internals/psi_zswapdata_a.F90 index 6e821f4f..19026b97 100644 --- a/base/comm/internals/psi_zswapdata_a.F90 +++ b/base/comm/internals/psi_zswapdata_a.F90 @@ -186,9 +186,7 @@ subroutine psi_zswapidxm(iictxt,iicomm,flag,n,beta,y,idx, & logical, parameter :: usersend=.false. complex(psb_dpk_), pointer, dimension(:) :: sndbuf, rcvbuf -#ifdef HAVE_VOLATILE volatile :: sndbuf, rcvbuf -#endif character(len=20) :: name info=psb_success_ @@ -672,9 +670,7 @@ subroutine psi_zswapidxv(iictxt,iicomm,flag,beta,y,idx, & logical, parameter :: usersend=.false. complex(psb_dpk_), pointer, dimension(:) :: sndbuf, rcvbuf -#ifdef HAVE_VOLATILE volatile :: sndbuf, rcvbuf -#endif character(len=20) :: name info=psb_success_ diff --git a/base/comm/internals/psi_zswaptran_a.F90 b/base/comm/internals/psi_zswaptran_a.F90 index aaf305ac..46e4a898 100644 --- a/base/comm/internals/psi_zswaptran_a.F90 +++ b/base/comm/internals/psi_zswaptran_a.F90 @@ -191,9 +191,7 @@ subroutine psi_ztranidxm(iictxt,iicomm,flag,n,beta,y,idx,& logical, parameter :: usersend=.false. complex(psb_dpk_), pointer, dimension(:) :: sndbuf, rcvbuf -#ifdef HAVE_VOLATILE volatile :: sndbuf, rcvbuf -#endif character(len=20) :: name info=psb_success_ @@ -685,9 +683,7 @@ subroutine psi_ztranidxv(iictxt,iicomm,flag,beta,y,idx,& logical, parameter :: usersend=.false. complex(psb_dpk_), pointer, dimension(:) :: sndbuf, rcvbuf -#ifdef HAVE_VOLATILE volatile :: sndbuf, rcvbuf -#endif character(len=20) :: name info=psb_success_ diff --git a/base/comm/psb_cspgather.F90 b/base/comm/psb_cspgather.F90 index 23ab271f..72bfa774 100644 --- a/base/comm/psb_cspgather.F90 +++ b/base/comm/psb_cspgather.F90 @@ -42,9 +42,7 @@ ! ! subroutine psb_csp_allgather(globa, loca, desc_a, info, root, dupl,keepnum,keeploc) -#if defined(HAVE_ISO_FORTRAN_ENV) use iso_fortran_env -#endif use psb_desc_mod use psb_error_mod use psb_penv_mod @@ -136,12 +134,10 @@ subroutine psb_csp_allgather(globa, loca, desc_a, info, root, dupl,keepnum,keep info = psb_err_mpi_int_ovflw_ call psb_errpush(info,name); goto 9999 end if -#if defined(HAVE_ISO_FORTRAN_ENV) if (nrg > HUGE(1_psb_mpk_)) then info = psb_err_mpi_int_ovflw_ call psb_errpush(info,name); goto 9999 end if -#endif if ((root_ == -1).or.(root_ == me)) then if (info == psb_success_) call psb_realloc(nzg,glbia,info) if (info == psb_success_) call psb_realloc(nzg,glbja,info) @@ -228,9 +224,7 @@ end subroutine psb_csp_allgather subroutine psb_lcsp_allgather(globa, loca, desc_a, info, root, dupl,keepnum,keeploc) -#if defined(HAVE_ISO_FORTRAN_ENV) use iso_fortran_env -#endif use psb_desc_mod use psb_error_mod use psb_penv_mod @@ -321,13 +315,11 @@ subroutine psb_lcsp_allgather(globa, loca, desc_a, info, root, dupl,keepnum,kee info = psb_err_mpi_int_ovflw_ call psb_errpush(info,name); goto 9999 end if -#if defined(HAVE_ISO_FORTRAN_ENV) if ((nrg > HUGE(1_psb_mpk_)).or.(nzg > HUGE(1_psb_mpk_))& & .or.(sum(lnzbr) > HUGE(1_psb_mpk_))) then info = psb_err_mpi_int_ovflw_ call psb_errpush(info,name); goto 9999 end if -#endif if ((root_ == -1).or.(root_ == me)) then if (info == psb_success_) call glob_coo%allocate(nrg,ncg,nzg) else @@ -403,9 +395,7 @@ subroutine psb_lcsp_allgather(globa, loca, desc_a, info, root, dupl,keepnum,kee end subroutine psb_lcsp_allgather subroutine psb_lclcsp_allgather(globa, loca, desc_a, info, root, dupl,keepnum,keeploc) -#if defined(HAVE_ISO_FORTRAN_ENV) use iso_fortran_env -#endif use psb_desc_mod use psb_error_mod use psb_penv_mod @@ -496,13 +486,11 @@ subroutine psb_lclcsp_allgather(globa, loca, desc_a, info, root, dupl,keepnum,k info = psb_err_mpi_int_ovflw_ call psb_errpush(info,name); goto 9999 end if -#if defined(HAVE_ISO_FORTRAN_ENV) if ((nrg > HUGE(1_psb_mpk_)).or.(nzg > HUGE(1_psb_mpk_))& & .or.(sum(lnzbr) > HUGE(1_psb_mpk_))) then info = psb_err_mpi_int_ovflw_ call psb_errpush(info,name); goto 9999 end if -#endif if ((root_ == -1).or.(root_ == me)) then if (info == psb_success_) call glob_coo%allocate(nrg,ncg,nzg) else diff --git a/base/comm/psb_dspgather.F90 b/base/comm/psb_dspgather.F90 index 11eedaf4..a29ac002 100644 --- a/base/comm/psb_dspgather.F90 +++ b/base/comm/psb_dspgather.F90 @@ -42,9 +42,7 @@ ! ! subroutine psb_dsp_allgather(globa, loca, desc_a, info, root, dupl,keepnum,keeploc) -#if defined(HAVE_ISO_FORTRAN_ENV) use iso_fortran_env -#endif use psb_desc_mod use psb_error_mod use psb_penv_mod @@ -136,12 +134,10 @@ subroutine psb_dsp_allgather(globa, loca, desc_a, info, root, dupl,keepnum,keep info = psb_err_mpi_int_ovflw_ call psb_errpush(info,name); goto 9999 end if -#if defined(HAVE_ISO_FORTRAN_ENV) if (nrg > HUGE(1_psb_mpk_)) then info = psb_err_mpi_int_ovflw_ call psb_errpush(info,name); goto 9999 end if -#endif if ((root_ == -1).or.(root_ == me)) then if (info == psb_success_) call psb_realloc(nzg,glbia,info) if (info == psb_success_) call psb_realloc(nzg,glbja,info) @@ -228,9 +224,7 @@ end subroutine psb_dsp_allgather subroutine psb_ldsp_allgather(globa, loca, desc_a, info, root, dupl,keepnum,keeploc) -#if defined(HAVE_ISO_FORTRAN_ENV) use iso_fortran_env -#endif use psb_desc_mod use psb_error_mod use psb_penv_mod @@ -321,13 +315,11 @@ subroutine psb_ldsp_allgather(globa, loca, desc_a, info, root, dupl,keepnum,kee info = psb_err_mpi_int_ovflw_ call psb_errpush(info,name); goto 9999 end if -#if defined(HAVE_ISO_FORTRAN_ENV) if ((nrg > HUGE(1_psb_mpk_)).or.(nzg > HUGE(1_psb_mpk_))& & .or.(sum(lnzbr) > HUGE(1_psb_mpk_))) then info = psb_err_mpi_int_ovflw_ call psb_errpush(info,name); goto 9999 end if -#endif if ((root_ == -1).or.(root_ == me)) then if (info == psb_success_) call glob_coo%allocate(nrg,ncg,nzg) else @@ -403,9 +395,7 @@ subroutine psb_ldsp_allgather(globa, loca, desc_a, info, root, dupl,keepnum,kee end subroutine psb_ldsp_allgather subroutine psb_ldldsp_allgather(globa, loca, desc_a, info, root, dupl,keepnum,keeploc) -#if defined(HAVE_ISO_FORTRAN_ENV) use iso_fortran_env -#endif use psb_desc_mod use psb_error_mod use psb_penv_mod @@ -496,13 +486,11 @@ subroutine psb_ldldsp_allgather(globa, loca, desc_a, info, root, dupl,keepnum,k info = psb_err_mpi_int_ovflw_ call psb_errpush(info,name); goto 9999 end if -#if defined(HAVE_ISO_FORTRAN_ENV) if ((nrg > HUGE(1_psb_mpk_)).or.(nzg > HUGE(1_psb_mpk_))& & .or.(sum(lnzbr) > HUGE(1_psb_mpk_))) then info = psb_err_mpi_int_ovflw_ call psb_errpush(info,name); goto 9999 end if -#endif if ((root_ == -1).or.(root_ == me)) then if (info == psb_success_) call glob_coo%allocate(nrg,ncg,nzg) else diff --git a/base/comm/psb_ispgather.F90 b/base/comm/psb_ispgather.F90 index 622641cb..ed723289 100644 --- a/base/comm/psb_ispgather.F90 +++ b/base/comm/psb_ispgather.F90 @@ -42,9 +42,7 @@ ! ! subroutine psb_isp_allgather(globa, loca, desc_a, info, root, dupl,keepnum,keeploc) -#if defined(HAVE_ISO_FORTRAN_ENV) use iso_fortran_env -#endif use psb_desc_mod use psb_error_mod use psb_penv_mod @@ -136,12 +134,10 @@ subroutine psb_isp_allgather(globa, loca, desc_a, info, root, dupl,keepnum,keep info = psb_err_mpi_int_ovflw_ call psb_errpush(info,name); goto 9999 end if -#if defined(HAVE_ISO_FORTRAN_ENV) if (nrg > HUGE(1_psb_mpk_)) then info = psb_err_mpi_int_ovflw_ call psb_errpush(info,name); goto 9999 end if -#endif if ((root_ == -1).or.(root_ == me)) then if (info == psb_success_) call psb_realloc(nzg,glbia,info) if (info == psb_success_) call psb_realloc(nzg,glbja,info) @@ -228,9 +224,7 @@ end subroutine psb_isp_allgather subroutine psb_@LX@sp_allgather(globa, loca, desc_a, info, root, dupl,keepnum,keeploc) -#if defined(HAVE_ISO_FORTRAN_ENV) use iso_fortran_env -#endif use psb_desc_mod use psb_error_mod use psb_penv_mod @@ -321,13 +315,11 @@ subroutine psb_@LX@sp_allgather(globa, loca, desc_a, info, root, dupl,keepnum,k info = psb_err_mpi_int_ovflw_ call psb_errpush(info,name); goto 9999 end if -#if defined(HAVE_ISO_FORTRAN_ENV) if ((nrg > HUGE(1_psb_mpk_)).or.(nzg > HUGE(1_psb_mpk_))& & .or.(sum(lnzbr) > HUGE(1_psb_mpk_))) then info = psb_err_mpi_int_ovflw_ call psb_errpush(info,name); goto 9999 end if -#endif if ((root_ == -1).or.(root_ == me)) then if (info == psb_success_) call glob_coo%allocate(nrg,ncg,nzg) else @@ -403,9 +395,7 @@ subroutine psb_@LX@sp_allgather(globa, loca, desc_a, info, root, dupl,keepnum,k end subroutine psb_@LX@sp_allgather subroutine psb_@LX@@LX@sp_allgather(globa, loca, desc_a, info, root, dupl,keepnum,keeploc) -#if defined(HAVE_ISO_FORTRAN_ENV) use iso_fortran_env -#endif use psb_desc_mod use psb_error_mod use psb_penv_mod @@ -496,13 +486,11 @@ subroutine psb_@LX@@LX@sp_allgather(globa, loca, desc_a, info, root, dupl,keepn info = psb_err_mpi_int_ovflw_ call psb_errpush(info,name); goto 9999 end if -#if defined(HAVE_ISO_FORTRAN_ENV) if ((nrg > HUGE(1_psb_mpk_)).or.(nzg > HUGE(1_psb_mpk_))& & .or.(sum(lnzbr) > HUGE(1_psb_mpk_))) then info = psb_err_mpi_int_ovflw_ call psb_errpush(info,name); goto 9999 end if -#endif if ((root_ == -1).or.(root_ == me)) then if (info == psb_success_) call glob_coo%allocate(nrg,ncg,nzg) else diff --git a/base/comm/psb_lspgather.F90 b/base/comm/psb_lspgather.F90 index bfba8a97..5d2d33e9 100644 --- a/base/comm/psb_lspgather.F90 +++ b/base/comm/psb_lspgather.F90 @@ -42,9 +42,7 @@ ! ! subroutine psb_lsp_allgather(globa, loca, desc_a, info, root, dupl,keepnum,keeploc) -#if defined(HAVE_ISO_FORTRAN_ENV) use iso_fortran_env -#endif use psb_desc_mod use psb_error_mod use psb_penv_mod @@ -136,12 +134,10 @@ subroutine psb_lsp_allgather(globa, loca, desc_a, info, root, dupl,keepnum,keep info = psb_err_mpi_int_ovflw_ call psb_errpush(info,name); goto 9999 end if -#if defined(HAVE_ISO_FORTRAN_ENV) if (nrg > HUGE(1_psb_mpk_)) then info = psb_err_mpi_int_ovflw_ call psb_errpush(info,name); goto 9999 end if -#endif if ((root_ == -1).or.(root_ == me)) then if (info == psb_success_) call psb_realloc(nzg,glbia,info) if (info == psb_success_) call psb_realloc(nzg,glbja,info) @@ -228,9 +224,7 @@ end subroutine psb_lsp_allgather subroutine psb_@LX@sp_allgather(globa, loca, desc_a, info, root, dupl,keepnum,keeploc) -#if defined(HAVE_ISO_FORTRAN_ENV) use iso_fortran_env -#endif use psb_desc_mod use psb_error_mod use psb_penv_mod @@ -321,13 +315,11 @@ subroutine psb_@LX@sp_allgather(globa, loca, desc_a, info, root, dupl,keepnum,k info = psb_err_mpi_int_ovflw_ call psb_errpush(info,name); goto 9999 end if -#if defined(HAVE_ISO_FORTRAN_ENV) if ((nrg > HUGE(1_psb_mpk_)).or.(nzg > HUGE(1_psb_mpk_))& & .or.(sum(lnzbr) > HUGE(1_psb_mpk_))) then info = psb_err_mpi_int_ovflw_ call psb_errpush(info,name); goto 9999 end if -#endif if ((root_ == -1).or.(root_ == me)) then if (info == psb_success_) call glob_coo%allocate(nrg,ncg,nzg) else @@ -403,9 +395,7 @@ subroutine psb_@LX@sp_allgather(globa, loca, desc_a, info, root, dupl,keepnum,k end subroutine psb_@LX@sp_allgather subroutine psb_@LX@@LX@sp_allgather(globa, loca, desc_a, info, root, dupl,keepnum,keeploc) -#if defined(HAVE_ISO_FORTRAN_ENV) use iso_fortran_env -#endif use psb_desc_mod use psb_error_mod use psb_penv_mod @@ -496,13 +486,11 @@ subroutine psb_@LX@@LX@sp_allgather(globa, loca, desc_a, info, root, dupl,keepn info = psb_err_mpi_int_ovflw_ call psb_errpush(info,name); goto 9999 end if -#if defined(HAVE_ISO_FORTRAN_ENV) if ((nrg > HUGE(1_psb_mpk_)).or.(nzg > HUGE(1_psb_mpk_))& & .or.(sum(lnzbr) > HUGE(1_psb_mpk_))) then info = psb_err_mpi_int_ovflw_ call psb_errpush(info,name); goto 9999 end if -#endif if ((root_ == -1).or.(root_ == me)) then if (info == psb_success_) call glob_coo%allocate(nrg,ncg,nzg) else diff --git a/base/comm/psb_sspgather.F90 b/base/comm/psb_sspgather.F90 index e25c1145..83db9c08 100644 --- a/base/comm/psb_sspgather.F90 +++ b/base/comm/psb_sspgather.F90 @@ -42,9 +42,7 @@ ! ! subroutine psb_ssp_allgather(globa, loca, desc_a, info, root, dupl,keepnum,keeploc) -#if defined(HAVE_ISO_FORTRAN_ENV) use iso_fortran_env -#endif use psb_desc_mod use psb_error_mod use psb_penv_mod @@ -136,12 +134,10 @@ subroutine psb_ssp_allgather(globa, loca, desc_a, info, root, dupl,keepnum,keep info = psb_err_mpi_int_ovflw_ call psb_errpush(info,name); goto 9999 end if -#if defined(HAVE_ISO_FORTRAN_ENV) if (nrg > HUGE(1_psb_mpk_)) then info = psb_err_mpi_int_ovflw_ call psb_errpush(info,name); goto 9999 end if -#endif if ((root_ == -1).or.(root_ == me)) then if (info == psb_success_) call psb_realloc(nzg,glbia,info) if (info == psb_success_) call psb_realloc(nzg,glbja,info) @@ -228,9 +224,7 @@ end subroutine psb_ssp_allgather subroutine psb_lssp_allgather(globa, loca, desc_a, info, root, dupl,keepnum,keeploc) -#if defined(HAVE_ISO_FORTRAN_ENV) use iso_fortran_env -#endif use psb_desc_mod use psb_error_mod use psb_penv_mod @@ -321,13 +315,11 @@ subroutine psb_lssp_allgather(globa, loca, desc_a, info, root, dupl,keepnum,kee info = psb_err_mpi_int_ovflw_ call psb_errpush(info,name); goto 9999 end if -#if defined(HAVE_ISO_FORTRAN_ENV) if ((nrg > HUGE(1_psb_mpk_)).or.(nzg > HUGE(1_psb_mpk_))& & .or.(sum(lnzbr) > HUGE(1_psb_mpk_))) then info = psb_err_mpi_int_ovflw_ call psb_errpush(info,name); goto 9999 end if -#endif if ((root_ == -1).or.(root_ == me)) then if (info == psb_success_) call glob_coo%allocate(nrg,ncg,nzg) else @@ -403,9 +395,7 @@ subroutine psb_lssp_allgather(globa, loca, desc_a, info, root, dupl,keepnum,kee end subroutine psb_lssp_allgather subroutine psb_lslssp_allgather(globa, loca, desc_a, info, root, dupl,keepnum,keeploc) -#if defined(HAVE_ISO_FORTRAN_ENV) use iso_fortran_env -#endif use psb_desc_mod use psb_error_mod use psb_penv_mod @@ -496,13 +486,11 @@ subroutine psb_lslssp_allgather(globa, loca, desc_a, info, root, dupl,keepnum,k info = psb_err_mpi_int_ovflw_ call psb_errpush(info,name); goto 9999 end if -#if defined(HAVE_ISO_FORTRAN_ENV) if ((nrg > HUGE(1_psb_mpk_)).or.(nzg > HUGE(1_psb_mpk_))& & .or.(sum(lnzbr) > HUGE(1_psb_mpk_))) then info = psb_err_mpi_int_ovflw_ call psb_errpush(info,name); goto 9999 end if -#endif if ((root_ == -1).or.(root_ == me)) then if (info == psb_success_) call glob_coo%allocate(nrg,ncg,nzg) else diff --git a/base/comm/psb_zspgather.F90 b/base/comm/psb_zspgather.F90 index 62a4c186..98b7d215 100644 --- a/base/comm/psb_zspgather.F90 +++ b/base/comm/psb_zspgather.F90 @@ -42,9 +42,7 @@ ! ! subroutine psb_zsp_allgather(globa, loca, desc_a, info, root, dupl,keepnum,keeploc) -#if defined(HAVE_ISO_FORTRAN_ENV) use iso_fortran_env -#endif use psb_desc_mod use psb_error_mod use psb_penv_mod @@ -136,12 +134,10 @@ subroutine psb_zsp_allgather(globa, loca, desc_a, info, root, dupl,keepnum,keep info = psb_err_mpi_int_ovflw_ call psb_errpush(info,name); goto 9999 end if -#if defined(HAVE_ISO_FORTRAN_ENV) if (nrg > HUGE(1_psb_mpk_)) then info = psb_err_mpi_int_ovflw_ call psb_errpush(info,name); goto 9999 end if -#endif if ((root_ == -1).or.(root_ == me)) then if (info == psb_success_) call psb_realloc(nzg,glbia,info) if (info == psb_success_) call psb_realloc(nzg,glbja,info) @@ -228,9 +224,7 @@ end subroutine psb_zsp_allgather subroutine psb_lzsp_allgather(globa, loca, desc_a, info, root, dupl,keepnum,keeploc) -#if defined(HAVE_ISO_FORTRAN_ENV) use iso_fortran_env -#endif use psb_desc_mod use psb_error_mod use psb_penv_mod @@ -321,13 +315,11 @@ subroutine psb_lzsp_allgather(globa, loca, desc_a, info, root, dupl,keepnum,kee info = psb_err_mpi_int_ovflw_ call psb_errpush(info,name); goto 9999 end if -#if defined(HAVE_ISO_FORTRAN_ENV) if ((nrg > HUGE(1_psb_mpk_)).or.(nzg > HUGE(1_psb_mpk_))& & .or.(sum(lnzbr) > HUGE(1_psb_mpk_))) then info = psb_err_mpi_int_ovflw_ call psb_errpush(info,name); goto 9999 end if -#endif if ((root_ == -1).or.(root_ == me)) then if (info == psb_success_) call glob_coo%allocate(nrg,ncg,nzg) else @@ -403,9 +395,7 @@ subroutine psb_lzsp_allgather(globa, loca, desc_a, info, root, dupl,keepnum,kee end subroutine psb_lzsp_allgather subroutine psb_lzlzsp_allgather(globa, loca, desc_a, info, root, dupl,keepnum,keeploc) -#if defined(HAVE_ISO_FORTRAN_ENV) use iso_fortran_env -#endif use psb_desc_mod use psb_error_mod use psb_penv_mod @@ -496,13 +486,11 @@ subroutine psb_lzlzsp_allgather(globa, loca, desc_a, info, root, dupl,keepnum,k info = psb_err_mpi_int_ovflw_ call psb_errpush(info,name); goto 9999 end if -#if defined(HAVE_ISO_FORTRAN_ENV) if ((nrg > HUGE(1_psb_mpk_)).or.(nzg > HUGE(1_psb_mpk_))& & .or.(sum(lnzbr) > HUGE(1_psb_mpk_))) then info = psb_err_mpi_int_ovflw_ call psb_errpush(info,name); goto 9999 end if -#endif if ((root_ == -1).or.(root_ == me)) then if (info == psb_success_) call glob_coo%allocate(nrg,ncg,nzg) else