psblas-3.0:

config/pac.m4
 configure
 base/modules/psb_const_mod.F90

Fix silly configure bug.
Better parametrization of KINDs and constants.
psblas3-final
Salvatore Filippone 13 years ago
parent 844b700bf6
commit eb526f6d71

@ -82,14 +82,14 @@ module psb_const_mod
integer(psb_ipk_), parameter :: izero=0, ione=1 integer(psb_ipk_), parameter :: izero=0, ione=1
integer(psb_ipk_), parameter :: itwo=2, ithree=3,mone=-1 integer(psb_ipk_), parameter :: itwo=2, ithree=3,mone=-1
integer(psb_ipk_), parameter :: psb_root_=0 integer(psb_ipk_), parameter :: psb_root_=0
real(psb_spk_), parameter :: szero=0.e0, sone=1.e0 real(psb_spk_), parameter :: szero=0.0_psb_spk_, sone=1.0_psb_spk_
real(psb_dpk_), parameter :: dzero=0.d0, done=1.d0 real(psb_dpk_), parameter :: dzero=0.0_psb_dpk_, done=1.0_psb_dpk_
complex(psb_spk_), parameter :: czero=(0.e0,0.0e0) complex(psb_spk_), parameter :: czero=(0.0_psb_spk_,0.0_psb_spk_)
complex(psb_spk_), parameter :: cone=(1.e0,0.0e0) complex(psb_spk_), parameter :: cone=(1.0_psb_spk_,0.0_psb_spk_)
complex(psb_dpk_), parameter :: zzero=(0.d0,0.0d0) complex(psb_dpk_), parameter :: zzero=(0.0_psb_dpk_,0.0_psb_dpk_)
complex(psb_dpk_), parameter :: zone=(1.d0,0.0d0) complex(psb_dpk_), parameter :: zone=(1.0_psb_dpk_,0.0_psb_dpk_)
real(psb_dpk_), parameter :: d_epstol=1.1d-16 ! Unit roundoff. real(psb_dpk_), parameter :: d_epstol=1.1e-16_psb_dpk_ ! Unit roundoff.
real(psb_spk_), parameter :: s_epstol=5.e-8 ! Is this right? real(psb_spk_), parameter :: s_epstol=5.e-8_psb_spk_ ! Is this right?
character, parameter :: psb_all_='A', psb_topdef_=' ' character, parameter :: psb_all_='A', psb_topdef_=' '
logical, parameter :: psb_i_is_complex_ = .false. logical, parameter :: psb_i_is_complex_ = .false.
logical, parameter :: psb_s_is_complex_ = .false. logical, parameter :: psb_s_is_complex_ = .false.

@ -1085,7 +1085,7 @@ esac
#AC_FC_FUNC(sgemm) #AC_FC_FUNC(sgemm)
#AC_FC_FUNC(dgemm) #AC_FC_FUNC(dgemm)
#pac_blas_save_LIBS="$LIBS" pac_blas_save_LIBS="$LIBS"
#LIBS="$LIBS $FLIBS" #LIBS="$LIBS $FLIBS"
AC_LANG([Fortran]) AC_LANG([Fortran])

2
configure vendored

@ -8117,7 +8117,7 @@ esac
#AC_FC_FUNC(sgemm) #AC_FC_FUNC(sgemm)
#AC_FC_FUNC(dgemm) #AC_FC_FUNC(dgemm)
#pac_blas_save_LIBS="$LIBS" pac_blas_save_LIBS="$LIBS"
#LIBS="$LIBS $FLIBS" #LIBS="$LIBS $FLIBS"
ac_ext=${ac_fc_srcext-f} ac_ext=${ac_fc_srcext-f}
ac_compile='$FC -c $FCFLAGS $ac_fcflags_srcext conftest.$ac_ext >&5' ac_compile='$FC -c $FCFLAGS $ac_fcflags_srcext conftest.$ac_ext >&5'

Loading…
Cancel
Save