/dports/math/scalapack/scalapack-2.1.0/PBLAS/SRC/PTOOLS/ |
H A D | PB_Cconjg.c | 20 void PB_Cconjg( PBTYP_T * TYPE, char * ALPHA, char * CALPHA ) in PB_Cconjg() argument 22 void PB_Cconjg( TYPE, ALPHA, CALPHA ) in PB_Cconjg() 26 char * ALPHA, * CALPHA; in PB_Cconjg() 61 ((float*)(CALPHA))[REAL_PART] = ((float*)(ALPHA))[REAL_PART]; 62 ((float*)(CALPHA))[IMAG_PART] = -((float*)(ALPHA))[IMAG_PART]; 65 ((double*)(CALPHA))[REAL_PART] = ((double*)(ALPHA))[REAL_PART]; 66 ((double*)(CALPHA))[IMAG_PART] = -((double*)(ALPHA))[IMAG_PART]; 69 ((float*)(CALPHA))[REAL_PART] = ((float*)(ALPHA))[REAL_PART]; 72 ((double*)(CALPHA))[REAL_PART] = ((double*)(ALPHA))[REAL_PART]; 75 *((int*)(CALPHA)) = *((int*)(ALPHA));
|
/dports/science/latte/LATTE-1.2.2/src/ |
H A D | initcoulomb.F90 | 113 CALPHA = SQRTP/COULCUT 115 KCUTOFF = TWO*CALPHA*SQRTP 117 CALPHA2 = CALPHA*CALPHA 131 CALPHA = SQRTPI*((TIMERATIO * REAL(NATS) / (COULVOL*COULVOL))**(ONE/SIX)) 132 COULCUT = SQRTP/CALPHA 138 CALPHA = SQRTP/COULCUT 143 KCUTOFF = TWO*CALPHA*SQRTP 145 CALPHA2 = CALPHA*CALPHA
|
/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/SRC/ |
H A D | zhfrk.f | 196 COMPLEX*16 CALPHA, CBETA 257 CALPHA = DCMPLX( ALPHA, ZERO ) 298 CALL ZGEMM( 'N', 'C', N2, N1, K, CALPHA, A( N1+1, 1 ), 326 CALL ZGEMM( 'N', 'C', N1, N2, K, CALPHA, A( 1, 1 ), 337 CALL ZGEMM( 'C', 'N', N1, N2, K, CALPHA, A( 1, 1 ), 360 CALL ZGEMM( 'N', 'C', N1, N2, K, CALPHA, A( 1, 1 ), 372 CALL ZGEMM( 'C', 'N', N1, N2, K, CALPHA, A( 1, 1 ), 460 CALL ZGEMM( 'N', 'C', NK, NK, K, CALPHA, A( 1, 1 ), 472 CALL ZGEMM( 'C', 'N', NK, NK, K, CALPHA, A( 1, 1 ), 496 CALL ZGEMM( 'N', 'C', NK, NK, K, CALPHA, A( 1, 1 ), [all …]
|
H A D | chfrk.f | 197 COMPLEX CALPHA, CBETA 258 CALPHA = CMPLX( ALPHA, ZERO ) 299 CALL CGEMM( 'N', 'C', N2, N1, K, CALPHA, A( N1+1, 1 ), 327 CALL CGEMM( 'N', 'C', N1, N2, K, CALPHA, A( 1, 1 ), 338 CALL CGEMM( 'C', 'N', N1, N2, K, CALPHA, A( 1, 1 ), 361 CALL CGEMM( 'N', 'C', N1, N2, K, CALPHA, A( 1, 1 ), 373 CALL CGEMM( 'C', 'N', N1, N2, K, CALPHA, A( 1, 1 ), 461 CALL CGEMM( 'N', 'C', NK, NK, K, CALPHA, A( 1, 1 ), 473 CALL CGEMM( 'C', 'N', NK, NK, K, CALPHA, A( 1, 1 ), 497 CALL CGEMM( 'N', 'C', NK, NK, K, CALPHA, A( 1, 1 ), [all …]
|
/dports/math/xlapack/lapack-3.10.0/SRC/ |
H A D | chfrk.f | 194 COMPLEX CALPHA, CBETA 255 CALPHA = CMPLX( ALPHA, ZERO ) 296 CALL CGEMM( 'N', 'C', N2, N1, K, CALPHA, A( N1+1, 1 ), 324 CALL CGEMM( 'N', 'C', N1, N2, K, CALPHA, A( 1, 1 ), 335 CALL CGEMM( 'C', 'N', N1, N2, K, CALPHA, A( 1, 1 ), 358 CALL CGEMM( 'N', 'C', N1, N2, K, CALPHA, A( 1, 1 ), 370 CALL CGEMM( 'C', 'N', N1, N2, K, CALPHA, A( 1, 1 ), 458 CALL CGEMM( 'N', 'C', NK, NK, K, CALPHA, A( 1, 1 ), 470 CALL CGEMM( 'C', 'N', NK, NK, K, CALPHA, A( 1, 1 ), 494 CALL CGEMM( 'N', 'C', NK, NK, K, CALPHA, A( 1, 1 ), [all …]
|
H A D | zhfrk.f | 193 COMPLEX*16 CALPHA, CBETA 254 CALPHA = DCMPLX( ALPHA, ZERO ) 295 CALL ZGEMM( 'N', 'C', N2, N1, K, CALPHA, A( N1+1, 1 ), 323 CALL ZGEMM( 'N', 'C', N1, N2, K, CALPHA, A( 1, 1 ), 334 CALL ZGEMM( 'C', 'N', N1, N2, K, CALPHA, A( 1, 1 ), 357 CALL ZGEMM( 'N', 'C', N1, N2, K, CALPHA, A( 1, 1 ), 369 CALL ZGEMM( 'C', 'N', N1, N2, K, CALPHA, A( 1, 1 ), 457 CALL ZGEMM( 'N', 'C', NK, NK, K, CALPHA, A( 1, 1 ), 469 CALL ZGEMM( 'C', 'N', NK, NK, K, CALPHA, A( 1, 1 ), 493 CALL ZGEMM( 'N', 'C', NK, NK, K, CALPHA, A( 1, 1 ), [all …]
|
/dports/math/blas/lapack-3.10.0/SRC/ |
H A D | zhfrk.f | 193 COMPLEX*16 CALPHA, CBETA 254 CALPHA = DCMPLX( ALPHA, ZERO ) 295 CALL ZGEMM( 'N', 'C', N2, N1, K, CALPHA, A( N1+1, 1 ), 323 CALL ZGEMM( 'N', 'C', N1, N2, K, CALPHA, A( 1, 1 ), 334 CALL ZGEMM( 'C', 'N', N1, N2, K, CALPHA, A( 1, 1 ), 357 CALL ZGEMM( 'N', 'C', N1, N2, K, CALPHA, A( 1, 1 ), 369 CALL ZGEMM( 'C', 'N', N1, N2, K, CALPHA, A( 1, 1 ), 457 CALL ZGEMM( 'N', 'C', NK, NK, K, CALPHA, A( 1, 1 ), 469 CALL ZGEMM( 'C', 'N', NK, NK, K, CALPHA, A( 1, 1 ), 493 CALL ZGEMM( 'N', 'C', NK, NK, K, CALPHA, A( 1, 1 ), [all …]
|
H A D | chfrk.f | 194 COMPLEX CALPHA, CBETA 255 CALPHA = CMPLX( ALPHA, ZERO ) 296 CALL CGEMM( 'N', 'C', N2, N1, K, CALPHA, A( N1+1, 1 ), 324 CALL CGEMM( 'N', 'C', N1, N2, K, CALPHA, A( 1, 1 ), 335 CALL CGEMM( 'C', 'N', N1, N2, K, CALPHA, A( 1, 1 ), 358 CALL CGEMM( 'N', 'C', N1, N2, K, CALPHA, A( 1, 1 ), 370 CALL CGEMM( 'C', 'N', N1, N2, K, CALPHA, A( 1, 1 ), 458 CALL CGEMM( 'N', 'C', NK, NK, K, CALPHA, A( 1, 1 ), 470 CALL CGEMM( 'C', 'N', NK, NK, K, CALPHA, A( 1, 1 ), 494 CALL CGEMM( 'N', 'C', NK, NK, K, CALPHA, A( 1, 1 ), [all …]
|
/dports/math/lapacke/lapack-3.10.0/SRC/ |
H A D | chfrk.f | 194 COMPLEX CALPHA, CBETA 255 CALPHA = CMPLX( ALPHA, ZERO ) 296 CALL CGEMM( 'N', 'C', N2, N1, K, CALPHA, A( N1+1, 1 ), 324 CALL CGEMM( 'N', 'C', N1, N2, K, CALPHA, A( 1, 1 ), 335 CALL CGEMM( 'C', 'N', N1, N2, K, CALPHA, A( 1, 1 ), 358 CALL CGEMM( 'N', 'C', N1, N2, K, CALPHA, A( 1, 1 ), 370 CALL CGEMM( 'C', 'N', N1, N2, K, CALPHA, A( 1, 1 ), 458 CALL CGEMM( 'N', 'C', NK, NK, K, CALPHA, A( 1, 1 ), 470 CALL CGEMM( 'C', 'N', NK, NK, K, CALPHA, A( 1, 1 ), 494 CALL CGEMM( 'N', 'C', NK, NK, K, CALPHA, A( 1, 1 ), [all …]
|
H A D | zhfrk.f | 193 COMPLEX*16 CALPHA, CBETA 254 CALPHA = DCMPLX( ALPHA, ZERO ) 295 CALL ZGEMM( 'N', 'C', N2, N1, K, CALPHA, A( N1+1, 1 ), 323 CALL ZGEMM( 'N', 'C', N1, N2, K, CALPHA, A( 1, 1 ), 334 CALL ZGEMM( 'C', 'N', N1, N2, K, CALPHA, A( 1, 1 ), 357 CALL ZGEMM( 'N', 'C', N1, N2, K, CALPHA, A( 1, 1 ), 369 CALL ZGEMM( 'C', 'N', N1, N2, K, CALPHA, A( 1, 1 ), 457 CALL ZGEMM( 'N', 'C', NK, NK, K, CALPHA, A( 1, 1 ), 469 CALL ZGEMM( 'C', 'N', NK, NK, K, CALPHA, A( 1, 1 ), 493 CALL ZGEMM( 'N', 'C', NK, NK, K, CALPHA, A( 1, 1 ), [all …]
|
/dports/math/lapack/lapack-3.10.0/SRC/ |
H A D | chfrk.f | 194 COMPLEX CALPHA, CBETA 255 CALPHA = CMPLX( ALPHA, ZERO ) 296 CALL CGEMM( 'N', 'C', N2, N1, K, CALPHA, A( N1+1, 1 ), 324 CALL CGEMM( 'N', 'C', N1, N2, K, CALPHA, A( 1, 1 ), 335 CALL CGEMM( 'C', 'N', N1, N2, K, CALPHA, A( 1, 1 ), 358 CALL CGEMM( 'N', 'C', N1, N2, K, CALPHA, A( 1, 1 ), 370 CALL CGEMM( 'C', 'N', N1, N2, K, CALPHA, A( 1, 1 ), 458 CALL CGEMM( 'N', 'C', NK, NK, K, CALPHA, A( 1, 1 ), 470 CALL CGEMM( 'C', 'N', NK, NK, K, CALPHA, A( 1, 1 ), 494 CALL CGEMM( 'N', 'C', NK, NK, K, CALPHA, A( 1, 1 ), [all …]
|
H A D | zhfrk.f | 193 COMPLEX*16 CALPHA, CBETA local 254 CALPHA = DCMPLX( ALPHA, ZERO ) 295 CALL ZGEMM( 'N', 'C', N2, N1, K, CALPHA, A( N1+1, 1 ), 323 CALL ZGEMM( 'N', 'C', N1, N2, K, CALPHA, A( 1, 1 ), 334 CALL ZGEMM( 'C', 'N', N1, N2, K, CALPHA, A( 1, 1 ), 357 CALL ZGEMM( 'N', 'C', N1, N2, K, CALPHA, A( 1, 1 ), 369 CALL ZGEMM( 'C', 'N', N1, N2, K, CALPHA, A( 1, 1 ), 457 CALL ZGEMM( 'N', 'C', NK, NK, K, CALPHA, A( 1, 1 ), 469 CALL ZGEMM( 'C', 'N', NK, NK, K, CALPHA, A( 1, 1 ), 493 CALL ZGEMM( 'N', 'C', NK, NK, K, CALPHA, A( 1, 1 ), [all …]
|
/dports/math/openblas/OpenBLAS-0.3.18/lapack-netlib/SRC/ |
H A D | chfrk.f | 197 COMPLEX CALPHA, CBETA local 258 CALPHA = CMPLX( ALPHA, ZERO ) 299 CALL CGEMM( 'N', 'C', N2, N1, K, CALPHA, A( N1+1, 1 ), 327 CALL CGEMM( 'N', 'C', N1, N2, K, CALPHA, A( 1, 1 ), 338 CALL CGEMM( 'C', 'N', N1, N2, K, CALPHA, A( 1, 1 ), 361 CALL CGEMM( 'N', 'C', N1, N2, K, CALPHA, A( 1, 1 ), 373 CALL CGEMM( 'C', 'N', N1, N2, K, CALPHA, A( 1, 1 ), 461 CALL CGEMM( 'N', 'C', NK, NK, K, CALPHA, A( 1, 1 ), 473 CALL CGEMM( 'C', 'N', NK, NK, K, CALPHA, A( 1, 1 ), 497 CALL CGEMM( 'N', 'C', NK, NK, K, CALPHA, A( 1, 1 ), [all …]
|
H A D | zhfrk.f | 196 COMPLEX*16 CALPHA, CBETA local 257 CALPHA = DCMPLX( ALPHA, ZERO ) 298 CALL ZGEMM( 'N', 'C', N2, N1, K, CALPHA, A( N1+1, 1 ), 326 CALL ZGEMM( 'N', 'C', N1, N2, K, CALPHA, A( 1, 1 ), 337 CALL ZGEMM( 'C', 'N', N1, N2, K, CALPHA, A( 1, 1 ), 360 CALL ZGEMM( 'N', 'C', N1, N2, K, CALPHA, A( 1, 1 ), 372 CALL ZGEMM( 'C', 'N', N1, N2, K, CALPHA, A( 1, 1 ), 460 CALL ZGEMM( 'N', 'C', NK, NK, K, CALPHA, A( 1, 1 ), 472 CALL ZGEMM( 'C', 'N', NK, NK, K, CALPHA, A( 1, 1 ), 496 CALL ZGEMM( 'N', 'C', NK, NK, K, CALPHA, A( 1, 1 ), [all …]
|
/dports/math/cblas/lapack-3.10.0/SRC/ |
H A D | zhfrk.f | 193 COMPLEX*16 CALPHA, CBETA 254 CALPHA = DCMPLX( ALPHA, ZERO ) 295 CALL ZGEMM( 'N', 'C', N2, N1, K, CALPHA, A( N1+1, 1 ), 323 CALL ZGEMM( 'N', 'C', N1, N2, K, CALPHA, A( 1, 1 ), 334 CALL ZGEMM( 'C', 'N', N1, N2, K, CALPHA, A( 1, 1 ), 357 CALL ZGEMM( 'N', 'C', N1, N2, K, CALPHA, A( 1, 1 ), 369 CALL ZGEMM( 'C', 'N', N1, N2, K, CALPHA, A( 1, 1 ), 457 CALL ZGEMM( 'N', 'C', NK, NK, K, CALPHA, A( 1, 1 ), 469 CALL ZGEMM( 'C', 'N', NK, NK, K, CALPHA, A( 1, 1 ), 493 CALL ZGEMM( 'N', 'C', NK, NK, K, CALPHA, A( 1, 1 ), [all …]
|
H A D | chfrk.f | 194 COMPLEX CALPHA, CBETA 255 CALPHA = CMPLX( ALPHA, ZERO ) 296 CALL CGEMM( 'N', 'C', N2, N1, K, CALPHA, A( N1+1, 1 ), 324 CALL CGEMM( 'N', 'C', N1, N2, K, CALPHA, A( 1, 1 ), 335 CALL CGEMM( 'C', 'N', N1, N2, K, CALPHA, A( 1, 1 ), 358 CALL CGEMM( 'N', 'C', N1, N2, K, CALPHA, A( 1, 1 ), 370 CALL CGEMM( 'C', 'N', N1, N2, K, CALPHA, A( 1, 1 ), 458 CALL CGEMM( 'N', 'C', NK, NK, K, CALPHA, A( 1, 1 ), 470 CALL CGEMM( 'C', 'N', NK, NK, K, CALPHA, A( 1, 1 ), 494 CALL CGEMM( 'N', 'C', NK, NK, K, CALPHA, A( 1, 1 ), [all …]
|
/dports/math/xlapack/lapack-3.10.0/TESTING/LIN/ |
H A D | zerrrfp.f | 67 COMPLEX*16 CALPHA 96 CALPHA = DCMPLX( 1.0D0 , 1.0D0 ) 140 CALL ZTFSM( '/', 'L', 'U', 'C', 'U', 0, 0, CALPHA, A, B, 1 ) 143 CALL ZTFSM( 'N', '/', 'U', 'C', 'U', 0, 0, CALPHA, A, B, 1 ) 146 CALL ZTFSM( 'N', 'L', '/', 'C', 'U', 0, 0, CALPHA, A, B, 1 ) 149 CALL ZTFSM( 'N', 'L', 'U', '/', 'U', 0, 0, CALPHA, A, B, 1 ) 152 CALL ZTFSM( 'N', 'L', 'U', 'C', '/', 0, 0, CALPHA, A, B, 1 ) 155 CALL ZTFSM( 'N', 'L', 'U', 'C', 'U', -1, 0, CALPHA, A, B, 1 ) 158 CALL ZTFSM( 'N', 'L', 'U', 'C', 'U', 0, -1, CALPHA, A, B, 1 ) 161 CALL ZTFSM( 'N', 'L', 'U', 'C', 'U', 0, 0, CALPHA, A, B, 0 )
|
/dports/math/blas/lapack-3.10.0/TESTING/LIN/ |
H A D | zerrrfp.f | 67 COMPLEX*16 CALPHA local 96 CALPHA = DCMPLX( 1.0D0 , 1.0D0 ) 140 CALL ZTFSM( '/', 'L', 'U', 'C', 'U', 0, 0, CALPHA, A, B, 1 ) 143 CALL ZTFSM( 'N', '/', 'U', 'C', 'U', 0, 0, CALPHA, A, B, 1 ) 146 CALL ZTFSM( 'N', 'L', '/', 'C', 'U', 0, 0, CALPHA, A, B, 1 ) 149 CALL ZTFSM( 'N', 'L', 'U', '/', 'U', 0, 0, CALPHA, A, B, 1 ) 152 CALL ZTFSM( 'N', 'L', 'U', 'C', '/', 0, 0, CALPHA, A, B, 1 ) 155 CALL ZTFSM( 'N', 'L', 'U', 'C', 'U', -1, 0, CALPHA, A, B, 1 ) 158 CALL ZTFSM( 'N', 'L', 'U', 'C', 'U', 0, -1, CALPHA, A, B, 1 ) 161 CALL ZTFSM( 'N', 'L', 'U', 'C', 'U', 0, 0, CALPHA, A, B, 0 )
|
/dports/math/lapacke/lapack-3.10.0/TESTING/LIN/ |
H A D | zerrrfp.f | 67 COMPLEX*16 CALPHA 96 CALPHA = DCMPLX( 1.0D0 , 1.0D0 ) 140 CALL ZTFSM( '/', 'L', 'U', 'C', 'U', 0, 0, CALPHA, A, B, 1 ) 143 CALL ZTFSM( 'N', '/', 'U', 'C', 'U', 0, 0, CALPHA, A, B, 1 ) 146 CALL ZTFSM( 'N', 'L', '/', 'C', 'U', 0, 0, CALPHA, A, B, 1 ) 149 CALL ZTFSM( 'N', 'L', 'U', '/', 'U', 0, 0, CALPHA, A, B, 1 ) 152 CALL ZTFSM( 'N', 'L', 'U', 'C', '/', 0, 0, CALPHA, A, B, 1 ) 155 CALL ZTFSM( 'N', 'L', 'U', 'C', 'U', -1, 0, CALPHA, A, B, 1 ) 158 CALL ZTFSM( 'N', 'L', 'U', 'C', 'U', 0, -1, CALPHA, A, B, 1 ) 161 CALL ZTFSM( 'N', 'L', 'U', 'C', 'U', 0, 0, CALPHA, A, B, 0 )
|
/dports/math/lapack/lapack-3.10.0/TESTING/LIN/ |
H A D | zerrrfp.f | 67 COMPLEX*16 CALPHA local 96 CALPHA = DCMPLX( 1.0D0 , 1.0D0 ) 140 CALL ZTFSM( '/', 'L', 'U', 'C', 'U', 0, 0, CALPHA, A, B, 1 ) 143 CALL ZTFSM( 'N', '/', 'U', 'C', 'U', 0, 0, CALPHA, A, B, 1 ) 146 CALL ZTFSM( 'N', 'L', '/', 'C', 'U', 0, 0, CALPHA, A, B, 1 ) 149 CALL ZTFSM( 'N', 'L', 'U', '/', 'U', 0, 0, CALPHA, A, B, 1 ) 152 CALL ZTFSM( 'N', 'L', 'U', 'C', '/', 0, 0, CALPHA, A, B, 1 ) 155 CALL ZTFSM( 'N', 'L', 'U', 'C', 'U', -1, 0, CALPHA, A, B, 1 ) 158 CALL ZTFSM( 'N', 'L', 'U', 'C', 'U', 0, -1, CALPHA, A, B, 1 ) 161 CALL ZTFSM( 'N', 'L', 'U', 'C', 'U', 0, 0, CALPHA, A, B, 0 )
|
/dports/math/libflame/libflame-5.2.0/netlib-test/lapack-3.4.2/TESTING/LIN/ |
H A D | zerrrfp.f | 70 COMPLEX*16 CALPHA local 99 CALPHA = DCMPLX( 1.0D0 , 1.0D0 ) 143 CALL ZTFSM( '/', 'L', 'U', 'C', 'U', 0, 0, CALPHA, A, B, 1 ) 146 CALL ZTFSM( 'N', '/', 'U', 'C', 'U', 0, 0, CALPHA, A, B, 1 ) 149 CALL ZTFSM( 'N', 'L', '/', 'C', 'U', 0, 0, CALPHA, A, B, 1 ) 152 CALL ZTFSM( 'N', 'L', 'U', '/', 'U', 0, 0, CALPHA, A, B, 1 ) 155 CALL ZTFSM( 'N', 'L', 'U', 'C', '/', 0, 0, CALPHA, A, B, 1 ) 158 CALL ZTFSM( 'N', 'L', 'U', 'C', 'U', -1, 0, CALPHA, A, B, 1 ) 161 CALL ZTFSM( 'N', 'L', 'U', 'C', 'U', 0, -1, CALPHA, A, B, 1 ) 164 CALL ZTFSM( 'N', 'L', 'U', 'C', 'U', 0, 0, CALPHA, A, B, 0 )
|
/dports/math/libflame/libflame-5.2.0/old/lapack-test/3.4.2/LIN/ |
H A D | zerrrfp.f | 70 COMPLEX*16 CALPHA 99 CALPHA = DCMPLX( 1.0D0 , 1.0D0 ) 143 CALL ZTFSM( '/', 'L', 'U', 'C', 'U', 0, 0, CALPHA, A, B, 1 ) 146 CALL ZTFSM( 'N', '/', 'U', 'C', 'U', 0, 0, CALPHA, A, B, 1 ) 149 CALL ZTFSM( 'N', 'L', '/', 'C', 'U', 0, 0, CALPHA, A, B, 1 ) 152 CALL ZTFSM( 'N', 'L', 'U', '/', 'U', 0, 0, CALPHA, A, B, 1 ) 155 CALL ZTFSM( 'N', 'L', 'U', 'C', '/', 0, 0, CALPHA, A, B, 1 ) 158 CALL ZTFSM( 'N', 'L', 'U', 'C', 'U', -1, 0, CALPHA, A, B, 1 ) 161 CALL ZTFSM( 'N', 'L', 'U', 'C', 'U', 0, -1, CALPHA, A, B, 1 ) 164 CALL ZTFSM( 'N', 'L', 'U', 'C', 'U', 0, 0, CALPHA, A, B, 0 )
|
/dports/math/libflame/libflame-5.2.0/old/lapack-test/3.5.0/LIN/ |
H A D | zerrrfp.f | 70 COMPLEX*16 CALPHA 99 CALPHA = DCMPLX( 1.0D0 , 1.0D0 ) 143 CALL ZTFSM( '/', 'L', 'U', 'C', 'U', 0, 0, CALPHA, A, B, 1 ) 146 CALL ZTFSM( 'N', '/', 'U', 'C', 'U', 0, 0, CALPHA, A, B, 1 ) 149 CALL ZTFSM( 'N', 'L', '/', 'C', 'U', 0, 0, CALPHA, A, B, 1 ) 152 CALL ZTFSM( 'N', 'L', 'U', '/', 'U', 0, 0, CALPHA, A, B, 1 ) 155 CALL ZTFSM( 'N', 'L', 'U', 'C', '/', 0, 0, CALPHA, A, B, 1 ) 158 CALL ZTFSM( 'N', 'L', 'U', 'C', 'U', -1, 0, CALPHA, A, B, 1 ) 161 CALL ZTFSM( 'N', 'L', 'U', 'C', 'U', 0, -1, CALPHA, A, B, 1 ) 164 CALL ZTFSM( 'N', 'L', 'U', 'C', 'U', 0, 0, CALPHA, A, B, 0 )
|
/dports/math/openblas/OpenBLAS-0.3.18/lapack-netlib/TESTING/LIN/ |
H A D | zerrrfp.f | 70 COMPLEX*16 CALPHA local 99 CALPHA = DCMPLX( 1.0D0 , 1.0D0 ) 143 CALL ZTFSM( '/', 'L', 'U', 'C', 'U', 0, 0, CALPHA, A, B, 1 ) 146 CALL ZTFSM( 'N', '/', 'U', 'C', 'U', 0, 0, CALPHA, A, B, 1 ) 149 CALL ZTFSM( 'N', 'L', '/', 'C', 'U', 0, 0, CALPHA, A, B, 1 ) 152 CALL ZTFSM( 'N', 'L', 'U', '/', 'U', 0, 0, CALPHA, A, B, 1 ) 155 CALL ZTFSM( 'N', 'L', 'U', 'C', '/', 0, 0, CALPHA, A, B, 1 ) 158 CALL ZTFSM( 'N', 'L', 'U', 'C', 'U', -1, 0, CALPHA, A, B, 1 ) 161 CALL ZTFSM( 'N', 'L', 'U', 'C', 'U', 0, -1, CALPHA, A, B, 1 ) 164 CALL ZTFSM( 'N', 'L', 'U', 'C', 'U', 0, 0, CALPHA, A, B, 0 )
|
/dports/math/cblas/lapack-3.10.0/TESTING/LIN/ |
H A D | zerrrfp.f | 67 COMPLEX*16 CALPHA 96 CALPHA = DCMPLX( 1.0D0 , 1.0D0 ) 140 CALL ZTFSM( '/', 'L', 'U', 'C', 'U', 0, 0, CALPHA, A, B, 1 ) 143 CALL ZTFSM( 'N', '/', 'U', 'C', 'U', 0, 0, CALPHA, A, B, 1 ) 146 CALL ZTFSM( 'N', 'L', '/', 'C', 'U', 0, 0, CALPHA, A, B, 1 ) 149 CALL ZTFSM( 'N', 'L', 'U', '/', 'U', 0, 0, CALPHA, A, B, 1 ) 152 CALL ZTFSM( 'N', 'L', 'U', 'C', '/', 0, 0, CALPHA, A, B, 1 ) 155 CALL ZTFSM( 'N', 'L', 'U', 'C', 'U', -1, 0, CALPHA, A, B, 1 ) 158 CALL ZTFSM( 'N', 'L', 'U', 'C', 'U', 0, -1, CALPHA, A, B, 1 ) 161 CALL ZTFSM( 'N', 'L', 'U', 'C', 'U', 0, 0, CALPHA, A, B, 0 )
|