/dports/security/nettle/nettle-3.7.3/powerpc64/p7/ |
H A D | chacha-4core.asm | 236 stxvw4x VSR(v0), 0, DST 237 stxvw4x VSR(v4), r6, DST 238 stxvw4x VSR(v8), r7, DST 239 stxvw4x VSR(v12), r8, DST 243 stxvw4x VSR(v1), 0, DST 244 stxvw4x VSR(v5), r6, DST 245 stxvw4x VSR(v9), r7, DST 250 stxvw4x VSR(v2), 0, DST 251 stxvw4x VSR(v6), r6, DST 257 stxvw4x VSR(v3), 0, DST [all …]
|
H A D | chacha-2core.asm | 230 stxvw4x VSR(T0), 0, DST 231 stxvw4x VSR(X0), r6, DST 232 stxvw4x VSR(X1), r7, DST 233 stxvw4x VSR(X2), r8, DST 237 stxvw4x VSR(Y0), 0, DST 238 stxvw4x VSR(Y1), r6, DST 239 stxvw4x VSR(Y2), r7, DST 240 stxvw4x VSR(Y3), r8, DST 250 lxvw4x VSR(X3), r8, SRC
|
/dports/security/nettle/nettle-3.7.3/powerpc64/p8/ |
H A D | gcm-hash.asm | 105 lxvd2x VSR(H),r10,TABLE C load 'H' 254 xxmrghd VSR(POLY_L),VSR(ZERO),VSR(POLY) 337 xxswapd VSR(D),VSR(F) 365 lxvd2x VSR(H1M),0,TABLE 366 lxvd2x VSR(H1L),r8,TABLE 367 lxvd2x VSR(H2M),r9,TABLE 368 lxvd2x VSR(H2L),r10,TABLE 428 xxswapd VSR(D),VSR(F) 442 lxvd2x VSR(H1M),0,TABLE 443 lxvd2x VSR(H1L),r8,TABLE [all …]
|
/dports/math/lapack95/LAPACK95/EXAMPLES2/Old000807/ |
H A D | gegset.base | 38 VSL(N,N), VSR(N,N), B(N,N), BB(N,N) ) 66 WRITE(NOUT,*) 'VSR:' 122 WRITE(NOUT,*) 'CALL LA_GEGS( A, B, VSR=VSR(1:N-1,:), INFO=INFO )' 124 CALL LA_GEGS( A, B, VSR=VSR(1:N-1,:), INFO=INFO ) 128 WRITE(NOUT,*) 'CALL LA_GEGS( A, B, VSR=VSR(:,1:N-1), INFO=INFO )' 130 CALL LA_GEGS( A, B, VSR=VSR(:,1:N-1), INFO=INFO ) 145 WRITE(NOUT,*) 'VSR:' 201 WRITE(NOUT,*) 'CALL LA_GEGS( A, B, VSR=VSR(1:N-1,:), INFO=INFO )' 203 CALL LA_GEGS( A, B, VSR=VSR(1:N-1,:), INFO=INFO ) 207 WRITE(NOUT,*) 'CALL LA_GEGS( A, B, VSR=VSR(:,1:N-1), INFO=INFO )' [all …]
|
H A D | ggeset.base | 63 WRITE(NOUT,*) 'VSR:' 125 WRITE(NOUT,*) 'CALL LA_GGES( A, B, ALPHAR, ALPHAI, BETA, VSR=VSR(1:N-1,:), INFO=INFO )' 127 CALL LA_GGES( A, B, ALPHAR, ALPHAI, BETA, VSR=VSR(1:N-1,:), INFO=INFO ) 131 WRITE(NOUT,*) 'CALL LA_GGES( A, B, ALPHAR, ALPHAI, BETA, VSR=VSR(:,1:N-1), INFO=INFO )' 133 CALL LA_GGES( A, B, ALPHAR, ALPHAI, BETA, VSR=VSR(:,1:N-1), INFO=INFO ) 165 & VSL(N,N), VSR(N,N), B(N,N), BB(N,N) ) 190 WRITE(NOUT,*) 'VSR:' 244 WRITE(NOUT,*) 'CALL LA_GGES( A, B, ALPHA, BETA, VSR=VSR(1:N-1,:), INFO=INFO )' 246 CALL LA_GGES( A, B, ALPHA, BETA, VSR=VSR(1:N-1,:), INFO=INFO ) 250 WRITE(NOUT,*) 'CALL LA_GGES( A, B, ALPHA, BETA, VSR=VSR(:,1:N-1), INFO=INFO )' [all …]
|
H A D | ggesxet.base | 25 REAL(WP), ALLOCATABLE :: A(:,:), B(:,:), VSL(:,:), VSR(:,:), DUMMY(:,:) 33 ALLOCATE ( A(N,N), B(N,N), AA(N,N), BB(N,N), VSL(N,N), VSR(N,N) ) 56 DO I = 1, N; WRITE(NOUT,*) 'I = ', I; WRITE (NOUT,FMT) VSR(:,I); END DO 61 WRITE(NOUT,*) 'CALL LA_GGESX( A, B, ALPHAR, ALPHAI, BETA, VSL, VSR )' 62 A=AA; VSL = HUGE(1.0_WP); VSR = HUGE(1.0_WP) 63 CALL LA_GGESX( A, B, ALPHAR, ALPHAI, BETA, VSL, VSR) 187 COMPLEX(WP), ALLOCATABLE :: A(:,:), B(:,:), VSL(:,:), VSR(:,:), DUMMY(:,:) 195 ALLOCATE ( A(N,N), B(N,N), AA(N,N), BB(N,N), VSL(N,N), VSR(N,N) ) 223 WRITE(NOUT,*) 'CALL LA_GGESX( A, B, ALPHA, BETA, VSL, VSR )' 224 A=AA; VSL = HUGE(1.0_WP); VSR = HUGE(1.0_WP) [all …]
|
/dports/math/lapack95/LAPACK95/SRC/ |
H A D | la_zgegs.f90 | 1 SUBROUTINE ZGEGS_F95( A, B, ALPHA, BETA, VSL, VSR, INFO ) argument 18 COMPLEX(WP), INTENT(OUT), OPTIONAL, TARGET :: VSL(:,:), VSR(:,:) local 169 IF( PRESENT(VSR) )THEN; S1VSR = SIZE(VSR,1); S2VSR = SIZE(VSR,2); LJOBVSR = 'V' 177 ELSE IF( PRESENT(VSR) .AND. ( S1VSR /= N .OR. S2VSR /= N ) )THEN; LINFO = -6 197 IF( PRESENT(VSR) )THEN 199 LBETA, VSL, S1VSL, VSR, S1VSR, WORK, LWORK, RWORK, LINFO ) 205 IF( PRESENT(VSR) )THEN 207 LBETA, LLVSL, S1VSL, VSR, S1VSR, WORK, LWORK, RWORK, LINFO )
|
H A D | la_cgegs.f90 | 1 SUBROUTINE CGEGS_F95( A, B, ALPHA, BETA, VSL, VSR, INFO ) argument 18 COMPLEX(WP), INTENT(OUT), OPTIONAL, TARGET :: VSL(:,:), VSR(:,:) local 169 IF( PRESENT(VSR) )THEN; S1VSR = SIZE(VSR,1); S2VSR = SIZE(VSR,2); LJOBVSR = 'V' 177 ELSE IF( PRESENT(VSR) .AND. ( S1VSR /= N .OR. S2VSR /= N ) )THEN; LINFO = -6 197 IF( PRESENT(VSR) )THEN 199 LBETA, VSL, S1VSL, VSR, S1VSR, WORK, LWORK, RWORK, LINFO ) 205 IF( PRESENT(VSR) )THEN 207 LBETA, LLVSL, S1VSL, VSR, S1VSR, WORK, LWORK, RWORK, LINFO )
|
H A D | la_zgges.f90 | 1 SUBROUTINE ZGGES_F95( A, B, ALPHA, BETA, VSL, VSR, SELECT, SDIM, INFO ) argument 19 COMPLEX(WP), INTENT(OUT), OPTIONAL, TARGET :: VSL(:,:), VSR(:,:) local 183 IF( PRESENT(VSR) )THEN; S1VSR = SIZE(VSR,1); S2VSR = SIZE(VSR,2); LJOBVSR = 'V' 191 ELSE IF( PRESENT(VSR) .AND. ( S1VSR /= N .OR. S2VSR /= N ) )THEN; LINFO = -6 206 IF( PRESENT(VSR) )THEN 216 IF( PRESENT(VSR) )THEN 232 IF( PRESENT(VSR) )THEN 242 IF( PRESENT(VSR) )THEN
|
H A D | la_sgges.f90 | 1 SUBROUTINE SGGES_F95( A, B, ALPHAR, ALPHAI, BETA, VSL, VSR, SELECT, SDIM, INFO ) argument 19 REAL(WP), INTENT(OUT), OPTIONAL, TARGET :: VSL(:,:), VSR(:,:) local 182 IF( PRESENT(VSR) )THEN; S1VSR = SIZE(VSR,1); S2VSR = SIZE(VSR,2); LJOBVSR = 'V' 191 ELSE IF( PRESENT(VSR) .AND. ( S1VSR /= N .OR. S2VSR /= N ) )THEN; LINFO = -7 202 IF( PRESENT(VSR) )THEN 212 IF( PRESENT(VSR) )THEN 228 IF( PRESENT(VSR) )THEN 238 IF( PRESENT(VSR) )THEN
|
H A D | la_dgegs.f90 | 1 SUBROUTINE DGEGS_F95( A, B, ALPHAR, ALPHAI, BETA, VSL, VSR, INFO ) argument 18 REAL(WP), INTENT(OUT), OPTIONAL, TARGET :: VSL(:,:), VSR(:,:) local 169 IF( PRESENT(VSR) )THEN; S1VSR = SIZE(VSR,1); S2VSR = SIZE(VSR,2); LJOBVSR = 'V' 178 ELSE IF( PRESENT(VSR) .AND. ( S1VSR /= N .OR. S2VSR /= N ) )THEN; LINFO = -7 199 IF( PRESENT(VSR) )THEN 201 LBETA, VSL, S1VSL, VSR, S1VSR, WORK, LWORK, LINFO ) 207 IF( PRESENT(VSR) )THEN 209 LBETA, LLVSL, S1VSL, VSR, S1VSR, WORK, LWORK, LINFO )
|
H A D | la_dgges.f90 | 1 SUBROUTINE DGGES_F95( A, B, ALPHAR, ALPHAI, BETA, VSL, VSR, SELECT, SDIM, INFO ) argument 19 REAL(WP), INTENT(OUT), OPTIONAL, TARGET :: VSL(:,:), VSR(:,:) local 182 IF( PRESENT(VSR) )THEN; S1VSR = SIZE(VSR,1); S2VSR = SIZE(VSR,2); LJOBVSR = 'V' 191 ELSE IF( PRESENT(VSR) .AND. ( S1VSR /= N .OR. S2VSR /= N ) )THEN; LINFO = -7 202 IF( PRESENT(VSR) )THEN 212 IF( PRESENT(VSR) )THEN 228 IF( PRESENT(VSR) )THEN 238 IF( PRESENT(VSR) )THEN
|
H A D | la_sgegs.f90 | 1 SUBROUTINE SGEGS_F95( A, B, ALPHAR, ALPHAI, BETA, VSL, VSR, INFO ) argument 18 REAL(WP), INTENT(OUT), OPTIONAL, TARGET :: VSL(:,:), VSR(:,:) local 169 IF( PRESENT(VSR) )THEN; S1VSR = SIZE(VSR,1); S2VSR = SIZE(VSR,2); LJOBVSR = 'V' 178 ELSE IF( PRESENT(VSR) .AND. ( S1VSR /= N .OR. S2VSR /= N ) )THEN; LINFO = -7 199 IF( PRESENT(VSR) )THEN 201 LBETA, VSL, S1VSL, VSR, S1VSR, WORK, LWORK, LINFO ) 207 IF( PRESENT(VSR) )THEN 209 LBETA, LLVSL, S1VSL, VSR, S1VSR, WORK, LWORK, LINFO )
|
H A D | la_cgges.f90 | 1 SUBROUTINE CGGES_F95( A, B, ALPHA, BETA, VSL, VSR, SELECT, SDIM, INFO ) argument 19 COMPLEX(WP), INTENT(OUT), OPTIONAL, TARGET :: VSL(:,:), VSR(:,:) local 183 IF( PRESENT(VSR) )THEN; S1VSR = SIZE(VSR,1); S2VSR = SIZE(VSR,2); LJOBVSR = 'V' 191 ELSE IF( PRESENT(VSR) .AND. ( S1VSR /= N .OR. S2VSR /= N ) )THEN; LINFO = -6 206 IF( PRESENT(VSR) )THEN 216 IF( PRESENT(VSR) )THEN 232 IF( PRESENT(VSR) )THEN 242 IF( PRESENT(VSR) )THEN
|
/dports/math/lapack95/LAPACK95/EXAMPLES2/ |
H A D | zggesxet.f90 | 25 COMPLEX(WP), ALLOCATABLE :: A(:,:), B(:,:), VSL(:,:), VSR(:,:), DUMMY(:,:) variable 33 ALLOCATE ( A(N,N), B(N,N), AA(N,N), BB(N,N), VSL(N,N), VSR(N,N) ) 50 CALL LA_GGESX( A, B, ALPHA, BETA, VSL, VSR, SELECT, SDIM, RCONDE, RCONDV, INFO ) 56 DO I = 1, N; WRITE(NOUT,*) 'I = ', I; WRITE (NOUT,FMT) VSR(:,I); END DO 62 A=AA; VSL = HUGE(1.0_WP); VSR = HUGE(1.0_WP) 63 CALL LA_GGESX( A, B, ALPHA, BETA, VSL, VSR) 69 DO I = 1, N; WRITE(NOUT,*) 'I = ', I; WRITE (NOUT,FMT) VSR(:,I); END DO 128 … CALL LA_GGESX( A, B, ALPHA, BETA, VSL(1:N-1,:), VSR, SELECT, SDIM, RCONDE, RCONDV, INFO) 135 … CALL LA_GGESX( A, B, ALPHA, BETA, VSL(:,1:N-1), VSR, SELECT, SDIM, RCONDE, RCONDV, INFO) 142 … CALL LA_GGESX( A, B, ALPHA, BETA, VSL, VSR(1:N-1,:), SELECT, SDIM, RCONDE, RCONDV, INFO) [all …]
|
H A D | dggesxet.f90 | 25 REAL(WP), ALLOCATABLE :: A(:,:), B(:,:), VSL(:,:), VSR(:,:), DUMMY(:,:) variable 33 ALLOCATE ( A(N,N), B(N,N), AA(N,N), BB(N,N), VSL(N,N), VSR(N,N) ) 49 CALL LA_GGESX( A, B, ALPHAR, ALPHAI, BETA, VSL, VSR, SELECT, SDIM, RCONDE, RCONDV, INFO ) 56 DO I = 1, N; WRITE(NOUT,*) 'I = ', I; WRITE (NOUT,FMT) VSR(:,I); END DO 62 A=AA; VSL = HUGE(1.0_WP); VSR = HUGE(1.0_WP) 63 CALL LA_GGESX( A, B, ALPHAR, ALPHAI, BETA, VSL, VSR) 70 DO I = 1, N; WRITE(NOUT,*) 'I = ', I; WRITE (NOUT,FMT) VSR(:,I); END DO 140 CALL LA_GGESX( A, B, ALPHAR, ALPHAI, BETA, VSL(1:N-1,:), VSR, SELECT, & 148 CALL LA_GGESX( A, B, ALPHAR, ALPHAI, BETA, VSL(:,1:N-1), VSR, SELECT, SDIM, & 156 CALL LA_GGESX( A, B, ALPHAR, ALPHAI, BETA, VSL, VSR(1:N-1,:), SELECT, SDIM, & [all …]
|
H A D | sggesxet.f90 | 25 REAL(WP), ALLOCATABLE :: A(:,:), B(:,:), VSL(:,:), VSR(:,:), DUMMY(:,:) variable 33 ALLOCATE ( A(N,N), B(N,N), AA(N,N), BB(N,N), VSL(N,N), VSR(N,N) ) 49 CALL LA_GGESX( A, B, ALPHAR, ALPHAI, BETA, VSL, VSR, SELECT, SDIM, RCONDE, RCONDV, INFO ) 56 DO I = 1, N; WRITE(NOUT,*) 'I = ', I; WRITE (NOUT,FMT) VSR(:,I); END DO 62 A=AA; VSL = HUGE(1.0_WP); VSR = HUGE(1.0_WP) 63 CALL LA_GGESX( A, B, ALPHAR, ALPHAI, BETA, VSL, VSR) 70 DO I = 1, N; WRITE(NOUT,*) 'I = ', I; WRITE (NOUT,FMT) VSR(:,I); END DO 140 CALL LA_GGESX( A, B, ALPHAR, ALPHAI, BETA, VSL(1:N-1,:), VSR, SELECT, & 148 CALL LA_GGESX( A, B, ALPHAR, ALPHAI, BETA, VSL(:,1:N-1), VSR, SELECT, SDIM, & 156 CALL LA_GGESX( A, B, ALPHAR, ALPHAI, BETA, VSL, VSR(1:N-1,:), SELECT, SDIM, & [all …]
|
H A D | cggesxet.f90 | 25 COMPLEX(WP), ALLOCATABLE :: A(:,:), B(:,:), VSL(:,:), VSR(:,:), DUMMY(:,:) variable 33 ALLOCATE ( A(N,N), B(N,N), AA(N,N), BB(N,N), VSL(N,N), VSR(N,N) ) 50 CALL LA_GGESX( A, B, ALPHA, BETA, VSL, VSR, SELECT, SDIM, RCONDE, RCONDV, INFO ) 56 DO I = 1, N; WRITE(NOUT,*) 'I = ', I; WRITE (NOUT,FMT) VSR(:,I); END DO 62 A=AA; VSL = HUGE(1.0_WP); VSR = HUGE(1.0_WP) 63 CALL LA_GGESX( A, B, ALPHA, BETA, VSL, VSR) 69 DO I = 1, N; WRITE(NOUT,*) 'I = ', I; WRITE (NOUT,FMT) VSR(:,I); END DO 128 … CALL LA_GGESX( A, B, ALPHA, BETA, VSL(1:N-1,:), VSR, SELECT, SDIM, RCONDE, RCONDV, INFO) 135 … CALL LA_GGESX( A, B, ALPHA, BETA, VSL(:,1:N-1), VSR, SELECT, SDIM, RCONDE, RCONDV, INFO) 142 … CALL LA_GGESX( A, B, ALPHA, BETA, VSL, VSR(1:N-1,:), SELECT, SDIM, RCONDE, RCONDV, INFO) [all …]
|
H A D | dgegset.f90 | 19 REAL(WP), ALLOCATABLE :: A(:,:), B(:,:), VSL(:,:), VSR(:,:), & variable 27 VSL(N,N), VSR(N,N), B(N,N), BB(N,N) ) 44 CALL LA_GEGS( A, B, ALPHAR, ALPHAI, BETA, VSL, VSR, INFO ) 55 DO I = 1, N; WRITE(NOUT,*) 'I = ', I; WRITE (NOUT,FMT) VSR(:,I); END DO 112 CALL LA_GEGS( A, B, VSR=VSR(1:N-1,:), INFO=INFO ) 118 CALL LA_GEGS( A, B, VSR=VSR(:,1:N-1), INFO=INFO )
|
H A D | cgegset.f90 | 19 COMPLEX(WP), ALLOCATABLE :: A(:,:), B(:,:), VSL(:,:), VSR(:,:), & variable 27 VSL(N,N), VSR(N,N), B(N,N), BB(N,N) ) 44 CALL LA_GEGS( A, B, ALPHA, BETA, VSL, VSR, INFO ) 53 DO I = 1, N; WRITE(NOUT,*) 'I = ', I; WRITE (NOUT,FMT) VSR(:,I); END DO 110 CALL LA_GEGS( A, B, VSR=VSR(1:N-1,:), INFO=INFO ) 116 CALL LA_GEGS( A, B, VSR=VSR(:,1:N-1), INFO=INFO )
|
H A D | sgegset.f90 | 19 REAL(WP), ALLOCATABLE :: A(:,:), B(:,:), VSL(:,:), VSR(:,:), & variable 27 VSL(N,N), VSR(N,N), B(N,N), BB(N,N) ) 44 CALL LA_GEGS( A, B, ALPHAR, ALPHAI, BETA, VSL, VSR, INFO ) 55 DO I = 1, N; WRITE(NOUT,*) 'I = ', I; WRITE (NOUT,FMT) VSR(:,I); END DO 112 CALL LA_GEGS( A, B, VSR=VSR(1:N-1,:), INFO=INFO ) 118 CALL LA_GEGS( A, B, VSR=VSR(:,1:N-1), INFO=INFO )
|
H A D | zgegset.f90 | 19 COMPLEX(WP), ALLOCATABLE :: A(:,:), B(:,:), VSL(:,:), VSR(:,:), & variable 27 VSL(N,N), VSR(N,N), B(N,N), BB(N,N) ) 44 CALL LA_GEGS( A, B, ALPHA, BETA, VSL, VSR, INFO ) 53 DO I = 1, N; WRITE(NOUT,*) 'I = ', I; WRITE (NOUT,FMT) VSR(:,I); END DO 110 CALL LA_GEGS( A, B, VSR=VSR(1:N-1,:), INFO=INFO ) 116 CALL LA_GEGS( A, B, VSR=VSR(:,1:N-1), INFO=INFO )
|
/dports/math/blaze/blaze-3.8/blaze/math/lapack/clapack/ |
H A D | gges.h | 64 blaze::blas_int_t* ldvsl, float* VSR, blaze::blas_int_t* ldvsr, float* work, 116 float* VSL, blas_int_t ldvsl, float* VSR, 124 double* VSL, blas_int_t ldvsl, double* VSR, 132 complex<float>* VSL, blas_int_t ldvsl, complex<float>* VSR, 140 complex<double>* VSL, blas_int_t ldvsl, complex<double>* VSR, 231 float* VSL, blas_int_t ldvsl, float* VSR, in gges() argument 240 VSL, &ldvsl, VSR, &ldvsr, work, &lwork, bwork, info in gges() 333 double* VSL, blas_int_t ldvsl, double* VSR, in gges() argument 342 VSL, &ldvsl, VSR, &ldvsr, work, &lwork, bwork, info in gges() 435 complex<float>* VSL, blas_int_t ldvsl, complex<float>* VSR, in gges() argument [all …]
|
/dports/math/lapack95/LAPACK95/TESTING/ |
H A D | la_test_sgges.f90 | 23 & VSL(1: LDVSL, 1:N), VSR(1: LDVSR, 1:N) local 75 & VSR = VSR(1:IVSR1,1:IVSR2), SELECT = SELECT, SDIM=SDIM,& 89 & VSR=VSR(1:IVSR1,1:IVSR2),SDIM=SDIM, & 101 & BETA=BETA(1: IBETA), VSR = VSR(1:IVSR1,1:IVSR2), & 114 & VSL(1:IVSL1,1:IVSL2), VSR(1:IVSR1,1:IVSR2), SELECT, SDIM, & 125 & VSR = VSR(1:IVSR1,1:IVSR2), SELECT=SELECT, SDIM=SDIM, INFO = INFO)
|
H A D | la_test_dgges.f90 | 23 & VSL(1: LDVSL, 1:N), VSR(1: LDVSR, 1:N) local 75 & VSR = VSR(1:IVSR1,1:IVSR2), SELECT = SELECT, SDIM=SDIM,& 89 & VSR=VSR(1:IVSR1,1:IVSR2),SDIM=SDIM, & 101 & BETA=BETA(1: IBETA), VSR = VSR(1:IVSR1,1:IVSR2), & 114 & VSL(1:IVSL1,1:IVSL2), VSR(1:IVSR1,1:IVSR2), SELECT, SDIM, & 125 & VSR = VSR(1:IVSR1,1:IVSR2), SELECT=SELECT, SDIM=SDIM, INFO = INFO)
|