Home
last modified time | relevance | path

Searched refs:VSR (Results 1 – 25 of 649) sorted by relevance

12345678910>>...26

/dports/security/nettle/nettle-3.7.3/powerpc64/p7/
H A Dchacha-4core.asm236 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 Dchacha-2core.asm230 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 Dgcm-hash.asm105 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 Dgegset.base38 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 Dggeset.base63 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 Dggesxet.base25 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 Dla_zgegs.f901 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 Dla_cgegs.f901 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 Dla_zgges.f901 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 Dla_sgges.f901 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 Dla_dgegs.f901 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 Dla_dgges.f901 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 Dla_sgegs.f901 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 Dla_cgges.f901 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 Dzggesxet.f9025 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 Ddggesxet.f9025 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 Dsggesxet.f9025 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 Dcggesxet.f9025 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 Ddgegset.f9019 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 Dcgegset.f9019 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 Dsgegset.f9019 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 Dzgegset.f9019 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 Dgges.h64 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 Dla_test_sgges.f9023 & 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 Dla_test_dgges.f9023 & 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)

12345678910>>...26