/dports/science/apbs/apbs-pdb2pqr-apbs-1.5-102-g500c1473/apbs/externals/fetk/punc/src/cgcode/src_f77/ |
H A D | dcg.f | 351 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 D | scg.f | 351 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 D | dcgne.f | 362 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 D | scgne.f | 362 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 D | dcr.f | 374 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 D | scr.f | 374 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 D | msstop.f | 2 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 D | mdstop.f | 2 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 D | dcrind.f | 396 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 D | scrind.f | 396 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 D | nnls.R | 4 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 D | dsva.f | 166 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 D | ssva.f | 166 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 D | dodpc2.f | 4 + 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 D | sodpc2.f | 4 + 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 D | sglss.f | 2 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 D | ztrsen.f | 195 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 D | ctrsen.f | 291 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 D | ztrsen.f | 291 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 D | ctrsen.f | 288 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 D | ztrsen.f | 288 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 D | ztrsen.f | 288 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 D | ctrsen.f | 288 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 D | ctrsen.f | 194 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 D | ztrsen.f | 194 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 ) )
|