| /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,
532 YK = ABS( Y( I, J ) )
535 IF ( YK .NE. 0.0D+0 ) THEN
536 DZ_Z = MAX( DZ_Z, DYK / YK )
541 YMIN = MIN( YMIN, YK )
543 NORMY = MAX( NORMY, YK )
546 NORMX = MAX( NORMX, YK * C( I ) )
|
| H A D | sla_porfsx_extended.f | 414 REAL YK, DYK, YMIN, NORMY, NORMX, NORMDX, DXRAT,
529 YK = ABS( Y( I, J ) )
532 IF ( YK .NE. 0.0 ) THEN
533 DZ_Z = MAX( DZ_Z, DYK / YK )
538 YMIN = MIN( YMIN, YK )
540 NORMY = MAX( NORMY, YK )
543 NORMX = MAX( NORMX, YK * C( I ) )
|
| H A D | sla_gbrfsx_extended.f | 440 REAL YK, DYK, YMIN, NORMY, NORMX, NORMDX, DXRAT,
550 YK = ABS( Y( I, J ) )
553 IF ( YK .NE. 0.0 ) THEN
554 DZ_Z = MAX( DZ_Z, DYK / YK )
559 YMIN = MIN( YMIN, YK )
561 NORMY = MAX( NORMY, YK )
564 NORMX = MAX( NORMX, YK * C( I ) )
|
| H A D | dla_gbrfsx_extended.f | 442 DOUBLE PRECISION YK, DYK, YMIN, NORMY, NORMX, NORMDX, DXRAT,
552 YK = ABS( Y( I, J ) )
555 IF ( YK .NE. 0.0D+0 ) THEN
556 DZ_Z = MAX( DZ_Z, DYK / YK )
561 YMIN = MIN( YMIN, YK )
563 NORMY = MAX( NORMY, YK )
566 NORMX = MAX( NORMX, YK * C( I ) )
|
| H A D | dla_gerfsx_extended.f | 426 DOUBLE PRECISION YK, DYK, YMIN, NORMY, NORMX, NORMDX, DXRAT,
532 YK = ABS( Y( I, J ) )
535 IF ( YK .NE. 0.0D+0 ) THEN
536 DZ_Z = MAX( DZ_Z, DYK / YK )
541 YMIN = MIN( YMIN, YK )
543 NORMY = MAX( NORMY, YK )
546 NORMX = MAX( NORMX, YK * C( I ) )
|
| H A D | sla_gerfsx_extended.f | 426 REAL YK, DYK, YMIN, NORMY, NORMX, NORMDX, DXRAT,
532 YK = ABS( Y( I, J ) )
535 IF ( YK .NE. 0.0 ) THEN
536 DZ_Z = MAX( DZ_Z, DYK / YK )
541 YMIN = MIN( YMIN, YK )
543 NORMY = MAX( NORMY, YK )
546 NORMX = MAX( NORMX, YK * C( I ) )
|
| H A D | sla_syrfsx_extended.f | 424 REAL YK, DYK, YMIN, NORMY, NORMX, NORMDX, DXRAT,
559 YK = ABS( Y( I, J ) )
562 IF ( YK .NE. 0.0 ) THEN
563 DZ_Z = MAX( DZ_Z, DYK / YK )
568 YMIN = MIN( YMIN, YK )
570 NORMY = MAX( NORMY, YK )
573 NORMX = MAX( NORMX, YK * C( I ) )
|
| /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,
526 YK = ABS( Y( I, J ) )
529 IF ( YK .NE. 0.0D+0 ) THEN
530 DZ_Z = MAX( DZ_Z, DYK / YK )
535 YMIN = MIN( YMIN, YK )
537 NORMY = MAX( NORMY, YK )
540 NORMX = MAX( NORMX, YK * C( I ) )
|
| H A D | sla_porfsx_extended.f | 411 REAL YK, DYK, YMIN, NORMY, NORMX, NORMDX, DXRAT,
526 YK = ABS( Y( I, J ) )
529 IF ( YK .NE. 0.0 ) THEN
530 DZ_Z = MAX( DZ_Z, DYK / YK )
535 YMIN = MIN( YMIN, YK )
537 NORMY = MAX( NORMY, YK )
540 NORMX = MAX( NORMX, YK * C( I ) )
|
| H A D | cla_syrfsx_extended.f | 421 REAL YK, DYK, YMIN, NORMY, NORMX, NORMDX, DXRAT,
563 YK = CABS1( Y( I, J ) )
566 IF ( YK .NE. 0.0 ) THEN
567 DZ_Z = MAX( DZ_Z, DYK / YK )
572 YMIN = MIN( YMIN, YK )
574 NORMY = MAX( NORMY, YK )
577 NORMX = MAX( NORMX, YK * C( I ) )
|
| H A D | cla_herfsx_extended.f | 421 REAL YK, DYK, YMIN, NORMY, NORMX, NORMDX, DXRAT,
563 YK = CABS1( Y( I, J ) )
566 IF (YK .NE. 0.0) THEN
567 DZ_Z = MAX( DZ_Z, DYK / YK )
572 YMIN = MIN( YMIN, YK )
574 NORMY = MAX( NORMY, YK )
577 NORMX = MAX( NORMX, YK * C( I ) )
|
| H A D | cla_porfsx_extended.f | 412 REAL YK, DYK, YMIN, NORMY, NORMX, NORMDX, DXRAT,
534 YK = CABS1(Y(I, J))
537 IF (YK .NE. 0.0) THEN
538 DZ_Z = MAX( DZ_Z, DYK / YK )
543 YMIN = MIN( YMIN, YK )
545 NORMY = MAX( NORMY, YK )
548 NORMX = MAX(NORMX, YK * C(I))
|
| H A D | dla_gbrfsx_extended.f | 436 DOUBLE PRECISION YK, DYK, YMIN, NORMY, NORMX, NORMDX, DXRAT,
546 YK = ABS( Y( I, J ) )
549 IF ( YK .NE. 0.0D+0 ) THEN
550 DZ_Z = MAX( DZ_Z, DYK / YK )
555 YMIN = MIN( YMIN, YK )
557 NORMY = MAX( NORMY, YK )
560 NORMX = MAX( NORMX, YK * C( I ) )
|
| H A D | zla_gerfsx_extended.f | 421 DOUBLE PRECISION YK, DYK, YMIN, NORMY, NORMX, NORMDX, DXRAT,
537 YK = CABS1( Y( I, J ) )
540 IF ( YK .NE. 0.0D+0 ) THEN
541 DZ_Z = MAX( DZ_Z, DYK / YK )
546 YMIN = MIN( YMIN, YK )
548 NORMY = MAX( NORMY, YK )
551 NORMX = MAX( NORMX, YK * C( I ) )
|
| H A D | dla_gerfsx_extended.f | 420 DOUBLE PRECISION YK, DYK, YMIN, NORMY, NORMX, NORMDX, DXRAT,
526 YK = ABS( Y( I, J ) )
529 IF ( YK .NE. 0.0D+0 ) THEN
530 DZ_Z = MAX( DZ_Z, DYK / YK )
535 YMIN = MIN( YMIN, YK )
537 NORMY = MAX( NORMY, YK )
540 NORMX = MAX( NORMX, YK * C( I ) )
|
| /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,
526 YK = ABS( Y( I, J ) )
529 IF ( YK .NE. 0.0D+0 ) THEN
530 DZ_Z = MAX( DZ_Z, DYK / YK )
535 YMIN = MIN( YMIN, YK )
537 NORMY = MAX( NORMY, YK )
540 NORMX = MAX( NORMX, YK * C( I ) )
|
| H A D | sla_porfsx_extended.f | 411 REAL YK, DYK, YMIN, NORMY, NORMX, NORMDX, DXRAT,
526 YK = ABS( Y( I, J ) )
529 IF ( YK .NE. 0.0 ) THEN
530 DZ_Z = MAX( DZ_Z, DYK / YK )
535 YMIN = MIN( YMIN, YK )
537 NORMY = MAX( NORMY, YK )
540 NORMX = MAX( NORMX, YK * C( I ) )
|
| /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,
526 YK = ABS( Y( I, J ) )
529 IF ( YK .NE. 0.0D+0 ) THEN
530 DZ_Z = MAX( DZ_Z, DYK / YK )
535 YMIN = MIN( YMIN, YK )
537 NORMY = MAX( NORMY, YK )
540 NORMX = MAX( NORMX, YK * C( I ) )
|
| H A D | sla_porfsx_extended.f | 411 REAL YK, DYK, YMIN, NORMY, NORMX, NORMDX, DXRAT,
526 YK = ABS( Y( I, J ) )
529 IF ( YK .NE. 0.0 ) THEN
530 DZ_Z = MAX( DZ_Z, DYK / YK )
535 YMIN = MIN( YMIN, YK )
537 NORMY = MAX( NORMY, YK )
540 NORMX = MAX( NORMX, YK * C( I ) )
|
| /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,
526 YK = ABS( Y( I, J ) )
529 IF ( YK .NE. 0.0D+0 ) THEN
530 DZ_Z = MAX( DZ_Z, DYK / YK )
535 YMIN = MIN( YMIN, YK )
537 NORMY = MAX( NORMY, YK )
540 NORMX = MAX( NORMX, YK * C( I ) )
|
| H A D | sla_porfsx_extended.f | 411 REAL YK, DYK, YMIN, NORMY, NORMX, NORMDX, DXRAT,
526 YK = ABS( Y( I, J ) )
529 IF ( YK .NE. 0.0 ) THEN
530 DZ_Z = MAX( DZ_Z, DYK / YK )
535 YMIN = MIN( YMIN, YK )
537 NORMY = MAX( NORMY, YK )
540 NORMX = MAX( NORMX, YK * C( I ) )
|
| /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
529 YK = ABS( Y( I, J ) )
532 IF ( YK .NE. 0.0D+0 ) THEN
533 DZ_Z = MAX( DZ_Z, DYK / YK )
538 YMIN = MIN( YMIN, YK )
540 NORMY = MAX( NORMY, YK )
543 NORMX = MAX( NORMX, YK * C( I ) )
|
| H A D | sla_porfsx_extended.f | 414 REAL YK, DYK, YMIN, NORMY, NORMX, NORMDX, DXRAT, local
529 YK = ABS( Y( I, J ) )
532 IF ( YK .NE. 0.0 ) THEN
533 DZ_Z = MAX( DZ_Z, DYK / YK )
538 YMIN = MIN( YMIN, YK )
540 NORMY = MAX( NORMY, YK )
543 NORMX = MAX( NORMX, YK * C( I ) )
|
| /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,
526 YK = ABS( Y( I, J ) )
529 IF ( YK .NE. 0.0D+0 ) THEN
530 DZ_Z = MAX( DZ_Z, DYK / YK )
535 YMIN = MIN( YMIN, YK )
537 NORMY = MAX( NORMY, YK )
540 NORMX = MAX( NORMX, YK * C( I ) )
|
| H A D | sla_porfsx_extended.f | 411 REAL YK, DYK, YMIN, NORMY, NORMX, NORMDX, DXRAT,
526 YK = ABS( Y( I, J ) )
529 IF ( YK .NE. 0.0 ) THEN
530 DZ_Z = MAX( DZ_Z, DYK / YK )
535 YMIN = MIN( YMIN, YK )
537 NORMY = MAX( NORMY, YK )
540 NORMX = MAX( NORMX, YK * C( I ) )
|