Home
last modified time | relevance | path

Searched refs:xnorm2 (Results 1 – 16 of 16) sorted by relevance

/dports/science/nwchem-data/nwchem-7.0.2-release/src/drdy/
H A Drotx.F92 xnorm2 = 0.0d00
97 xnorm2 = xnorm2 + x2(ii+k)*x2(ii+k)
100 if (xnorm2.gt.0.0d00) dotp2 = dotp2/sqrt(xnorm2)
115 xnorm2 = 0.0d00
122 xnorm2 = 0.0d00
125 xnorm2 = xnorm2 + x2(ii+k)*x2(ii+k)
128 xnorm2 = sqrt(xnorm2)
136 xnorm21 = xnorm2
138 xnorm2 = 0.0d00
149 xnorm2 = xnorm2 + x2(ii+k)*x2(ii+k)
[all …]
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/drdy/
H A Drotx.F92 xnorm2 = 0.0d00
97 xnorm2 = xnorm2 + x2(ii+k)*x2(ii+k)
100 if (xnorm2.gt.0.0d00) dotp2 = dotp2/sqrt(xnorm2)
115 xnorm2 = 0.0d00
122 xnorm2 = 0.0d00
125 xnorm2 = xnorm2 + x2(ii+k)*x2(ii+k)
128 xnorm2 = sqrt(xnorm2)
136 xnorm21 = xnorm2
138 xnorm2 = 0.0d00
149 xnorm2 = xnorm2 + x2(ii+k)*x2(ii+k)
[all …]
/dports/science/dakota/dakota-6.13.0-release-public.src-UI/packages/external/trilinos/packages/rol/adapters/epetra/test/vector/
H A Dtest_01.cpp114 RealT xnorm2 = x.norm(); in main() local
115 *outStream << "\nNorm of half of x: " << xnorm2 << "\n"; in main()
116 if ( std::abs(xnorm/xnorm2 - 2.0) > errtol ) { in main()
126 if ( std::abs(xnorm2 - znorm) > errtol ) { in main()
/dports/science/dakota/dakota-6.13.0-release-public.src-UI/packages/external/trilinos/packages/rol/adapters/tpetra/test/vector/
H A Dtest_01.cpp122 RealT xnorm2 = x.norm(); in main() local
123 outStream << "\nNorm of half of x: " << xnorm2 << "\n"; in main()
124 if ( std::abs(xnorm/xnorm2 - 2.0) > errtol ) { in main()
134 if ( std::abs(xnorm2 - znorm) > errtol ) { in main()
/dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/DALTON/cc/
H A Dccpt_btrden.F382 real ddot,xnorm2,xnorm
386 double precision ddot,xnorm2,xnorm
514 real ddot,xnorm2,xnorm
518 double precision ddot,xnorm2,xnorm
665 real ddot,xnorm2,xnorm
669 double precision ddot,xnorm2,xnorm
H A Dcc_lanczos_lrextras.F1279 DOUBLE PRECISION omega1,Rdag_R,Rdag_A_R,xnorm2 local
1340 xnorm2=dsqrt(ddot(Lspace,WORK(KAtrr),1,WORK(KAtrr),1))
1341 write(lupri,*)'Norm residual omega1=', omega1,' is =',xnorm2
H A Dccpt_symmback.F655 real ddot,xnorm2,xnorm,xnabi1,xnabi3
659 double precision ddot,xnorm2,xnorm,xnabi1,xnabi3
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/tce/
H A Dtce_print_x2.F793 & xnorm2)
827 double precision r2_thresh,xnorm2
834 xnorm2=0.0d0
877 xnorm2=xnorm2+dbl_mb(k_r2+i-1)*dbl_mb(k_r2+i-1)
879 xnorm2=xnorm2+dbl_mb(k_r2+i-1)*dbl_mb(k_r2+i-1)
881 xnorm2=xnorm2+dbl_mb(k_r2+i-1)*dbl_mb(k_r2+i-1)
H A Dtce_energy.F163 double precision xxx,xnorm1,xnorm2,xnorm local
3106 xnorm2 = 0.0d0
3112 & xnorm2)
3115 xnorm=(1.0d0)/(dsqrt(1.0d0+xnorm1+xnorm2))
3152 xnorm2 = 0.0d0
3158 & xnorm2)
3161 xnorm=(1.0d0)/(dsqrt(1.0d0+xnorm1+xnorm2))
7476 xnorm2=0.0d0
7482 & xnorm2)
7485 xnorm=(1.0d0)/(dsqrt(xnorm1+xnorm2))
H A Dtce_mo2e_zones_4a_disk_ga_N5.F1251 double precision xxx,xnorm1,xnorm2,xnorm
/dports/science/nwchem-data/nwchem-7.0.2-release/src/tce/
H A Dtce_print_x2.F793 & xnorm2)
827 double precision r2_thresh,xnorm2
834 xnorm2=0.0d0
877 xnorm2=xnorm2+dbl_mb(k_r2+i-1)*dbl_mb(k_r2+i-1)
879 xnorm2=xnorm2+dbl_mb(k_r2+i-1)*dbl_mb(k_r2+i-1)
881 xnorm2=xnorm2+dbl_mb(k_r2+i-1)*dbl_mb(k_r2+i-1)
H A Dtce_energy.F163 double precision xxx,xnorm1,xnorm2,xnorm local
3106 xnorm2 = 0.0d0
3112 & xnorm2)
3115 xnorm=(1.0d0)/(dsqrt(1.0d0+xnorm1+xnorm2))
3152 xnorm2 = 0.0d0
3158 & xnorm2)
3161 xnorm=(1.0d0)/(dsqrt(1.0d0+xnorm1+xnorm2))
7476 xnorm2=0.0d0
7482 & xnorm2)
7485 xnorm=(1.0d0)/(dsqrt(xnorm1+xnorm2))
H A Dtce_mo2e_zones_4a_disk_ga_N5.F1251 double precision xxx,xnorm1,xnorm2,xnorm
/dports/math/amgcl/amgcl-1.4.2/amgcl/detail/
H A Dqr.hpp384 scalar_type xnorm2 = 0; in gen_reflector() local
386 xnorm2 += sqr(math::norm(x[ii])); in gen_reflector()
388 if (math::is_zero(xnorm2)) return tau; in gen_reflector()
390 scalar_type beta = -std::abs(sqrt(sqr(math::norm(alpha)) + xnorm2)); in gen_reflector()
/dports/math/alglib/alglib-cpp/src/
H A Ddataanalysis.cpp47661 double xnorm2; in mlptrainlm() local
47872 …xnorm2 = ae_v_dotproduct(&network->weights.ptr.p_double[0], 1, &network->weights.ptr.p_double[0], … in mlptrainlm()
47875 enew = mlperror(network, xy, npoints, _state)+0.5*decay*xnorm2; in mlptrainlm()
47876 if( ae_fp_less(stepnorm,lmsteptol*(1+ae_sqrt(xnorm2, _state))) ) in mlptrainlm()
/dports/astro/qmapshack/qmapshack-V_1.16.1/3rdparty/alglib/src/
H A Ddataanalysis.cpp36668 double xnorm2; in mlptrainlm() local
36879 …xnorm2 = ae_v_dotproduct(&network->weights.ptr.p_double[0], 1, &network->weights.ptr.p_double[0], … in mlptrainlm()
36882 enew = mlperror(network, xy, npoints, _state)+0.5*decay*xnorm2; in mlptrainlm()
36883 if( ae_fp_less(stepnorm,lmsteptol*(1+ae_sqrt(xnorm2, _state))) ) in mlptrainlm()