diff --git a/base/modules/psb_const_mod.F90 b/base/modules/psb_const_mod.F90 index 16c612e1..8d3446f9 100644 --- a/base/modules/psb_const_mod.F90 +++ b/base/modules/psb_const_mod.F90 @@ -82,14 +82,14 @@ module psb_const_mod integer(psb_ipk_), parameter :: izero=0, ione=1 integer(psb_ipk_), parameter :: itwo=2, ithree=3,mone=-1 integer(psb_ipk_), parameter :: psb_root_=0 - real(psb_spk_), parameter :: szero=0.e0, sone=1.e0 - real(psb_dpk_), parameter :: dzero=0.d0, done=1.d0 - complex(psb_spk_), parameter :: czero=(0.e0,0.0e0) - complex(psb_spk_), parameter :: cone=(1.e0,0.0e0) - complex(psb_dpk_), parameter :: zzero=(0.d0,0.0d0) - complex(psb_dpk_), parameter :: zone=(1.d0,0.0d0) - real(psb_dpk_), parameter :: d_epstol=1.1d-16 ! Unit roundoff. - real(psb_spk_), parameter :: s_epstol=5.e-8 ! Is this right? + real(psb_spk_), parameter :: szero=0.0_psb_spk_, sone=1.0_psb_spk_ + real(psb_dpk_), parameter :: dzero=0.0_psb_dpk_, done=1.0_psb_dpk_ + complex(psb_spk_), parameter :: czero=(0.0_psb_spk_,0.0_psb_spk_) + complex(psb_spk_), parameter :: cone=(1.0_psb_spk_,0.0_psb_spk_) + complex(psb_dpk_), parameter :: zzero=(0.0_psb_dpk_,0.0_psb_dpk_) + complex(psb_dpk_), parameter :: zone=(1.0_psb_dpk_,0.0_psb_dpk_) + real(psb_dpk_), parameter :: d_epstol=1.1e-16_psb_dpk_ ! Unit roundoff. + real(psb_spk_), parameter :: s_epstol=5.e-8_psb_spk_ ! Is this right? character, parameter :: psb_all_='A', psb_topdef_=' ' logical, parameter :: psb_i_is_complex_ = .false. logical, parameter :: psb_s_is_complex_ = .false. diff --git a/config/pac.m4 b/config/pac.m4 index 847f01c5..410d8bea 100644 --- a/config/pac.m4 +++ b/config/pac.m4 @@ -1085,7 +1085,7 @@ esac #AC_FC_FUNC(sgemm) #AC_FC_FUNC(dgemm) -#pac_blas_save_LIBS="$LIBS" +pac_blas_save_LIBS="$LIBS" #LIBS="$LIBS $FLIBS" AC_LANG([Fortran]) diff --git a/configure b/configure index 64600a75..624f3f93 100755 --- a/configure +++ b/configure @@ -8117,7 +8117,7 @@ esac #AC_FC_FUNC(sgemm) #AC_FC_FUNC(dgemm) -#pac_blas_save_LIBS="$LIBS" +pac_blas_save_LIBS="$LIBS" #LIBS="$LIBS $FLIBS" ac_ext=${ac_fc_srcext-f} ac_compile='$FC -c $FCFLAGS $ac_fcflags_srcext conftest.$ac_ext >&5'