/dports/math/math77/MATH77/ |
H A D | dfft.f | 57 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 D | sfft.f | 57 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 D | schkhs.f | 404 $ 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 D | dchkhs.f | 404 $ 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 D | dchkhs.f | 404 $ 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 D | schkhs.f | 404 $ 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 D | schkhs.f | 404 $ 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 D | dchkhs.f | 404 $ 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 D | z80dma.cpp | 82 #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 D | z80dma.cpp | 82 #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 D | dchkhs.f | 411 $ 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 D | schkhs.f | 411 $ 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 D | dchkhs.f | 409 $ 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 D | schkhs.f | 409 $ 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 D | dchkhs.f | 409 $ 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 D | schkhs.f | 409 $ 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 D | dchkhs.f | 409 $ 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 D | schkhs.f | 409 $ 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 D | dchkhs.f | 409 $ 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 D | schkhs.f | 409 $ 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 D | schkhs.f | 411 $ 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 D | dchkhs.f | 411 $ 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 D | dchkhs.f | 409 $ 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 D | schkhs.f | 409 $ 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 D | TRmpfr_out_str.t | 13 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: $!";
|