Home
last modified time | relevance | path

Searched refs:WR3 (Results 1 – 25 of 107) sorted by relevance

12345

/dports/math/math77/MATH77/
H A Ddfft.f57 DOUBLE PRECISION WI1, WI2, WI3, WR1, WR2, WR3 local
205 TP1 = WR3 * AR(I3) - WI3 * AI(I3)
206 TP1I = WI3 * AR(I3) + WR3 * AI(I3)
236 WI3 = -WR3
237 WR3 = T
256 WR3 = S(JR)
263 WR3 = -S(JR)
H A Dsfft.f57 REAL WI1, WI2, WI3, WR1, WR2, WR3 local
205 TP1 = WR3 * AR(I3) - WI3 * AI(I3)
206 TP1I = WI3 * AR(I3) + WR3 * AI(I3)
236 WI3 = -WR3
237 WR3 = T
256 WR3 = S(JR)
263 WR3 = -S(JR)
/dports/math/libflame/libflame-5.2.0/netlib-test/lapack-3.4.2/TESTING/EIG/
H A Dschkhs.f404 $ WI1, WR3, WI3, EVECTL, EVECTR, EVECTY, EVECTX, argument
426 $ WR3( * ), Z( LDU, * ) local
762 CALL SHSEQR( 'E', 'N', N, ILO, IHI, T2, LDA, WR3, WI3, UZ,
829 $ ABS( WR3( J ) )+ABS( WI3( J ) ) )
830 TEMP2 = MAX( TEMP2, ABS( WR1( J )-WR3( J ) )+
831 $ ABS( WR1( J )-WR3( J ) ) )
1000 $ WR3, WI3, DUMMA, LDU, EVECTX, LDU, N1, IN,
1014 CALL SGET22( 'N', 'N', 'N', N, H, LDA, EVECTX, LDU, WR3,
1047 CALL SGET22( 'C', 'N', 'C', N, H, LDA, EVECTY, LDU, WR3,
1076 CALL SGET22( 'N', 'N', 'N', N, A, LDA, EVECTX, LDU, WR3,
[all …]
H A Ddchkhs.f404 $ WI1, WR3, WI3, EVECTL, EVECTR, EVECTY, EVECTX, argument
426 $ WR3( * ), Z( LDU, * ) local
762 CALL DHSEQR( 'E', 'N', N, ILO, IHI, T2, LDA, WR3, WI3, UZ,
829 $ ABS( WR3( J ) )+ABS( WI3( J ) ) )
830 TEMP2 = MAX( TEMP2, ABS( WR1( J )-WR3( J ) )+
831 $ ABS( WR1( J )-WR3( J ) ) )
1000 $ WR3, WI3, DUMMA, LDU, EVECTX, LDU, N1, IN,
1014 CALL DGET22( 'N', 'N', 'N', N, H, LDA, EVECTX, LDU, WR3,
1047 CALL DGET22( 'C', 'N', 'C', N, H, LDA, EVECTY, LDU, WR3,
1076 CALL DGET22( 'N', 'N', 'N', N, A, LDA, EVECTX, LDU, WR3,
[all …]
/dports/math/libflame/libflame-5.2.0/old/lapack-test/3.5.0/EIG/
H A Ddchkhs.f404 $ WI1, WR3, WI3, EVECTL, EVECTR, EVECTY, EVECTX, argument
426 $ WR3( * ), Z( LDU, * ) local
762 CALL DHSEQR( 'E', 'N', N, ILO, IHI, T2, LDA, WR3, WI3, UZ,
829 $ ABS( WR3( J ) )+ABS( WI3( J ) ) )
830 TEMP2 = MAX( TEMP2, ABS( WR1( J )-WR3( J ) )+
831 $ ABS( WR1( J )-WR3( J ) ) )
1000 $ WR3, WI3, DUMMA, LDU, EVECTX, LDU, N1, IN,
1014 CALL DGET22( 'N', 'N', 'N', N, H, LDA, EVECTX, LDU, WR3,
1047 CALL DGET22( 'C', 'N', 'C', N, H, LDA, EVECTY, LDU, WR3,
1076 CALL DGET22( 'N', 'N', 'N', N, A, LDA, EVECTX, LDU, WR3,
[all …]
H A Dschkhs.f404 $ WI1, WR3, WI3, EVECTL, EVECTR, EVECTY, EVECTX, argument
426 $ WR3( * ), Z( LDU, * ) local
762 CALL SHSEQR( 'E', 'N', N, ILO, IHI, T2, LDA, WR3, WI3, UZ,
829 $ ABS( WR3( J ) )+ABS( WI3( J ) ) )
830 TEMP2 = MAX( TEMP2, ABS( WR1( J )-WR3( J ) )+
831 $ ABS( WR1( J )-WR3( J ) ) )
1000 $ WR3, WI3, DUMMA, LDU, EVECTX, LDU, N1, IN,
1014 CALL SGET22( 'N', 'N', 'N', N, H, LDA, EVECTX, LDU, WR3,
1047 CALL SGET22( 'C', 'N', 'C', N, H, LDA, EVECTY, LDU, WR3,
1076 CALL SGET22( 'N', 'N', 'N', N, A, LDA, EVECTX, LDU, WR3,
[all …]
/dports/math/libflame/libflame-5.2.0/old/lapack-test/3.4.2/EIG/
H A Dschkhs.f404 $ WI1, WR3, WI3, EVECTL, EVECTR, EVECTY, EVECTX, argument
426 $ WR3( * ), Z( LDU, * ) local
762 CALL SHSEQR( 'E', 'N', N, ILO, IHI, T2, LDA, WR3, WI3, UZ,
829 $ ABS( WR3( J ) )+ABS( WI3( J ) ) )
830 TEMP2 = MAX( TEMP2, ABS( WR1( J )-WR3( J ) )+
831 $ ABS( WR1( J )-WR3( J ) ) )
1000 $ WR3, WI3, DUMMA, LDU, EVECTX, LDU, N1, IN,
1014 CALL SGET22( 'N', 'N', 'N', N, H, LDA, EVECTX, LDU, WR3,
1047 CALL SGET22( 'C', 'N', 'C', N, H, LDA, EVECTY, LDU, WR3,
1076 CALL SGET22( 'N', 'N', 'N', N, A, LDA, EVECTX, LDU, WR3,
[all …]
H A Ddchkhs.f404 $ WI1, WR3, WI3, EVECTL, EVECTR, EVECTY, EVECTX, argument
426 $ WR3( * ), Z( LDU, * ) local
762 CALL DHSEQR( 'E', 'N', N, ILO, IHI, T2, LDA, WR3, WI3, UZ,
829 $ ABS( WR3( J ) )+ABS( WI3( J ) ) )
830 TEMP2 = MAX( TEMP2, ABS( WR1( J )-WR3( J ) )+
831 $ ABS( WR1( J )-WR3( J ) ) )
1000 $ WR3, WI3, DUMMA, LDU, EVECTX, LDU, N1, IN,
1014 CALL DGET22( 'N', 'N', 'N', N, H, LDA, EVECTX, LDU, WR3,
1047 CALL DGET22( 'C', 'N', 'C', N, H, LDA, EVECTY, LDU, WR3,
1076 CALL DGET22( 'N', 'N', 'N', N, A, LDA, EVECTX, LDU, WR3,
[all …]
/dports/emulators/mess/mame-mame0226/src/devices/machine/
H A Dz80dma.cpp82 #define WR3 REG(3, 0) macro
133 #define INTERRUPT_ENABLE (WR3 & 0x20)
226 WR3 &= ~0x20; in device_reset()
662 WR3 = data; in write()
701 WR3 &= ~0x20; in write()
781 WR3 |= 0x20; in write()
785 WR3 &= ~0x20; in write()
/dports/emulators/mame/mame-mame0226/src/devices/machine/
H A Dz80dma.cpp82 #define WR3 REG(3, 0) macro
133 #define INTERRUPT_ENABLE (WR3 & 0x20)
226 WR3 &= ~0x20; in device_reset()
662 WR3 = data; in write()
701 WR3 &= ~0x20; in write()
781 WR3 |= 0x20; in write()
785 WR3 &= ~0x20; in write()
/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/TESTING/EIG/
H A Ddchkhs.f411 $ WI1, WR2, WI2, WR3, WI3, EVECTL, EVECTR,
433 $ WR1( * ), WR2( * ), WR3( * ), Z( LDU, * )
769 CALL DHSEQR( 'E', 'N', N, ILO, IHI, T2, LDA, WR3, WI3, UZ,
1007 $ WR3, WI3, DUMMA, LDU, EVECTX, LDU, N1, IN,
1021 CALL DGET22( 'N', 'N', 'N', N, H, LDA, EVECTX, LDU, WR3,
1039 CALL DHSEIN( 'Left', 'Qr', 'Ninitv', SELECT, N, H, LDA, WR3,
1054 CALL DGET22( 'C', 'N', 'C', N, H, LDA, EVECTY, LDU, WR3,
1083 CALL DGET22( 'N', 'N', 'N', N, A, LDA, EVECTX, LDU, WR3,
1108 CALL DGET22( 'C', 'N', 'C', N, A, LDA, EVECTY, LDU, WR3,
H A Dschkhs.f411 $ WI1, WR2, WI2, WR3, WI3, EVECTL, EVECTR,
433 $ WR1( * ), WR2( * ), WR3( * ), Z( LDU, * )
769 CALL SHSEQR( 'E', 'N', N, ILO, IHI, T2, LDA, WR3, WI3, UZ,
1007 $ WR3, WI3, DUMMA, LDU, EVECTX, LDU, N1, IN,
1021 CALL SGET22( 'N', 'N', 'N', N, H, LDA, EVECTX, LDU, WR3,
1039 CALL SHSEIN( 'Left', 'Qr', 'Ninitv', SELECT, N, H, LDA, WR3,
1054 CALL SGET22( 'C', 'N', 'C', N, H, LDA, EVECTY, LDU, WR3,
1083 CALL SGET22( 'N', 'N', 'N', N, A, LDA, EVECTX, LDU, WR3,
1108 CALL SGET22( 'C', 'N', 'C', N, A, LDA, EVECTY, LDU, WR3,
/dports/math/xlapack/lapack-3.10.0/TESTING/EIG/
H A Ddchkhs.f409 $ WI1, WR2, WI2, WR3, WI3, EVECTL, EVECTR,
430 $ WR1( * ), WR2( * ), WR3( * ), Z( LDU, * )
766 CALL DHSEQR( 'E', 'N', N, ILO, IHI, T2, LDA, WR3, WI3, UZ,
1004 $ WR3, WI3, DUMMA, LDU, EVECTX, LDU, N1, IN,
1018 CALL DGET22( 'N', 'N', 'N', N, H, LDA, EVECTX, LDU, WR3,
1036 CALL DHSEIN( 'Left', 'Qr', 'Ninitv', SELECT, N, H, LDA, WR3,
1051 CALL DGET22( 'C', 'N', 'C', N, H, LDA, EVECTY, LDU, WR3,
1080 CALL DGET22( 'N', 'N', 'N', N, A, LDA, EVECTX, LDU, WR3,
1105 CALL DGET22( 'C', 'N', 'C', N, A, LDA, EVECTY, LDU, WR3,
H A Dschkhs.f409 $ WI1, WR2, WI2, WR3, WI3, EVECTL, EVECTR,
430 $ WR1( * ), WR2( * ), WR3( * ), Z( LDU, * )
766 CALL SHSEQR( 'E', 'N', N, ILO, IHI, T2, LDA, WR3, WI3, UZ,
1004 $ WR3, WI3, DUMMA, LDU, EVECTX, LDU, N1, IN,
1018 CALL SGET22( 'N', 'N', 'N', N, H, LDA, EVECTX, LDU, WR3,
1036 CALL SHSEIN( 'Left', 'Qr', 'Ninitv', SELECT, N, H, LDA, WR3,
1051 CALL SGET22( 'C', 'N', 'C', N, H, LDA, EVECTY, LDU, WR3,
1080 CALL SGET22( 'N', 'N', 'N', N, A, LDA, EVECTX, LDU, WR3,
1105 CALL SGET22( 'C', 'N', 'C', N, A, LDA, EVECTY, LDU, WR3,
/dports/math/blas/lapack-3.10.0/TESTING/EIG/
H A Ddchkhs.f409 $ WI1, WR2, WI2, WR3, WI3, EVECTL, EVECTR,
430 $ WR1( * ), WR2( * ), WR3( * ), Z( LDU, * )
766 CALL DHSEQR( 'E', 'N', N, ILO, IHI, T2, LDA, WR3, WI3, UZ,
1004 $ WR3, WI3, DUMMA, LDU, EVECTX, LDU, N1, IN,
1018 CALL DGET22( 'N', 'N', 'N', N, H, LDA, EVECTX, LDU, WR3,
1036 CALL DHSEIN( 'Left', 'Qr', 'Ninitv', SELECT, N, H, LDA, WR3,
1051 CALL DGET22( 'C', 'N', 'C', N, H, LDA, EVECTY, LDU, WR3,
1080 CALL DGET22( 'N', 'N', 'N', N, A, LDA, EVECTX, LDU, WR3,
1105 CALL DGET22( 'C', 'N', 'C', N, A, LDA, EVECTY, LDU, WR3,
H A Dschkhs.f409 $ WI1, WR2, WI2, WR3, WI3, EVECTL, EVECTR,
430 $ WR1( * ), WR2( * ), WR3( * ), Z( LDU, * )
766 CALL SHSEQR( 'E', 'N', N, ILO, IHI, T2, LDA, WR3, WI3, UZ,
1004 $ WR3, WI3, DUMMA, LDU, EVECTX, LDU, N1, IN,
1018 CALL SGET22( 'N', 'N', 'N', N, H, LDA, EVECTX, LDU, WR3,
1036 CALL SHSEIN( 'Left', 'Qr', 'Ninitv', SELECT, N, H, LDA, WR3,
1051 CALL SGET22( 'C', 'N', 'C', N, H, LDA, EVECTY, LDU, WR3,
1080 CALL SGET22( 'N', 'N', 'N', N, A, LDA, EVECTX, LDU, WR3,
1105 CALL SGET22( 'C', 'N', 'C', N, A, LDA, EVECTY, LDU, WR3,
/dports/math/lapacke/lapack-3.10.0/TESTING/EIG/
H A Ddchkhs.f409 $ WI1, WR2, WI2, WR3, WI3, EVECTL, EVECTR,
430 $ WR1( * ), WR2( * ), WR3( * ), Z( LDU, * )
766 CALL DHSEQR( 'E', 'N', N, ILO, IHI, T2, LDA, WR3, WI3, UZ,
1004 $ WR3, WI3, DUMMA, LDU, EVECTX, LDU, N1, IN,
1018 CALL DGET22( 'N', 'N', 'N', N, H, LDA, EVECTX, LDU, WR3,
1036 CALL DHSEIN( 'Left', 'Qr', 'Ninitv', SELECT, N, H, LDA, WR3,
1051 CALL DGET22( 'C', 'N', 'C', N, H, LDA, EVECTY, LDU, WR3,
1080 CALL DGET22( 'N', 'N', 'N', N, A, LDA, EVECTX, LDU, WR3,
1105 CALL DGET22( 'C', 'N', 'C', N, A, LDA, EVECTY, LDU, WR3,
H A Dschkhs.f409 $ WI1, WR2, WI2, WR3, WI3, EVECTL, EVECTR,
430 $ WR1( * ), WR2( * ), WR3( * ), Z( LDU, * )
766 CALL SHSEQR( 'E', 'N', N, ILO, IHI, T2, LDA, WR3, WI3, UZ,
1004 $ WR3, WI3, DUMMA, LDU, EVECTX, LDU, N1, IN,
1018 CALL SGET22( 'N', 'N', 'N', N, H, LDA, EVECTX, LDU, WR3,
1036 CALL SHSEIN( 'Left', 'Qr', 'Ninitv', SELECT, N, H, LDA, WR3,
1051 CALL SGET22( 'C', 'N', 'C', N, H, LDA, EVECTY, LDU, WR3,
1080 CALL SGET22( 'N', 'N', 'N', N, A, LDA, EVECTX, LDU, WR3,
1105 CALL SGET22( 'C', 'N', 'C', N, A, LDA, EVECTY, LDU, WR3,
/dports/math/lapack/lapack-3.10.0/TESTING/EIG/
H A Ddchkhs.f409 $ WI1, WR2, WI2, WR3, WI3, EVECTL, EVECTR, argument
430 $ WR1( * ), WR2( * ), WR3( * ), Z( LDU, * ) local
766 CALL DHSEQR( 'E', 'N', N, ILO, IHI, T2, LDA, WR3, WI3, UZ,
1004 $ WR3, WI3, DUMMA, LDU, EVECTX, LDU, N1, IN,
1018 CALL DGET22( 'N', 'N', 'N', N, H, LDA, EVECTX, LDU, WR3,
1036 CALL DHSEIN( 'Left', 'Qr', 'Ninitv', SELECT, N, H, LDA, WR3,
1051 CALL DGET22( 'C', 'N', 'C', N, H, LDA, EVECTY, LDU, WR3,
1080 CALL DGET22( 'N', 'N', 'N', N, A, LDA, EVECTX, LDU, WR3,
1105 CALL DGET22( 'C', 'N', 'C', N, A, LDA, EVECTY, LDU, WR3,
H A Dschkhs.f409 $ WI1, WR2, WI2, WR3, WI3, EVECTL, EVECTR, argument
430 $ WR1( * ), WR2( * ), WR3( * ), Z( LDU, * ) local
766 CALL SHSEQR( 'E', 'N', N, ILO, IHI, T2, LDA, WR3, WI3, UZ,
1004 $ WR3, WI3, DUMMA, LDU, EVECTX, LDU, N1, IN,
1018 CALL SGET22( 'N', 'N', 'N', N, H, LDA, EVECTX, LDU, WR3,
1036 CALL SHSEIN( 'Left', 'Qr', 'Ninitv', SELECT, N, H, LDA, WR3,
1051 CALL SGET22( 'C', 'N', 'C', N, H, LDA, EVECTY, LDU, WR3,
1080 CALL SGET22( 'N', 'N', 'N', N, A, LDA, EVECTX, LDU, WR3,
1105 CALL SGET22( 'C', 'N', 'C', N, A, LDA, EVECTY, LDU, WR3,
/dports/math/openblas/OpenBLAS-0.3.18/lapack-netlib/TESTING/EIG/
H A Dschkhs.f411 $ WI1, WR2, WI2, WR3, WI3, EVECTL, EVECTR,
433 $ WR1( * ), WR2( * ), WR3( * ), Z( LDU, * )
769 CALL SHSEQR( 'E', 'N', N, ILO, IHI, T2, LDA, WR3, WI3, UZ,
1007 $ WR3, WI3, DUMMA, LDU, EVECTX, LDU, N1, IN,
1021 CALL SGET22( 'N', 'N', 'N', N, H, LDA, EVECTX, LDU, WR3,
1039 CALL SHSEIN( 'Left', 'Qr', 'Ninitv', SELECT, N, H, LDA, WR3,
1054 CALL SGET22( 'C', 'N', 'C', N, H, LDA, EVECTY, LDU, WR3,
1083 CALL SGET22( 'N', 'N', 'N', N, A, LDA, EVECTX, LDU, WR3,
1108 CALL SGET22( 'C', 'N', 'C', N, A, LDA, EVECTY, LDU, WR3,
H A Ddchkhs.f411 $ WI1, WR2, WI2, WR3, WI3, EVECTL, EVECTR,
433 $ WR1( * ), WR2( * ), WR3( * ), Z( LDU, * )
769 CALL DHSEQR( 'E', 'N', N, ILO, IHI, T2, LDA, WR3, WI3, UZ,
1007 $ WR3, WI3, DUMMA, LDU, EVECTX, LDU, N1, IN,
1021 CALL DGET22( 'N', 'N', 'N', N, H, LDA, EVECTX, LDU, WR3,
1039 CALL DHSEIN( 'Left', 'Qr', 'Ninitv', SELECT, N, H, LDA, WR3,
1054 CALL DGET22( 'C', 'N', 'C', N, H, LDA, EVECTY, LDU, WR3,
1083 CALL DGET22( 'N', 'N', 'N', N, A, LDA, EVECTX, LDU, WR3,
1108 CALL DGET22( 'C', 'N', 'C', N, A, LDA, EVECTY, LDU, WR3,
/dports/math/cblas/lapack-3.10.0/TESTING/EIG/
H A Ddchkhs.f409 $ WI1, WR2, WI2, WR3, WI3, EVECTL, EVECTR,
430 $ WR1( * ), WR2( * ), WR3( * ), Z( LDU, * )
766 CALL DHSEQR( 'E', 'N', N, ILO, IHI, T2, LDA, WR3, WI3, UZ,
1004 $ WR3, WI3, DUMMA, LDU, EVECTX, LDU, N1, IN,
1018 CALL DGET22( 'N', 'N', 'N', N, H, LDA, EVECTX, LDU, WR3,
1036 CALL DHSEIN( 'Left', 'Qr', 'Ninitv', SELECT, N, H, LDA, WR3,
1051 CALL DGET22( 'C', 'N', 'C', N, H, LDA, EVECTY, LDU, WR3,
1080 CALL DGET22( 'N', 'N', 'N', N, A, LDA, EVECTX, LDU, WR3,
1105 CALL DGET22( 'C', 'N', 'C', N, A, LDA, EVECTY, LDU, WR3,
H A Dschkhs.f409 $ WI1, WR2, WI2, WR3, WI3, EVECTL, EVECTR,
430 $ WR1( * ), WR2( * ), WR3( * ), Z( LDU, * )
766 CALL SHSEQR( 'E', 'N', N, ILO, IHI, T2, LDA, WR3, WI3, UZ,
1004 $ WR3, WI3, DUMMA, LDU, EVECTX, LDU, N1, IN,
1018 CALL SGET22( 'N', 'N', 'N', N, H, LDA, EVECTX, LDU, WR3,
1036 CALL SHSEIN( 'Left', 'Qr', 'Ninitv', SELECT, N, H, LDA, WR3,
1051 CALL SGET22( 'C', 'N', 'C', N, H, LDA, EVECTY, LDU, WR3,
1080 CALL SGET22( 'N', 'N', 'N', N, A, LDA, EVECTX, LDU, WR3,
1105 CALL SGET22( 'C', 'N', 'C', N, A, LDA, EVECTY, LDU, WR3,
/dports/math/p5-Math-MPFR/Math-MPFR-4.17/t/
H A DTRmpfr_out_str.t13 my($WR1, $WR2, $WR3, $WR4, $WR5, $WR6, $WR7, $WR8);
20 open($WR3, '>', 'out3.txt') or die "Can't open WR3: $!";
45 $ret = TRmpfr_out_str(\*$WR3, 10, 0, $mpfr, GMP_RNDN, $suffix);
75 close $WR3 or die "Can't close WR3: $!";

12345