Home
last modified time | relevance | path

Searched refs:RNORM (Results 1 – 25 of 294) sorted by relevance

12345678910>>...12

/dports/science/apbs/apbs-pdb2pqr-apbs-1.5-102-g500c1473/apbs/externals/fetk/punc/src/cgcode/src_f77/
H A Ddcg.f351 RNORM = R0NORM
359 ALPHA = RNORM**2 / DDOT(N,AP,1,B,1)
364 OLDRNM = RNORM
365 RNORM = DNRM2(N,R,1)
366 IF (IOUNIT .GT. 0) WRITE(IOUNIT,35) ITERS, RNORM, RNORM/R0NORM
371 2 RDUMM,SDUMM,ZDUMM,N,RNORM,RNORM,RNORM,
376 BETA = (RNORM/OLDRNM)**2
404 RPARAM(34) = RNORM/R0NORM
H A Dscg.f351 RNORM = R0NORM
359 ALPHA = RNORM**2 / SDOT(N,AP,1,B,1)
364 OLDRNM = RNORM
365 RNORM = SNRM2(N,R,1)
366 IF (IOUNIT .GT. 0) WRITE(IOUNIT,35) ITERS, RNORM, RNORM/R0NORM
371 2 RDUMM,SDUMM,ZDUMM,N,RNORM,RNORM,RNORM,
376 BETA = (RNORM/OLDRNM)**2
404 RPARAM(34) = RNORM/R0NORM
H A Ddcgne.f362 RNORM = R0NORM
370 ALPHA = (RNORM/DNRM2(N,B,1))**2
375 OLDRNM = RNORM
376 RNORM = DNRM2(N,R,1)
377 IF (IOUNIT .GT. 0) WRITE(IOUNIT,35) ITERS, RNORM, RNORM/R0NORM
382 2 RDUMM,SDUMM,ZDUMM,N,RNORM,RNORM,RNORM,
388 BETA = (RNORM/OLDRNM)**2
419 RPARAM(34) = RNORM/R0NORM
H A Dscgne.f362 RNORM = R0NORM
370 ALPHA = (RNORM/SNRM2(N,B,1))**2
375 OLDRNM = RNORM
376 RNORM = SNRM2(N,R,1)
377 IF (IOUNIT .GT. 0) WRITE(IOUNIT,35) ITERS, RNORM, RNORM/R0NORM
382 2 RDUMM,SDUMM,ZDUMM,N,RNORM,RNORM,RNORM,
388 BETA = (RNORM/OLDRNM)**2
419 RPARAM(34) = RNORM/R0NORM
H A Ddcr.f374 RNORM = DNRM2(N,R,1)
375 IF (IOUNIT .GT. 0) WRITE(IOUNIT,35) ITERS, RNORM, RNORM/R0NORM
380 2 RDUMM,SDUMM,ZDUMM,N,RNORM,RNORM,RNORM,
422 RPARAM(34) = RNORM/R0NORM
H A Dscr.f374 RNORM = SNRM2(N,R,1)
375 IF (IOUNIT .GT. 0) WRITE(IOUNIT,35) ITERS, RNORM, RNORM/R0NORM
380 2 RDUMM,SDUMM,ZDUMM,N,RNORM,RNORM,RNORM,
422 RPARAM(34) = RNORM/R0NORM
H A Dmsstop.f2 2 R,S,Z,N,RNORM,SNORM,ZNORM,DENOM,CONDA,IDO)
63 IF ((ISTOP .EQ. 1) .OR. (ISTOP .EQ. 2)) RNORM = SNRM2(N,R,1)
67 IF (ISTOP .EQ. 1) STPTST = RNORM
68 IF (ISTOP .EQ. 2) STPTST = RNORM/DENOM
H A Dmdstop.f2 2 R,S,Z,N,RNORM,SNORM,ZNORM,DENOM,CONDA,IDO)
63 IF ((ISTOP .EQ. 1) .OR. (ISTOP .EQ. 2)) RNORM = DNRM2(N,R,1)
67 IF (ISTOP .EQ. 1) STPTST = RNORM
68 IF (ISTOP .EQ. 2) STPTST = RNORM/DENOM
H A Ddcrind.f396 RNORM = DNRM2(N,R,1)
397 IF (IOUNIT .GT. 0) WRITE(IOUNIT,35) ITERS, RNORM, RNORM/R0NORM
402 2 RDUMM,SDUMM,ZDUMM,N,RNORM,RNORM,RNORM,
450 RPARAM(34) = RNORM/R0NORM
H A Dscrind.f396 RNORM = SNRM2(N,R,1)
397 IF (IOUNIT .GT. 0) WRITE(IOUNIT,35) ITERS, RNORM, RNORM/R0NORM
402 2 RDUMM,SDUMM,ZDUMM,N,RNORM,RNORM,RNORM,
450 RPARAM(34) = RNORM/R0NORM
/dports/math/R-cran-nnls/nnls/R/
H A Dnnls.R4 RNORM <- MODE <- NSETP <- 0 functionVar
9 X = as.numeric(X), RNORM = as.numeric(RNORM), W =
24 nnls.out <- list(x=sol$X, deviance=sol$RNORM^2,
33 RNORM <- MODE <- NSETP <- 0 functionVar
41 RNORM = as.numeric(RNORM), W =
56 nnnpls.out <- list(x=sol$X, deviance=sol$RNORM^2,
/dports/math/math77/MATH77/
H A Ddsva.f166 double precision ONE, PCOEF, RL, RNORM, RS local
480 RNORM = sqrt(WORK(J+1))
484 IF (RNORM .GT. ZERO) RL = LOG10(RNORM)
488 write (*,310) J,YNORM,RNORM,YL,RL
491 write (UNIT,310) J,YNORM,RNORM,YL,RL
526 RNORM = sqrt(RS)
528 IF (RNORM.GT.ZERO) RL = LOG10(RNORM)
534 write (*,330) ALAMB,YNORM,RNORM,EL,YL,RL
537 write (UNIT,330) ALAMB,YNORM,RNORM,EL,YL,RL
H A Dssva.f166 real ONE, PCOEF, RL, RNORM, RS local
480 RNORM = sqrt(WORK(J+1))
484 IF (RNORM .GT. ZERO) RL = LOG10(RNORM)
488 write (*,310) J,YNORM,RNORM,YL,RL
491 write (UNIT,310) J,YNORM,RNORM,YL,RL
526 RNORM = sqrt(RS)
528 IF (RNORM.GT.ZERO) RL = LOG10(RNORM)
534 write (*,330) ALAMB,YNORM,RNORM,EL,YL,RL
537 write (UNIT,330) ALAMB,YNORM,RNORM,EL,YL,RL
/dports/math/cmlib/cmlib-3.0_8/src/odrpack/
H A Ddodpc2.f4 + NJEV,NFEV,RNORM,ACTRED,PRERED,ALPHA,TAU,PNORM,BETA)
73 DOUBLE PRECISION RNORM
105 WRITE (LUNRPT,1141) NJEV,NFEV,RNORM**2,ACTRED,PRERED,
111 WRITE (LUNRPT,1141) NJEV,NFEV,RNORM**2,ACTRED,PRERED,
114 WRITE (LUNRPT,1142) NJEV,NFEV,RNORM**2,ACTRED,PRERED,
H A Dsodpc2.f4 + NJEV,NFEV,RNORM,ACTRED,PRERED,ALPHA,TAU,PNORM,BETA)
73 REAL RNORM
105 WRITE (LUNRPT,1141) NJEV,NFEV,RNORM**2,ACTRED,PRERED,
111 WRITE (LUNRPT,1141) NJEV,NFEV,RNORM**2,ACTRED,PRERED,
114 WRITE (LUNRPT,1142) NJEV,NFEV,RNORM**2,ACTRED,PRERED,
/dports/math/slatec/src/
H A Dsglss.f2 SUBROUTINE SGLSS (A, MDA, M, N, B, MDB, NB, RNORM, WORK, LW, argument
120 DIMENSION A(MDA,*),B(MDB,*),RNORM(*),WORK(*)
135 1 KRANK,KSURE,RNORM,WORK,LW,IWORK,LIW,INFO)
140 1 KRANK,KSURE,RNORM,WORK,LW,IWORK,LIW,INFO)
/dports/science/InsightToolkit/ITK-5.0.1/Modules/ThirdParty/VNL/src/vxl/v3p/netlib/lapack/complex16/
H A Dztrsen.f195 DOUBLE PRECISION EST, RNORM, SCALE
307 RNORM = ZLANGE( 'F', N1, N2, WORK, N1, RWORK )
308 IF( RNORM.EQ.ZERO ) THEN
311 S = SCALE / ( SQRT( SCALE*SCALE / RNORM+RNORM )*
312 $ SQRT( RNORM ) )
/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/SRC/
H A Dctrsen.f291 REAL EST, RNORM, SCALE
403 RNORM = CLANGE( 'F', N1, N2, WORK, N1, RWORK )
404 IF( RNORM.EQ.ZERO ) THEN
407 S = SCALE / ( SQRT( SCALE*SCALE / RNORM+RNORM )*
408 $ SQRT( RNORM ) )
H A Dztrsen.f291 DOUBLE PRECISION EST, RNORM, SCALE
403 RNORM = ZLANGE( 'F', N1, N2, WORK, N1, RWORK )
404 IF( RNORM.EQ.ZERO ) THEN
407 S = SCALE / ( SQRT( SCALE*SCALE / RNORM+RNORM )*
408 $ SQRT( RNORM ) )
/dports/math/xlapack/lapack-3.10.0/SRC/
H A Dctrsen.f288 REAL EST, RNORM, SCALE
400 RNORM = CLANGE( 'F', N1, N2, WORK, N1, RWORK )
401 IF( RNORM.EQ.ZERO ) THEN
404 S = SCALE / ( SQRT( SCALE*SCALE / RNORM+RNORM )*
405 $ SQRT( RNORM ) )
H A Dztrsen.f288 DOUBLE PRECISION EST, RNORM, SCALE
400 RNORM = ZLANGE( 'F', N1, N2, WORK, N1, RWORK )
401 IF( RNORM.EQ.ZERO ) THEN
404 S = SCALE / ( SQRT( SCALE*SCALE / RNORM+RNORM )*
405 $ SQRT( RNORM ) )
/dports/math/blas/lapack-3.10.0/SRC/
H A Dztrsen.f288 DOUBLE PRECISION EST, RNORM, SCALE
400 RNORM = ZLANGE( 'F', N1, N2, WORK, N1, RWORK )
401 IF( RNORM.EQ.ZERO ) THEN
404 S = SCALE / ( SQRT( SCALE*SCALE / RNORM+RNORM )*
405 $ SQRT( RNORM ) )
H A Dctrsen.f288 REAL EST, RNORM, SCALE
400 RNORM = CLANGE( 'F', N1, N2, WORK, N1, RWORK )
401 IF( RNORM.EQ.ZERO ) THEN
404 S = SCALE / ( SQRT( SCALE*SCALE / RNORM+RNORM )*
405 $ SQRT( RNORM ) )
/dports/science/apbs/apbs-pdb2pqr-apbs-1.5-102-g500c1473/apbs/externals/fetk/punc/src/lapack/src_f77/
H A Dctrsen.f194 REAL EST, RNORM, SCALE
305 RNORM = CLANGE( 'F', N1, N2, WORK, N1, RWORK )
306 IF( RNORM.EQ.ZERO ) THEN
309 S = SCALE / ( SQRT( SCALE*SCALE / RNORM+RNORM )*
310 $ SQRT( RNORM ) )
H A Dztrsen.f194 DOUBLE PRECISION EST, RNORM, SCALE local
305 RNORM = ZLANGE( 'F', N1, N2, WORK, N1, RWORK )
306 IF( RNORM.EQ.ZERO ) THEN
309 S = SCALE / ( SQRT( SCALE*SCALE / RNORM+RNORM )*
310 $ SQRT( RNORM ) )

12345678910>>...12