/dports/math/libflame/libflame-5.2.0/old/lapack-test/lapack-timing/LIN/LINSRC/ |
H A D | zlalsd.f | 429 CALL DLASET( 'A', NSIZE, NSIZE, ZERO, ONE, 431 CALL DLASET( 'A', NSIZE, NSIZE, ZERO, ONE, 433 CALL DLASDQ( 'U', 0, NSIZE, NSIZE, NSIZE, 0, D( ST ), 452 OPS = OPS + DOPBL3( 'DGEMM ', NSIZE, NRHS, NSIZE ) 453 CALL DGEMM( 'T', 'N', NSIZE, NRHS, NSIZE, ONE, 463 OPS = OPS + DOPBL3( 'DGEMM ', NSIZE, NRHS, NSIZE ) 464 CALL DGEMM( 'T', 'N', NSIZE, NRHS, NSIZE, ONE, 563 OPS = OPS + DOPBL3( 'DGEMM ', NSIZE, NRHS, NSIZE ) 564 CALL DGEMM( 'T', 'N', NSIZE, NRHS, NSIZE, ONE, 576 OPS = OPS + DOPBL3( 'DGEMM ', NSIZE, NRHS, NSIZE ) [all …]
|
H A D | clalsd.f | 429 CALL SLASET( 'A', NSIZE, NSIZE, ZERO, ONE, 431 CALL SLASET( 'A', NSIZE, NSIZE, ZERO, ONE, 433 CALL SLASDQ( 'U', 0, NSIZE, NSIZE, NSIZE, 0, D( ST ), 452 OPS = OPS + SOPBL3( 'SGEMM ', NSIZE, NRHS, NSIZE ) 453 CALL SGEMM( 'T', 'N', NSIZE, NRHS, NSIZE, ONE, 463 OPS = OPS + SOPBL3( 'SGEMM ', NSIZE, NRHS, NSIZE ) 464 CALL SGEMM( 'T', 'N', NSIZE, NRHS, NSIZE, ONE, 563 OPS = OPS + SOPBL3( 'SGEMM ', NSIZE, NRHS, NSIZE ) 564 CALL SGEMM( 'T', 'N', NSIZE, NRHS, NSIZE, ONE, 576 OPS = OPS + SOPBL3( 'SGEMM ', NSIZE, NRHS, NSIZE ) [all …]
|
/dports/math/openblas/TIMING/LIN/LINSRC/ |
H A D | clalsd.f | 429 CALL SLASET( 'A', NSIZE, NSIZE, ZERO, ONE, 431 CALL SLASET( 'A', NSIZE, NSIZE, ZERO, ONE, 433 CALL SLASDQ( 'U', 0, NSIZE, NSIZE, NSIZE, 0, D( ST ), 452 OPS = OPS + SOPBL3( 'SGEMM ', NSIZE, NRHS, NSIZE ) 453 CALL SGEMM( 'T', 'N', NSIZE, NRHS, NSIZE, ONE, 463 OPS = OPS + SOPBL3( 'SGEMM ', NSIZE, NRHS, NSIZE ) 464 CALL SGEMM( 'T', 'N', NSIZE, NRHS, NSIZE, ONE, 563 OPS = OPS + SOPBL3( 'SGEMM ', NSIZE, NRHS, NSIZE ) 564 CALL SGEMM( 'T', 'N', NSIZE, NRHS, NSIZE, ONE, 576 OPS = OPS + SOPBL3( 'SGEMM ', NSIZE, NRHS, NSIZE ) [all …]
|
H A D | zlalsd.f | 429 CALL DLASET( 'A', NSIZE, NSIZE, ZERO, ONE, 431 CALL DLASET( 'A', NSIZE, NSIZE, ZERO, ONE, 433 CALL DLASDQ( 'U', 0, NSIZE, NSIZE, NSIZE, 0, D( ST ), 452 OPS = OPS + DOPBL3( 'DGEMM ', NSIZE, NRHS, NSIZE ) 453 CALL DGEMM( 'T', 'N', NSIZE, NRHS, NSIZE, ONE, 463 OPS = OPS + DOPBL3( 'DGEMM ', NSIZE, NRHS, NSIZE ) 464 CALL DGEMM( 'T', 'N', NSIZE, NRHS, NSIZE, ONE, 563 OPS = OPS + DOPBL3( 'DGEMM ', NSIZE, NRHS, NSIZE ) 564 CALL DGEMM( 'T', 'N', NSIZE, NRHS, NSIZE, ONE, 576 OPS = OPS + DOPBL3( 'DGEMM ', NSIZE, NRHS, NSIZE ) [all …]
|
/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/SRC/ |
H A D | clalsd.f | 477 NSIZE = I - ST + 1 483 NSIZE = N - ST + 1 491 NSIZE = I - ST + 1 509 CALL SLASET( 'A', NSIZE, NSIZE, ZERO, ONE, 511 CALL SLASET( 'A', NSIZE, NSIZE, ZERO, ONE, 513 CALL SLASDQ( 'U', 0, NSIZE, NSIZE, NSIZE, 0, D( ST ), 532 CALL SGEMM( 'T', 'N', NSIZE, NRHS, NSIZE, ONE, 542 CALL SGEMM( 'T', 'N', NSIZE, NRHS, NSIZE, ONE, 619 IF( NSIZE.EQ.1 ) THEN 639 CALL SGEMM( 'T', 'N', NSIZE, NRHS, NSIZE, ONE, [all …]
|
H A D | zlalsd.f | 481 NSIZE = I - ST + 1 487 NSIZE = N - ST + 1 495 NSIZE = I - ST + 1 513 CALL DLASET( 'A', NSIZE, NSIZE, ZERO, ONE, 515 CALL DLASET( 'A', NSIZE, NSIZE, ZERO, ONE, 517 CALL DLASDQ( 'U', 0, NSIZE, NSIZE, NSIZE, 0, D( ST ), 536 CALL DGEMM( 'T', 'N', NSIZE, NRHS, NSIZE, ONE, 546 CALL DGEMM( 'T', 'N', NSIZE, NRHS, NSIZE, ONE, 623 IF( NSIZE.EQ.1 ) THEN 643 CALL DGEMM( 'T', 'N', NSIZE, NRHS, NSIZE, ONE, [all …]
|
/dports/math/xlapack/lapack-3.10.0/SRC/ |
H A D | zlalsd.f | 477 NSIZE = I - ST + 1 483 NSIZE = N - ST + 1 491 NSIZE = I - ST + 1 509 CALL DLASET( 'A', NSIZE, NSIZE, ZERO, ONE, 511 CALL DLASET( 'A', NSIZE, NSIZE, ZERO, ONE, 513 CALL DLASDQ( 'U', 0, NSIZE, NSIZE, NSIZE, 0, D( ST ), 532 CALL DGEMM( 'T', 'N', NSIZE, NRHS, NSIZE, ONE, 542 CALL DGEMM( 'T', 'N', NSIZE, NRHS, NSIZE, ONE, 619 IF( NSIZE.EQ.1 ) THEN 639 CALL DGEMM( 'T', 'N', NSIZE, NRHS, NSIZE, ONE, [all …]
|
H A D | clalsd.f | 474 NSIZE = I - ST + 1 480 NSIZE = N - ST + 1 488 NSIZE = I - ST + 1 506 CALL SLASET( 'A', NSIZE, NSIZE, ZERO, ONE, 508 CALL SLASET( 'A', NSIZE, NSIZE, ZERO, ONE, 510 CALL SLASDQ( 'U', 0, NSIZE, NSIZE, NSIZE, 0, D( ST ), 529 CALL SGEMM( 'T', 'N', NSIZE, NRHS, NSIZE, ONE, 539 CALL SGEMM( 'T', 'N', NSIZE, NRHS, NSIZE, ONE, 616 IF( NSIZE.EQ.1 ) THEN 636 CALL SGEMM( 'T', 'N', NSIZE, NRHS, NSIZE, ONE, [all …]
|
/dports/math/blas/lapack-3.10.0/SRC/ |
H A D | zlalsd.f | 477 NSIZE = I - ST + 1 483 NSIZE = N - ST + 1 491 NSIZE = I - ST + 1 509 CALL DLASET( 'A', NSIZE, NSIZE, ZERO, ONE, 511 CALL DLASET( 'A', NSIZE, NSIZE, ZERO, ONE, 513 CALL DLASDQ( 'U', 0, NSIZE, NSIZE, NSIZE, 0, D( ST ), 532 CALL DGEMM( 'T', 'N', NSIZE, NRHS, NSIZE, ONE, 542 CALL DGEMM( 'T', 'N', NSIZE, NRHS, NSIZE, ONE, 619 IF( NSIZE.EQ.1 ) THEN 639 CALL DGEMM( 'T', 'N', NSIZE, NRHS, NSIZE, ONE, [all …]
|
H A D | clalsd.f | 474 NSIZE = I - ST + 1 480 NSIZE = N - ST + 1 488 NSIZE = I - ST + 1 506 CALL SLASET( 'A', NSIZE, NSIZE, ZERO, ONE, 508 CALL SLASET( 'A', NSIZE, NSIZE, ZERO, ONE, 510 CALL SLASDQ( 'U', 0, NSIZE, NSIZE, NSIZE, 0, D( ST ), 529 CALL SGEMM( 'T', 'N', NSIZE, NRHS, NSIZE, ONE, 539 CALL SGEMM( 'T', 'N', NSIZE, NRHS, NSIZE, ONE, 616 IF( NSIZE.EQ.1 ) THEN 636 CALL SGEMM( 'T', 'N', NSIZE, NRHS, NSIZE, ONE, [all …]
|
/dports/science/apbs/apbs-pdb2pqr-apbs-1.5-102-g500c1473/apbs/externals/fetk/punc/src/lapack/src_f77/ |
H A D | clalsd.f | 384 NSIZE = I - ST + 1 390 NSIZE = N - ST + 1 398 NSIZE = I - ST + 1 416 CALL SLASET( 'A', NSIZE, NSIZE, ZERO, ONE, 418 CALL SLASET( 'A', NSIZE, NSIZE, ZERO, ONE, 420 CALL SLASDQ( 'U', 0, NSIZE, NSIZE, NSIZE, 0, D( ST ), 439 CALL SGEMM( 'T', 'N', NSIZE, NRHS, NSIZE, ONE, 449 CALL SGEMM( 'T', 'N', NSIZE, NRHS, NSIZE, ONE, 526 IF( NSIZE.EQ.1 ) THEN 546 CALL SGEMM( 'T', 'N', NSIZE, NRHS, NSIZE, ONE, [all …]
|
H A D | zlalsd.f | 386 NSIZE = I - ST + 1 392 NSIZE = N - ST + 1 400 NSIZE = I - ST + 1 418 CALL DLASET( 'A', NSIZE, NSIZE, ZERO, ONE, 420 CALL DLASET( 'A', NSIZE, NSIZE, ZERO, ONE, 422 CALL DLASDQ( 'U', 0, NSIZE, NSIZE, NSIZE, 0, D( ST ), 441 CALL DGEMM( 'T', 'N', NSIZE, NRHS, NSIZE, ONE, 451 CALL DGEMM( 'T', 'N', NSIZE, NRHS, NSIZE, ONE, 528 IF( NSIZE.EQ.1 ) THEN 548 CALL DGEMM( 'T', 'N', NSIZE, NRHS, NSIZE, ONE, [all …]
|
/dports/math/lapack/lapack-3.10.0/SRC/ |
H A D | zlalsd.f | 477 NSIZE = I - ST + 1 483 NSIZE = N - ST + 1 491 NSIZE = I - ST + 1 509 CALL DLASET( 'A', NSIZE, NSIZE, ZERO, ONE, 511 CALL DLASET( 'A', NSIZE, NSIZE, ZERO, ONE, 513 CALL DLASDQ( 'U', 0, NSIZE, NSIZE, NSIZE, 0, D( ST ), 532 CALL DGEMM( 'T', 'N', NSIZE, NRHS, NSIZE, ONE, 542 CALL DGEMM( 'T', 'N', NSIZE, NRHS, NSIZE, ONE, 619 IF( NSIZE.EQ.1 ) THEN 639 CALL DGEMM( 'T', 'N', NSIZE, NRHS, NSIZE, ONE, [all …]
|
H A D | clalsd.f | 474 NSIZE = I - ST + 1 480 NSIZE = N - ST + 1 488 NSIZE = I - ST + 1 506 CALL SLASET( 'A', NSIZE, NSIZE, ZERO, ONE, 508 CALL SLASET( 'A', NSIZE, NSIZE, ZERO, ONE, 510 CALL SLASDQ( 'U', 0, NSIZE, NSIZE, NSIZE, 0, D( ST ), 529 CALL SGEMM( 'T', 'N', NSIZE, NRHS, NSIZE, ONE, 539 CALL SGEMM( 'T', 'N', NSIZE, NRHS, NSIZE, ONE, 616 IF( NSIZE.EQ.1 ) THEN 636 CALL SGEMM( 'T', 'N', NSIZE, NRHS, NSIZE, ONE, [all …]
|
/dports/math/lapacke/lapack-3.10.0/SRC/ |
H A D | clalsd.f | 474 NSIZE = I - ST + 1 480 NSIZE = N - ST + 1 488 NSIZE = I - ST + 1 506 CALL SLASET( 'A', NSIZE, NSIZE, ZERO, ONE, 508 CALL SLASET( 'A', NSIZE, NSIZE, ZERO, ONE, 510 CALL SLASDQ( 'U', 0, NSIZE, NSIZE, NSIZE, 0, D( ST ), 529 CALL SGEMM( 'T', 'N', NSIZE, NRHS, NSIZE, ONE, 539 CALL SGEMM( 'T', 'N', NSIZE, NRHS, NSIZE, ONE, 616 IF( NSIZE.EQ.1 ) THEN 636 CALL SGEMM( 'T', 'N', NSIZE, NRHS, NSIZE, ONE, [all …]
|
H A D | zlalsd.f | 477 NSIZE = I - ST + 1 483 NSIZE = N - ST + 1 491 NSIZE = I - ST + 1 509 CALL DLASET( 'A', NSIZE, NSIZE, ZERO, ONE, 511 CALL DLASET( 'A', NSIZE, NSIZE, ZERO, ONE, 513 CALL DLASDQ( 'U', 0, NSIZE, NSIZE, NSIZE, 0, D( ST ), 532 CALL DGEMM( 'T', 'N', NSIZE, NRHS, NSIZE, ONE, 542 CALL DGEMM( 'T', 'N', NSIZE, NRHS, NSIZE, ONE, 619 IF( NSIZE.EQ.1 ) THEN 639 CALL DGEMM( 'T', 'N', NSIZE, NRHS, NSIZE, ONE, [all …]
|
/dports/science/elmerfem/elmerfem-release-9.0/mathlibs/src/lapack/ |
H A D | clalsd.f | 384 NSIZE = I - ST + 1 390 NSIZE = N - ST + 1 398 NSIZE = I - ST + 1 416 CALL SLASET( 'A', NSIZE, NSIZE, ZERO, ONE, 418 CALL SLASET( 'A', NSIZE, NSIZE, ZERO, ONE, 420 CALL SLASDQ( 'U', 0, NSIZE, NSIZE, NSIZE, 0, D( ST ), 439 CALL SGEMM( 'T', 'N', NSIZE, NRHS, NSIZE, ONE, 449 CALL SGEMM( 'T', 'N', NSIZE, NRHS, NSIZE, ONE, 526 IF( NSIZE.EQ.1 ) THEN 546 CALL SGEMM( 'T', 'N', NSIZE, NRHS, NSIZE, ONE, [all …]
|
H A D | zlalsd.f | 386 NSIZE = I - ST + 1 392 NSIZE = N - ST + 1 400 NSIZE = I - ST + 1 418 CALL DLASET( 'A', NSIZE, NSIZE, ZERO, ONE, 420 CALL DLASET( 'A', NSIZE, NSIZE, ZERO, ONE, 422 CALL DLASDQ( 'U', 0, NSIZE, NSIZE, NSIZE, 0, D( ST ), 441 CALL DGEMM( 'T', 'N', NSIZE, NRHS, NSIZE, ONE, 451 CALL DGEMM( 'T', 'N', NSIZE, NRHS, NSIZE, ONE, 528 IF( NSIZE.EQ.1 ) THEN 548 CALL DGEMM( 'T', 'N', NSIZE, NRHS, NSIZE, ONE, [all …]
|
/dports/math/openblas/OpenBLAS-0.3.18/lapack-netlib/SRC/ |
H A D | clalsd.f | 477 NSIZE = I - ST + 1 483 NSIZE = N - ST + 1 491 NSIZE = I - ST + 1 509 CALL SLASET( 'A', NSIZE, NSIZE, ZERO, ONE, 511 CALL SLASET( 'A', NSIZE, NSIZE, ZERO, ONE, 513 CALL SLASDQ( 'U', 0, NSIZE, NSIZE, NSIZE, 0, D( ST ), 532 CALL SGEMM( 'T', 'N', NSIZE, NRHS, NSIZE, ONE, 542 CALL SGEMM( 'T', 'N', NSIZE, NRHS, NSIZE, ONE, 619 IF( NSIZE.EQ.1 ) THEN 639 CALL SGEMM( 'T', 'N', NSIZE, NRHS, NSIZE, ONE, [all …]
|
H A D | zlalsd.f | 480 NSIZE = I - ST + 1 486 NSIZE = N - ST + 1 494 NSIZE = I - ST + 1 512 CALL DLASET( 'A', NSIZE, NSIZE, ZERO, ONE, 514 CALL DLASET( 'A', NSIZE, NSIZE, ZERO, ONE, 516 CALL DLASDQ( 'U', 0, NSIZE, NSIZE, NSIZE, 0, D( ST ), 535 CALL DGEMM( 'T', 'N', NSIZE, NRHS, NSIZE, ONE, 545 CALL DGEMM( 'T', 'N', NSIZE, NRHS, NSIZE, ONE, 622 IF( NSIZE.EQ.1 ) THEN 642 CALL DGEMM( 'T', 'N', NSIZE, NRHS, NSIZE, ONE, [all …]
|
/dports/math/cblas/lapack-3.10.0/SRC/ |
H A D | clalsd.f | 474 NSIZE = I - ST + 1 480 NSIZE = N - ST + 1 488 NSIZE = I - ST + 1 506 CALL SLASET( 'A', NSIZE, NSIZE, ZERO, ONE, 508 CALL SLASET( 'A', NSIZE, NSIZE, ZERO, ONE, 510 CALL SLASDQ( 'U', 0, NSIZE, NSIZE, NSIZE, 0, D( ST ), 529 CALL SGEMM( 'T', 'N', NSIZE, NRHS, NSIZE, ONE, 539 CALL SGEMM( 'T', 'N', NSIZE, NRHS, NSIZE, ONE, 616 IF( NSIZE.EQ.1 ) THEN 636 CALL SGEMM( 'T', 'N', NSIZE, NRHS, NSIZE, ONE, [all …]
|
H A D | zlalsd.f | 477 NSIZE = I - ST + 1 483 NSIZE = N - ST + 1 491 NSIZE = I - ST + 1 509 CALL DLASET( 'A', NSIZE, NSIZE, ZERO, ONE, 511 CALL DLASET( 'A', NSIZE, NSIZE, ZERO, ONE, 513 CALL DLASDQ( 'U', 0, NSIZE, NSIZE, NSIZE, 0, D( ST ), 532 CALL DGEMM( 'T', 'N', NSIZE, NRHS, NSIZE, ONE, 542 CALL DGEMM( 'T', 'N', NSIZE, NRHS, NSIZE, ONE, 619 IF( NSIZE.EQ.1 ) THEN 639 CALL DGEMM( 'T', 'N', NSIZE, NRHS, NSIZE, ONE, [all …]
|
/dports/math/libflame/libflame-5.2.0/old/lapack-test/3.4.2/EIG/ |
H A D | xerbla.f | 93 INTEGER INFOT, NOUT, NSIZE local 104 NSIZE = LEN_TRIM( SRNAMT ) 109 $ SRNAMT( 1:NSIZE ), INFO, INFOT 112 $ SRNAME( 1:NSIZE ), INFO 116 IF( SRNAME( 1:NSIZE ).NE.SRNAMT( 1:NSIZE ) ) THEN 118 $ SRNAME( 1:NSIZE ), 119 $ SRNAMT( 1:NSIZE )
|
/dports/math/libflame/libflame-5.2.0/old/lapack-test/3.4.2/LIN/ |
H A D | xerbla.f | 93 INTEGER INFOT, NOUT, NSIZE local 104 NSIZE = LEN_TRIM( SRNAMT ) 109 $ SRNAMT( 1:NSIZE ), INFO, INFOT 112 $ SRNAME( 1:NSIZE ), INFO 116 IF( SRNAME( 1:NSIZE ).NE.SRNAMT( 1:NSIZE ) ) THEN 118 $ SRNAME( 1:NSIZE ), 119 $ SRNAMT( 1:NSIZE )
|
/dports/math/libflame/libflame-5.2.0/old/lapack-test/3.5.0/EIG/ |
H A D | xerbla.f | 94 INTEGER NSIZE 105 NSIZE = LEN_TRIM( SRNAMT ) 110 $ SRNAMT( 1:NSIZE ), INFO, INFOT 113 $ SRNAME( 1:NSIZE ), INFO 117 IF( SRNAME( 1:NSIZE ).NE.SRNAMT( 1:NSIZE ) ) THEN 119 $ SRNAME( 1:NSIZE ), 120 $ SRNAMT( 1:NSIZE )
|