/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/SRC/ |
H A D | dsfrk.f | 422 CALL DGEMM( 'N', 'T', NK, NK, K, ALPHA, A( NK+1, 1 ), 434 CALL DGEMM( 'T', 'N', NK, NK, K, ALPHA, A( 1, NK+1 ), 485 $ BETA, C( NK+1 ), NK ) 490 $ C( ( ( NK+1 )*NK )+1 ), NK ) 502 $ C( ( ( NK+1 )*NK )+1 ), NK ) 515 $ BETA, C( NK*( NK+1 )+1 ), NK ) 517 $ BETA, C( NK*NK+1 ), NK ) 518 CALL DGEMM( 'N', 'T', NK, NK, K, ALPHA, A( NK+1, 1 ), 526 $ BETA, C( NK*( NK+1 )+1 ), NK ) 528 $ BETA, C( NK*NK+1 ), NK ) [all …]
|
H A D | ssfrk.f | 421 CALL SGEMM( 'N', 'T', NK, NK, K, ALPHA, A( NK+1, 1 ), 433 CALL SGEMM( 'T', 'N', NK, NK, K, ALPHA, A( 1, NK+1 ), 484 $ BETA, C( NK+1 ), NK ) 489 $ C( ( ( NK+1 )*NK )+1 ), NK ) 501 $ C( ( ( NK+1 )*NK )+1 ), NK ) 514 $ BETA, C( NK*( NK+1 )+1 ), NK ) 516 $ BETA, C( NK*NK+1 ), NK ) 517 CALL SGEMM( 'N', 'T', NK, NK, K, ALPHA, A( NK+1, 1 ), 525 $ BETA, C( NK*( NK+1 )+1 ), NK ) 527 $ BETA, C( NK*NK+1 ), NK ) [all …]
|
H A D | zhfrk.f | 430 CALL ZGEMM( 'N', 'C', NK, NK, K, CALPHA, A( NK+1, 1 ), 442 CALL ZGEMM( 'C', 'N', NK, NK, K, CALPHA, A( 1, NK+1 ), 493 $ BETA, C( NK+1 ), NK ) 498 $ C( ( ( NK+1 )*NK )+1 ), NK ) 510 $ C( ( ( NK+1 )*NK )+1 ), NK ) 523 $ BETA, C( NK*( NK+1 )+1 ), NK ) 525 $ BETA, C( NK*NK+1 ), NK ) 526 CALL ZGEMM( 'N', 'C', NK, NK, K, CALPHA, A( NK+1, 1 ), 534 $ BETA, C( NK*( NK+1 )+1 ), NK ) 536 $ BETA, C( NK*NK+1 ), NK ) [all …]
|
/dports/math/xlapack/lapack-3.10.0/SRC/ |
H A D | ssfrk.f | 418 CALL SGEMM( 'N', 'T', NK, NK, K, ALPHA, A( NK+1, 1 ), 430 CALL SGEMM( 'T', 'N', NK, NK, K, ALPHA, A( 1, NK+1 ), 481 $ BETA, C( NK+1 ), NK ) 486 $ C( ( ( NK+1 )*NK )+1 ), NK ) 498 $ C( ( ( NK+1 )*NK )+1 ), NK ) 511 $ BETA, C( NK*( NK+1 )+1 ), NK ) 513 $ BETA, C( NK*NK+1 ), NK ) 514 CALL SGEMM( 'N', 'T', NK, NK, K, ALPHA, A( NK+1, 1 ), 522 $ BETA, C( NK*( NK+1 )+1 ), NK ) 524 $ BETA, C( NK*NK+1 ), NK ) [all …]
|
H A D | dsfrk.f | 419 CALL DGEMM( 'N', 'T', NK, NK, K, ALPHA, A( NK+1, 1 ), 431 CALL DGEMM( 'T', 'N', NK, NK, K, ALPHA, A( 1, NK+1 ), 482 $ BETA, C( NK+1 ), NK ) 487 $ C( ( ( NK+1 )*NK )+1 ), NK ) 499 $ C( ( ( NK+1 )*NK )+1 ), NK ) 512 $ BETA, C( NK*( NK+1 )+1 ), NK ) 514 $ BETA, C( NK*NK+1 ), NK ) 515 CALL DGEMM( 'N', 'T', NK, NK, K, ALPHA, A( NK+1, 1 ), 523 $ BETA, C( NK*( NK+1 )+1 ), NK ) 525 $ BETA, C( NK*NK+1 ), NK ) [all …]
|
H A D | chfrk.f | 428 CALL CGEMM( 'N', 'C', NK, NK, K, CALPHA, A( NK+1, 1 ), 440 CALL CGEMM( 'C', 'N', NK, NK, K, CALPHA, A( 1, NK+1 ), 491 $ BETA, C( NK+1 ), NK ) 496 $ C( ( ( NK+1 )*NK )+1 ), NK ) 508 $ C( ( ( NK+1 )*NK )+1 ), NK ) 521 $ BETA, C( NK*( NK+1 )+1 ), NK ) 523 $ BETA, C( NK*NK+1 ), NK ) 524 CALL CGEMM( 'N', 'C', NK, NK, K, CALPHA, A( NK+1, 1 ), 532 $ BETA, C( NK*( NK+1 )+1 ), NK ) 534 $ BETA, C( NK*NK+1 ), NK ) [all …]
|
H A D | zhfrk.f | 427 CALL ZGEMM( 'N', 'C', NK, NK, K, CALPHA, A( NK+1, 1 ), 439 CALL ZGEMM( 'C', 'N', NK, NK, K, CALPHA, A( 1, NK+1 ), 490 $ BETA, C( NK+1 ), NK ) 495 $ C( ( ( NK+1 )*NK )+1 ), NK ) 507 $ C( ( ( NK+1 )*NK )+1 ), NK ) 520 $ BETA, C( NK*( NK+1 )+1 ), NK ) 522 $ BETA, C( NK*NK+1 ), NK ) 523 CALL ZGEMM( 'N', 'C', NK, NK, K, CALPHA, A( NK+1, 1 ), 531 $ BETA, C( NK*( NK+1 )+1 ), NK ) 533 $ BETA, C( NK*NK+1 ), NK ) [all …]
|
/dports/math/blas/lapack-3.10.0/SRC/ |
H A D | zhfrk.f | 427 CALL ZGEMM( 'N', 'C', NK, NK, K, CALPHA, A( NK+1, 1 ), 439 CALL ZGEMM( 'C', 'N', NK, NK, K, CALPHA, A( 1, NK+1 ), 490 $ BETA, C( NK+1 ), NK ) 495 $ C( ( ( NK+1 )*NK )+1 ), NK ) 507 $ C( ( ( NK+1 )*NK )+1 ), NK ) 520 $ BETA, C( NK*( NK+1 )+1 ), NK ) 522 $ BETA, C( NK*NK+1 ), NK ) 523 CALL ZGEMM( 'N', 'C', NK, NK, K, CALPHA, A( NK+1, 1 ), 531 $ BETA, C( NK*( NK+1 )+1 ), NK ) 533 $ BETA, C( NK*NK+1 ), NK ) [all …]
|
H A D | ssfrk.f | 418 CALL SGEMM( 'N', 'T', NK, NK, K, ALPHA, A( NK+1, 1 ), 430 CALL SGEMM( 'T', 'N', NK, NK, K, ALPHA, A( 1, NK+1 ), 481 $ BETA, C( NK+1 ), NK ) 486 $ C( ( ( NK+1 )*NK )+1 ), NK ) 498 $ C( ( ( NK+1 )*NK )+1 ), NK ) 511 $ BETA, C( NK*( NK+1 )+1 ), NK ) 513 $ BETA, C( NK*NK+1 ), NK ) 514 CALL SGEMM( 'N', 'T', NK, NK, K, ALPHA, A( NK+1, 1 ), 522 $ BETA, C( NK*( NK+1 )+1 ), NK ) 524 $ BETA, C( NK*NK+1 ), NK ) [all …]
|
H A D | chfrk.f | 428 CALL CGEMM( 'N', 'C', NK, NK, K, CALPHA, A( NK+1, 1 ), 440 CALL CGEMM( 'C', 'N', NK, NK, K, CALPHA, A( 1, NK+1 ), 491 $ BETA, C( NK+1 ), NK ) 496 $ C( ( ( NK+1 )*NK )+1 ), NK ) 508 $ C( ( ( NK+1 )*NK )+1 ), NK ) 521 $ BETA, C( NK*( NK+1 )+1 ), NK ) 523 $ BETA, C( NK*NK+1 ), NK ) 524 CALL CGEMM( 'N', 'C', NK, NK, K, CALPHA, A( NK+1, 1 ), 532 $ BETA, C( NK*( NK+1 )+1 ), NK ) 534 $ BETA, C( NK*NK+1 ), NK ) [all …]
|
H A D | dsfrk.f | 419 CALL DGEMM( 'N', 'T', NK, NK, K, ALPHA, A( NK+1, 1 ), 431 CALL DGEMM( 'T', 'N', NK, NK, K, ALPHA, A( 1, NK+1 ), 482 $ BETA, C( NK+1 ), NK ) 487 $ C( ( ( NK+1 )*NK )+1 ), NK ) 499 $ C( ( ( NK+1 )*NK )+1 ), NK ) 512 $ BETA, C( NK*( NK+1 )+1 ), NK ) 514 $ BETA, C( NK*NK+1 ), NK ) 515 CALL DGEMM( 'N', 'T', NK, NK, K, ALPHA, A( NK+1, 1 ), 523 $ BETA, C( NK*( NK+1 )+1 ), NK ) 525 $ BETA, C( NK*NK+1 ), NK ) [all …]
|
/dports/math/lapacke/lapack-3.10.0/SRC/ |
H A D | dsfrk.f | 419 CALL DGEMM( 'N', 'T', NK, NK, K, ALPHA, A( NK+1, 1 ), 431 CALL DGEMM( 'T', 'N', NK, NK, K, ALPHA, A( 1, NK+1 ), 482 $ BETA, C( NK+1 ), NK ) 487 $ C( ( ( NK+1 )*NK )+1 ), NK ) 499 $ C( ( ( NK+1 )*NK )+1 ), NK ) 512 $ BETA, C( NK*( NK+1 )+1 ), NK ) 514 $ BETA, C( NK*NK+1 ), NK ) 515 CALL DGEMM( 'N', 'T', NK, NK, K, ALPHA, A( NK+1, 1 ), 523 $ BETA, C( NK*( NK+1 )+1 ), NK ) 525 $ BETA, C( NK*NK+1 ), NK ) [all …]
|
H A D | chfrk.f | 428 CALL CGEMM( 'N', 'C', NK, NK, K, CALPHA, A( NK+1, 1 ), 440 CALL CGEMM( 'C', 'N', NK, NK, K, CALPHA, A( 1, NK+1 ), 491 $ BETA, C( NK+1 ), NK ) 496 $ C( ( ( NK+1 )*NK )+1 ), NK ) 508 $ C( ( ( NK+1 )*NK )+1 ), NK ) 521 $ BETA, C( NK*( NK+1 )+1 ), NK ) 523 $ BETA, C( NK*NK+1 ), NK ) 524 CALL CGEMM( 'N', 'C', NK, NK, K, CALPHA, A( NK+1, 1 ), 532 $ BETA, C( NK*( NK+1 )+1 ), NK ) 534 $ BETA, C( NK*NK+1 ), NK ) [all …]
|
H A D | ssfrk.f | 418 CALL SGEMM( 'N', 'T', NK, NK, K, ALPHA, A( NK+1, 1 ), 430 CALL SGEMM( 'T', 'N', NK, NK, K, ALPHA, A( 1, NK+1 ), 481 $ BETA, C( NK+1 ), NK ) 486 $ C( ( ( NK+1 )*NK )+1 ), NK ) 498 $ C( ( ( NK+1 )*NK )+1 ), NK ) 511 $ BETA, C( NK*( NK+1 )+1 ), NK ) 513 $ BETA, C( NK*NK+1 ), NK ) 514 CALL SGEMM( 'N', 'T', NK, NK, K, ALPHA, A( NK+1, 1 ), 522 $ BETA, C( NK*( NK+1 )+1 ), NK ) 524 $ BETA, C( NK*NK+1 ), NK ) [all …]
|
H A D | zhfrk.f | 427 CALL ZGEMM( 'N', 'C', NK, NK, K, CALPHA, A( NK+1, 1 ), 439 CALL ZGEMM( 'C', 'N', NK, NK, K, CALPHA, A( 1, NK+1 ), 490 $ BETA, C( NK+1 ), NK ) 495 $ C( ( ( NK+1 )*NK )+1 ), NK ) 507 $ C( ( ( NK+1 )*NK )+1 ), NK ) 520 $ BETA, C( NK*( NK+1 )+1 ), NK ) 522 $ BETA, C( NK*NK+1 ), NK ) 523 CALL ZGEMM( 'N', 'C', NK, NK, K, CALPHA, A( NK+1, 1 ), 531 $ BETA, C( NK*( NK+1 )+1 ), NK ) 533 $ BETA, C( NK*NK+1 ), NK ) [all …]
|
/dports/math/lapack/lapack-3.10.0/SRC/ |
H A D | chfrk.f | 428 CALL CGEMM( 'N', 'C', NK, NK, K, CALPHA, A( NK+1, 1 ), 440 CALL CGEMM( 'C', 'N', NK, NK, K, CALPHA, A( 1, NK+1 ), 491 $ BETA, C( NK+1 ), NK ) 496 $ C( ( ( NK+1 )*NK )+1 ), NK ) 508 $ C( ( ( NK+1 )*NK )+1 ), NK ) 521 $ BETA, C( NK*( NK+1 )+1 ), NK ) 523 $ BETA, C( NK*NK+1 ), NK ) 524 CALL CGEMM( 'N', 'C', NK, NK, K, CALPHA, A( NK+1, 1 ), 532 $ BETA, C( NK*( NK+1 )+1 ), NK ) 534 $ BETA, C( NK*NK+1 ), NK ) [all …]
|
H A D | dsfrk.f | 419 CALL DGEMM( 'N', 'T', NK, NK, K, ALPHA, A( NK+1, 1 ), 431 CALL DGEMM( 'T', 'N', NK, NK, K, ALPHA, A( 1, NK+1 ), 482 $ BETA, C( NK+1 ), NK ) 487 $ C( ( ( NK+1 )*NK )+1 ), NK ) 499 $ C( ( ( NK+1 )*NK )+1 ), NK ) 512 $ BETA, C( NK*( NK+1 )+1 ), NK ) 514 $ BETA, C( NK*NK+1 ), NK ) 515 CALL DGEMM( 'N', 'T', NK, NK, K, ALPHA, A( NK+1, 1 ), 523 $ BETA, C( NK*( NK+1 )+1 ), NK ) 525 $ BETA, C( NK*NK+1 ), NK ) [all …]
|
H A D | ssfrk.f | 418 CALL SGEMM( 'N', 'T', NK, NK, K, ALPHA, A( NK+1, 1 ), 430 CALL SGEMM( 'T', 'N', NK, NK, K, ALPHA, A( 1, NK+1 ), 481 $ BETA, C( NK+1 ), NK ) 486 $ C( ( ( NK+1 )*NK )+1 ), NK ) 498 $ C( ( ( NK+1 )*NK )+1 ), NK ) 511 $ BETA, C( NK*( NK+1 )+1 ), NK ) 513 $ BETA, C( NK*NK+1 ), NK ) 514 CALL SGEMM( 'N', 'T', NK, NK, K, ALPHA, A( NK+1, 1 ), 522 $ BETA, C( NK*( NK+1 )+1 ), NK ) 524 $ BETA, C( NK*NK+1 ), NK ) [all …]
|
H A D | zhfrk.f | 427 CALL ZGEMM( 'N', 'C', NK, NK, K, CALPHA, A( NK+1, 1 ), 439 CALL ZGEMM( 'C', 'N', NK, NK, K, CALPHA, A( 1, NK+1 ), 490 $ BETA, C( NK+1 ), NK ) 495 $ C( ( ( NK+1 )*NK )+1 ), NK ) 507 $ C( ( ( NK+1 )*NK )+1 ), NK ) 520 $ BETA, C( NK*( NK+1 )+1 ), NK ) 522 $ BETA, C( NK*NK+1 ), NK ) 523 CALL ZGEMM( 'N', 'C', NK, NK, K, CALPHA, A( NK+1, 1 ), 531 $ BETA, C( NK*( NK+1 )+1 ), NK ) 533 $ BETA, C( NK*NK+1 ), NK ) [all …]
|
/dports/math/openblas/OpenBLAS-0.3.18/lapack-netlib/SRC/ |
H A D | chfrk.f | 431 CALL CGEMM( 'N', 'C', NK, NK, K, CALPHA, A( NK+1, 1 ), 443 CALL CGEMM( 'C', 'N', NK, NK, K, CALPHA, A( 1, NK+1 ), 494 $ BETA, C( NK+1 ), NK ) 499 $ C( ( ( NK+1 )*NK )+1 ), NK ) 511 $ C( ( ( NK+1 )*NK )+1 ), NK ) 524 $ BETA, C( NK*( NK+1 )+1 ), NK ) 526 $ BETA, C( NK*NK+1 ), NK ) 527 CALL CGEMM( 'N', 'C', NK, NK, K, CALPHA, A( NK+1, 1 ), 535 $ BETA, C( NK*( NK+1 )+1 ), NK ) 537 $ BETA, C( NK*NK+1 ), NK ) [all …]
|
H A D | dsfrk.f | 422 CALL DGEMM( 'N', 'T', NK, NK, K, ALPHA, A( NK+1, 1 ), 434 CALL DGEMM( 'T', 'N', NK, NK, K, ALPHA, A( 1, NK+1 ), 485 $ BETA, C( NK+1 ), NK ) 490 $ C( ( ( NK+1 )*NK )+1 ), NK ) 502 $ C( ( ( NK+1 )*NK )+1 ), NK ) 515 $ BETA, C( NK*( NK+1 )+1 ), NK ) 517 $ BETA, C( NK*NK+1 ), NK ) 518 CALL DGEMM( 'N', 'T', NK, NK, K, ALPHA, A( NK+1, 1 ), 526 $ BETA, C( NK*( NK+1 )+1 ), NK ) 528 $ BETA, C( NK*NK+1 ), NK ) [all …]
|
H A D | ssfrk.f | 421 CALL SGEMM( 'N', 'T', NK, NK, K, ALPHA, A( NK+1, 1 ), 433 CALL SGEMM( 'T', 'N', NK, NK, K, ALPHA, A( 1, NK+1 ), 484 $ BETA, C( NK+1 ), NK ) 489 $ C( ( ( NK+1 )*NK )+1 ), NK ) 501 $ C( ( ( NK+1 )*NK )+1 ), NK ) 514 $ BETA, C( NK*( NK+1 )+1 ), NK ) 516 $ BETA, C( NK*NK+1 ), NK ) 517 CALL SGEMM( 'N', 'T', NK, NK, K, ALPHA, A( NK+1, 1 ), 525 $ BETA, C( NK*( NK+1 )+1 ), NK ) 527 $ BETA, C( NK*NK+1 ), NK ) [all …]
|
H A D | zhfrk.f | 430 CALL ZGEMM( 'N', 'C', NK, NK, K, CALPHA, A( NK+1, 1 ), 442 CALL ZGEMM( 'C', 'N', NK, NK, K, CALPHA, A( 1, NK+1 ), 493 $ BETA, C( NK+1 ), NK ) 498 $ C( ( ( NK+1 )*NK )+1 ), NK ) 510 $ C( ( ( NK+1 )*NK )+1 ), NK ) 523 $ BETA, C( NK*( NK+1 )+1 ), NK ) 525 $ BETA, C( NK*NK+1 ), NK ) 526 CALL ZGEMM( 'N', 'C', NK, NK, K, CALPHA, A( NK+1, 1 ), 534 $ BETA, C( NK*( NK+1 )+1 ), NK ) 536 $ BETA, C( NK*NK+1 ), NK ) [all …]
|
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/lapack/double/ |
H A D | dsfrk.f | 422 CALL DGEMM( 'N', 'T', NK, NK, K, ALPHA, A( NK+1, 1 ), 434 CALL DGEMM( 'T', 'N', NK, NK, K, ALPHA, A( 1, NK+1 ), 485 $ BETA, C( NK+1 ), NK ) 490 $ C( ( ( NK+1 )*NK )+1 ), NK ) 502 $ C( ( ( NK+1 )*NK )+1 ), NK ) 515 $ BETA, C( NK*( NK+1 )+1 ), NK ) 517 $ BETA, C( NK*NK+1 ), NK ) 518 CALL DGEMM( 'N', 'T', NK, NK, K, ALPHA, A( NK+1, 1 ), 526 $ BETA, C( NK*( NK+1 )+1 ), NK ) 528 $ BETA, C( NK*NK+1 ), NK ) [all …]
|
/dports/math/cblas/lapack-3.10.0/SRC/ |
H A D | zhfrk.f | 427 CALL ZGEMM( 'N', 'C', NK, NK, K, CALPHA, A( NK+1, 1 ), 439 CALL ZGEMM( 'C', 'N', NK, NK, K, CALPHA, A( 1, NK+1 ), 490 $ BETA, C( NK+1 ), NK ) 495 $ C( ( ( NK+1 )*NK )+1 ), NK ) 507 $ C( ( ( NK+1 )*NK )+1 ), NK ) 520 $ BETA, C( NK*( NK+1 )+1 ), NK ) 522 $ BETA, C( NK*NK+1 ), NK ) 523 CALL ZGEMM( 'N', 'C', NK, NK, K, CALPHA, A( NK+1, 1 ), 531 $ BETA, C( NK*( NK+1 )+1 ), NK ) 533 $ BETA, C( NK*NK+1 ), NK ) [all …]
|