Home
last modified time | relevance | path

Searched refs:CALPHA (Results 1 – 25 of 64) sorted by relevance

123

/dports/math/scalapack/scalapack-2.1.0/PBLAS/SRC/PTOOLS/
H A DPB_Cconjg.c20 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 Dinitcoulomb.F90113 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 Dzhfrk.f196 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 Dchfrk.f197 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 Dchfrk.f194 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 Dzhfrk.f193 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 Dzhfrk.f193 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 Dchfrk.f194 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 Dchfrk.f194 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 Dzhfrk.f193 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 Dchfrk.f194 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 Dzhfrk.f193 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 Dchfrk.f197 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 Dzhfrk.f196 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 Dzhfrk.f193 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 Dchfrk.f194 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 Dzerrrfp.f67 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 Dzerrrfp.f67 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 Dzerrrfp.f67 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 Dzerrrfp.f67 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 Dzerrrfp.f70 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 Dzerrrfp.f70 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 Dzerrrfp.f70 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 Dzerrrfp.f70 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 Dzerrrfp.f67 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 )

123