Home
last modified time | relevance | path

Searched refs:NORMX (Results 1 – 25 of 196) sorted by relevance

12345678

/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/SRC/
H A Ddla_porfsx_extended.f417 DOUBLE PRECISION YK, DYK, YMIN, NORMY, NORMX, NORMDX, DXRAT,
525 NORMX = 0.0D+0
546 NORMX = MAX( NORMX, YK * C( I ) )
549 NORMX = NORMY
554 IF ( NORMX .NE. 0.0D+0 ) THEN
555 DX_X = NORMDX / NORMX
H A Dsla_porfsx_extended.f414 REAL YK, DYK, YMIN, NORMY, NORMX, NORMDX, DXRAT,
522 NORMX = 0.0
543 NORMX = MAX( NORMX, YK * C( I ) )
546 NORMX = NORMY
551 IF ( NORMX .NE. 0.0 ) THEN
552 DX_X = NORMDX / NORMX
H A Dsla_gbrfsx_extended.f440 REAL YK, DYK, YMIN, NORMY, NORMX, NORMDX, DXRAT,
543 NORMX = 0.0
564 NORMX = MAX( NORMX, YK * C( I ) )
567 NORMX = NORMY
572 IF ( NORMX .NE. 0.0 ) THEN
573 DX_X = NORMDX / NORMX
H A Ddla_gbrfsx_extended.f442 DOUBLE PRECISION YK, DYK, YMIN, NORMY, NORMX, NORMDX, DXRAT,
545 NORMX = 0.0D+0
566 NORMX = MAX( NORMX, YK * C( I ) )
569 NORMX = NORMY
574 IF ( NORMX .NE. 0.0D+0 ) THEN
575 DX_X = NORMDX / NORMX
H A Ddla_gerfsx_extended.f426 DOUBLE PRECISION YK, DYK, YMIN, NORMY, NORMX, NORMDX, DXRAT,
525 NORMX = 0.0D+0
546 NORMX = MAX( NORMX, YK * C( I ) )
549 NORMX = NORMY
554 IF ( NORMX .NE. 0.0D+0 ) THEN
555 DX_X = NORMDX / NORMX
H A Dsla_gerfsx_extended.f426 REAL YK, DYK, YMIN, NORMY, NORMX, NORMDX, DXRAT,
525 NORMX = 0.0
546 NORMX = MAX( NORMX, YK * C( I ) )
549 NORMX = NORMY
554 IF ( NORMX .NE. 0.0 ) THEN
555 DX_X = NORMDX / NORMX
H A Dsla_syrfsx_extended.f424 REAL YK, DYK, YMIN, NORMY, NORMX, NORMDX, DXRAT,
552 NORMX = 0.0
573 NORMX = MAX( NORMX, YK * C( I ) )
576 NORMX = NORMY
581 IF ( NORMX .NE. 0.0 ) THEN
582 DX_X = NORMDX / NORMX
/dports/math/xlapack/lapack-3.10.0/SRC/
H A Ddla_porfsx_extended.f411 DOUBLE PRECISION YK, DYK, YMIN, NORMY, NORMX, NORMDX, DXRAT,
519 NORMX = 0.0D+0
540 NORMX = MAX( NORMX, YK * C( I ) )
543 NORMX = NORMY
548 IF ( NORMX .NE. 0.0D+0 ) THEN
549 DX_X = NORMDX / NORMX
H A Dsla_porfsx_extended.f411 REAL YK, DYK, YMIN, NORMY, NORMX, NORMDX, DXRAT,
519 NORMX = 0.0
540 NORMX = MAX( NORMX, YK * C( I ) )
543 NORMX = NORMY
548 IF ( NORMX .NE. 0.0 ) THEN
549 DX_X = NORMDX / NORMX
H A Dcla_syrfsx_extended.f421 REAL YK, DYK, YMIN, NORMY, NORMX, NORMDX, DXRAT,
556 NORMX = 0.0
577 NORMX = MAX( NORMX, YK * C( I ) )
580 NORMX = NORMY
585 IF ( NORMX .NE. 0.0 ) THEN
586 DX_X = NORMDX / NORMX
H A Dcla_herfsx_extended.f421 REAL YK, DYK, YMIN, NORMY, NORMX, NORMDX, DXRAT,
556 NORMX = 0.0
577 NORMX = MAX( NORMX, YK * C( I ) )
580 NORMX = NORMY
585 IF ( NORMX .NE. 0.0 ) THEN
586 DX_X = NORMDX / NORMX
H A Dcla_porfsx_extended.f412 REAL YK, DYK, YMIN, NORMY, NORMX, NORMDX, DXRAT,
527 NORMX = 0.0
548 NORMX = MAX(NORMX, YK * C(I))
551 NORMX = NORMY
556 IF (NORMX .NE. 0.0) THEN
557 DX_X = NORMDX / NORMX
H A Ddla_gbrfsx_extended.f436 DOUBLE PRECISION YK, DYK, YMIN, NORMY, NORMX, NORMDX, DXRAT,
539 NORMX = 0.0D+0
560 NORMX = MAX( NORMX, YK * C( I ) )
563 NORMX = NORMY
568 IF ( NORMX .NE. 0.0D+0 ) THEN
569 DX_X = NORMDX / NORMX
H A Dzla_gerfsx_extended.f421 DOUBLE PRECISION YK, DYK, YMIN, NORMY, NORMX, NORMDX, DXRAT,
530 NORMX = 0.0D+0
551 NORMX = MAX( NORMX, YK * C( I ) )
554 NORMX = NORMY
559 IF ( NORMX .NE. 0.0D+0 ) THEN
560 DX_X = NORMDX / NORMX
H A Ddla_gerfsx_extended.f420 DOUBLE PRECISION YK, DYK, YMIN, NORMY, NORMX, NORMDX, DXRAT,
519 NORMX = 0.0D+0
540 NORMX = MAX( NORMX, YK * C( I ) )
543 NORMX = NORMY
548 IF ( NORMX .NE. 0.0D+0 ) THEN
549 DX_X = NORMDX / NORMX
/dports/math/blas/lapack-3.10.0/SRC/
H A Ddla_porfsx_extended.f411 DOUBLE PRECISION YK, DYK, YMIN, NORMY, NORMX, NORMDX, DXRAT,
519 NORMX = 0.0D+0
540 NORMX = MAX( NORMX, YK * C( I ) )
543 NORMX = NORMY
548 IF ( NORMX .NE. 0.0D+0 ) THEN
549 DX_X = NORMDX / NORMX
H A Dsla_porfsx_extended.f411 REAL YK, DYK, YMIN, NORMY, NORMX, NORMDX, DXRAT,
519 NORMX = 0.0
540 NORMX = MAX( NORMX, YK * C( I ) )
543 NORMX = NORMY
548 IF ( NORMX .NE. 0.0 ) THEN
549 DX_X = NORMDX / NORMX
/dports/math/lapacke/lapack-3.10.0/SRC/
H A Ddla_porfsx_extended.f411 DOUBLE PRECISION YK, DYK, YMIN, NORMY, NORMX, NORMDX, DXRAT,
519 NORMX = 0.0D+0
540 NORMX = MAX( NORMX, YK * C( I ) )
543 NORMX = NORMY
548 IF ( NORMX .NE. 0.0D+0 ) THEN
549 DX_X = NORMDX / NORMX
H A Dsla_porfsx_extended.f411 REAL YK, DYK, YMIN, NORMY, NORMX, NORMDX, DXRAT,
519 NORMX = 0.0
540 NORMX = MAX( NORMX, YK * C( I ) )
543 NORMX = NORMY
548 IF ( NORMX .NE. 0.0 ) THEN
549 DX_X = NORMDX / NORMX
/dports/math/lapack/lapack-3.10.0/SRC/
H A Ddla_porfsx_extended.f411 DOUBLE PRECISION YK, DYK, YMIN, NORMY, NORMX, NORMDX, DXRAT,
519 NORMX = 0.0D+0
540 NORMX = MAX( NORMX, YK * C( I ) )
543 NORMX = NORMY
548 IF ( NORMX .NE. 0.0D+0 ) THEN
549 DX_X = NORMDX / NORMX
H A Dsla_porfsx_extended.f411 REAL YK, DYK, YMIN, NORMY, NORMX, NORMDX, DXRAT,
519 NORMX = 0.0
540 NORMX = MAX( NORMX, YK * C( I ) )
543 NORMX = NORMY
548 IF ( NORMX .NE. 0.0 ) THEN
549 DX_X = NORMDX / NORMX
/dports/math/openblas/OpenBLAS-0.3.18/lapack-netlib/SRC/
H A Ddla_porfsx_extended.f414 DOUBLE PRECISION YK, DYK, YMIN, NORMY, NORMX, NORMDX, DXRAT, local
522 NORMX = 0.0D+0
543 NORMX = MAX( NORMX, YK * C( I ) )
546 NORMX = NORMY
551 IF ( NORMX .NE. 0.0D+0 ) THEN
552 DX_X = NORMDX / NORMX
H A Dsla_porfsx_extended.f414 REAL YK, DYK, YMIN, NORMY, NORMX, NORMDX, DXRAT, local
522 NORMX = 0.0
543 NORMX = MAX( NORMX, YK * C( I ) )
546 NORMX = NORMY
551 IF ( NORMX .NE. 0.0 ) THEN
552 DX_X = NORMDX / NORMX
/dports/math/cblas/lapack-3.10.0/SRC/
H A Ddla_porfsx_extended.f411 DOUBLE PRECISION YK, DYK, YMIN, NORMY, NORMX, NORMDX, DXRAT,
519 NORMX = 0.0D+0
540 NORMX = MAX( NORMX, YK * C( I ) )
543 NORMX = NORMY
548 IF ( NORMX .NE. 0.0D+0 ) THEN
549 DX_X = NORMDX / NORMX
H A Dsla_porfsx_extended.f411 REAL YK, DYK, YMIN, NORMY, NORMX, NORMDX, DXRAT,
519 NORMX = 0.0
540 NORMX = MAX( NORMX, YK * C( I ) )
543 NORMX = NORMY
548 IF ( NORMX .NE. 0.0 ) THEN
549 DX_X = NORMDX / NORMX

12345678