/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/SRC/ |
H A D | dla_porfsx_extended.f | 417 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 D | sla_porfsx_extended.f | 414 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 D | sla_gbrfsx_extended.f | 440 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 D | dla_gbrfsx_extended.f | 442 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 D | dla_gerfsx_extended.f | 426 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 D | sla_gerfsx_extended.f | 426 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 D | sla_syrfsx_extended.f | 424 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 D | dla_porfsx_extended.f | 411 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 D | sla_porfsx_extended.f | 411 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 D | cla_syrfsx_extended.f | 421 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 D | cla_herfsx_extended.f | 421 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 D | cla_porfsx_extended.f | 412 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 D | dla_gbrfsx_extended.f | 436 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 D | zla_gerfsx_extended.f | 421 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 D | dla_gerfsx_extended.f | 420 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 D | dla_porfsx_extended.f | 411 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 D | sla_porfsx_extended.f | 411 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 D | dla_porfsx_extended.f | 411 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 D | sla_porfsx_extended.f | 411 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 D | dla_porfsx_extended.f | 411 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 D | sla_porfsx_extended.f | 411 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 D | dla_porfsx_extended.f | 414 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 D | sla_porfsx_extended.f | 414 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 D | dla_porfsx_extended.f | 411 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 D | sla_porfsx_extended.f | 411 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
|