/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/lucia/ |
H A D | ucc_grad.F | 40 & xnrm, etest, etest2, xnrm2, dltalp 93 xnrm2 = inprod(ccvec1,ccvec1,n_cc_amp) 95 if (xnrm2.lt.thresh) then
|
H A D | lucia_gtbce.F | 2636 xnrm2 = inprod(ccvec1,ccvec1,n_cc_amp) 2638 if (xnrm2.lt.10d-20) then 3732 xnrm2 = inprod(ccvec1,ccvec1,n_cc_amp) 3735 if (xnrm2.lt.10d-20.or.comm_ops) then 4038 xnrm2 = inprod(ccvec1,ccvec1,n_cc_amp) 4041 if (xnrm2.lt.10d-20.or.comm_ops) then
|
/dports/science/qmcpack/qmcpack-3.11.0/external_codes/boost_multi/multi/adaptors/blas/ |
H A D | core.hpp | 384 #undef xnrm2
|
/dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/DALTON/cc/ |
H A D | cc_r12a2.F | 3367 real xnrm1, xnrm2 3370 double precision xnrm1, xnrm2 3391 xnrm2 = 0.0d0 3431 xnrm2=xnrm2+ddot(n2bst(isymab),work(kscr1),1,work(kscr1),1) 3468 write(lupri,*) 'Gabnd for idel=',idel,xnrm1,xnrm2
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/lucia/ |
H A D | ucc_grad.F | 40 & xnrm, etest, etest2, xnrm2, dltalp 93 xnrm2 = inprod(ccvec1,ccvec1,n_cc_amp) 95 if (xnrm2.lt.thresh) then
|
H A D | lucia_gtbce.F | 2636 xnrm2 = inprod(ccvec1,ccvec1,n_cc_amp) 2638 if (xnrm2.lt.10d-20) then 3732 xnrm2 = inprod(ccvec1,ccvec1,n_cc_amp) 3735 if (xnrm2.lt.10d-20.or.comm_ops) then 4038 xnrm2 = inprod(ccvec1,ccvec1,n_cc_amp) 4041 if (xnrm2.lt.10d-20.or.comm_ops) then
|
/dports/misc/libad9361-iio/libad9361-iio-0.2-8-ge7bb5cd/filterdesigner/ |
H A D | internal_design_filter_cg.c | 235 static double xnrm2(int n, const emxArray_creal_T *x, int ix0); 12552 xnorm = xnrm2(c, a, ntau); in xgehrd() 12577 beta1 = xdlapy3(alpha1.re, alpha1.im, xnrm2(c, a, ntau)); in xgehrd() 12850 static double xnrm2(int n, const emxArray_creal_T *x, int ix0) in xnrm2() function
|
/dports/science/apbs/apbs-pdb2pqr-apbs-1.5-102-g500c1473/apbs/src/pmgc/ |
H A D | mikpckd.c | 150 double xnrm2 = 0.0; ///< Accumulates the calculated normal value in Vxnrm2() local 161 xnrm2 += VAT3(x, i, j, k) * VAT3(x, i, j, k); in Vxnrm2() 163 return VSQRT(xnrm2); in Vxnrm2()
|
/dports/science/apbs/apbs-pdb2pqr-apbs-1.5-102-g500c1473/apbs/externals/fetk/punc/src/pmg/src_f77/ |
H A D | cgmgd.f | 155 double precision rsden,rsnrm,orsnrm,xnrm1,xnrm2,xdot 194 rsden = xnrm2(nx,ny,nz,tru(iz(1,lev))) 196 rsden = xnrm2(nx,ny,nz,tru(iz(1,lev))) 320 rsnrm = xnrm2(nx,ny,nz,w1) 324 rsnrm = xnrm2(nx,ny,nz,w1)
|
H A D | mgfasd.f | 197 double precision rsden,rsnrm,orsnrm,xnrm1,xnrm2,xdot,xdamp 250 rsden = xnrm2(nxf,nyf,nzf,tru(iz(1,lev))) 252 rsden = xnrm2(nxf,nyf,nzf,tru(iz(1,lev))) 322 rsnrm = xnrm2(nxf,nyf,nzf,w1) 326 rsnrm = xnrm2(nxf,nyf,nzf,w1) 540 rsnrm = xnrm2(nxf,nyf,nzf,w1) 544 rsnrm = xnrm2(nxf,nyf,nzf,w1)
|
H A D | newtond.f | 158 double precision rsden,rsnrm,orsnrm,xnrm1,xnrm2,xdot local 211 rsden = xnrm2(nx,ny,nz,tru(iz(1,lev))) 213 rsden = xnrm2(nx,ny,nz,tru(iz(1,lev))) 397 rsnrm = xnrm2(nx,ny,nz,w1) 401 rsnrm = xnrm2(nx,ny,nz,w1)
|
H A D | nwjdrvd.f | 279 double precision rsden,rsnrm,orsnrm,xnrm1,xnrm2,xdot local 316 rsden = xnrm2(nx,ny,nz,tru) 318 rsden = xnrm2(nx,ny,nz,tru) 363 rsnrm = xnrm2(nx,ny,nz,w1) 367 rsnrm = xnrm2(nx,ny,nz,w1) 404 double precision rsden,rsnrm,orsnrm,xnrm1,xnrm2,xdot local 436 rsden = xnrm2(nx,ny,nz,tru) 438 rsden = xnrm2(nx,ny,nz,tru) 483 rsnrm = xnrm2(nx,ny,nz,w1) 487 rsnrm = xnrm2(nx,ny,nz,w1)
|
H A D | powerd.f | 88 double precision error,relerr,xnrm2,xdot local 105 denom = xnrm2(nx,ny,nz,w1) 133 denom = xnrm2(nx,ny,nz,w1) 148 error = xnrm2(nx,ny,nz,w4) 235 denom = xnrm2(nx,ny,nz,w1) 277 denom = xnrm2(nx,ny,nz,w1) 292 error = xnrm2(nx,ny,nz,w4) 346 double precision relerr,xnrm2,xdot local 364 denom = xnrm2(nx,ny,nz,w1) 414 denom = xnrm2(nx,ny,nz,w1) [all …]
|
H A D | cgd.f | 71 double precision omega,errtol,rsnrm,pAp,denom,xnrm2 82 denom = xnrm2(nx,ny,nz,r)
|
H A D | mgcsd.f | 190 double precision rsden,rsnrm,orsnrm,xnrm1,xnrm2,xdot,xnum,xden local 236 rsden = xnrm2(nxf,nyf,nzf,tru(iz(1,lev))) 238 rsden = xnrm2(nxf,nyf,nzf,tru(iz(1,lev))) 331 rsnrm = xnrm2(nxf,nyf,nzf,w1) 335 rsnrm = xnrm2(nxf,nyf,nzf,w1) 560 rsnrm = xnrm2(nxf,nyf,nzf,w1) 564 rsnrm = xnrm2(nxf,nyf,nzf,w1)
|
H A D | mikpckd.f | 252 function xnrm2(nx,ny,nz,x) function 263 double precision tmp,xnrm2 local 283 xnrm2 = dsqrt(tmp)
|
H A D | ncgdrvd.f | 279 double precision rsden,rsnrm,orsnrm,xnrm1,xnrm2,xdot local 319 rsden = xnrm2(nx,ny,nz,tru) 321 rsden = xnrm2(nx,ny,nz,tru) 410 rsnrm = xnrm2(nx,ny,nz,tmp) 414 rsnrm = xnrm2(nx,ny,nz,tmp) 451 double precision rsden,rsnrm,orsnrm,xnrm1,xnrm2,xdot local 486 rsden = xnrm2(nx,ny,nz,tru) 488 rsden = xnrm2(nx,ny,nz,tru) 553 rsnrm = xnrm2(nx,ny,nz,tmp) 557 rsnrm = xnrm2(nx,ny,nz,tmp)
|
H A D | nsordrvd.f | 279 double precision rsden,rsnrm,orsnrm,xnrm1,xnrm2,xdot 316 rsden = xnrm2(nx,ny,nz,tru) 318 rsden = xnrm2(nx,ny,nz,tru) 363 rsnrm = xnrm2(nx,ny,nz,w1) 367 rsnrm = xnrm2(nx,ny,nz,w1) 404 double precision rsden,rsnrm,orsnrm,xnrm1,xnrm2,xdot 436 rsden = xnrm2(nx,ny,nz,tru) 438 rsden = xnrm2(nx,ny,nz,tru) 483 rsnrm = xnrm2(nx,ny,nz,w1) 487 rsnrm = xnrm2(nx,ny,nz,w1)
|
H A D | ngsdrvd.f | 279 double precision rsden,rsnrm,orsnrm,xnrm1,xnrm2,xdot local 316 rsden = xnrm2(nx,ny,nz,tru) 318 rsden = xnrm2(nx,ny,nz,tru) 363 rsnrm = xnrm2(nx,ny,nz,w1) 367 rsnrm = xnrm2(nx,ny,nz,w1) 404 double precision rsden,rsnrm,orsnrm,xnrm1,xnrm2,xdot local 436 rsden = xnrm2(nx,ny,nz,tru) 438 rsden = xnrm2(nx,ny,nz,tru) 483 rsnrm = xnrm2(nx,ny,nz,w1) 487 rsnrm = xnrm2(nx,ny,nz,w1)
|
H A D | nrchdrvd.f | 279 double precision rsden,rsnrm,orsnrm,xnrm1,xnrm2,xdot 316 rsden = xnrm2(nx,ny,nz,tru) 318 rsden = xnrm2(nx,ny,nz,tru) 363 rsnrm = xnrm2(nx,ny,nz,w1) 367 rsnrm = xnrm2(nx,ny,nz,w1) 404 double precision rsden,rsnrm,orsnrm,xnrm1,xnrm2,xdot 436 rsden = xnrm2(nx,ny,nz,tru) 438 rsden = xnrm2(nx,ny,nz,tru) 483 rsnrm = xnrm2(nx,ny,nz,w1) 487 rsnrm = xnrm2(nx,ny,nz,w1)
|