/dports/graphics/dataplot/dataplot-2c1b27601a3b7523449de612613eadeead9a8f70/src/ |
H A D | dp35.F | 37 DIMENSION IY(300) 451 Y(J)=IY(I) 953 Y(J)=IY(I) 1456 Y(J)=IY(I) 1743 Y(J)=IY(I) 2226 Y(J)=IY(I) 2567 Y(J)=IY(I) 3037 Y(J)=IY(I) 3539 Y(J)=IY(I) 4028 Y(J)=IY(I) [all …]
|
H A D | dp34.F | 37 DIMENSION IY(300) 499 Y(J)=IY(I) 1037 Y(J)=IY(I) 1575 Y(J)=IY(I) 2124 Y(J)=IY(I) 2308 Y(J)=IY(I) 2757 Y(J)=IY(I) 3032 Y(J)=IY(I) 5154 IY = 1 5159 DY(IY) = C*DY(IY) - S*DX(IX) [all …]
|
H A D | dp33.F | 4268 Y(J)=IY(I) 4777 Y(J)=IY(I) 5165 Y(J)=IY(I) 5622 Y(J)=IY(I) 5879 Y(J)=IY(I) 6423 Y(J)=IY(I) 6954 Y(J)=IY(I) 7501 Y(J)=IY(I) 8063 Y(J)=IY(I) 8583 Y(J)=IY(I) [all …]
|
/dports/devel/z80ex/z80ex-1.1.21/opcodes/ |
H A D | opcodes_fdcb.c | 6 MEMPTR=(IY+temp_byte_s); in op_FDCB_0x00() 18 MEMPTR=(IY+temp_byte_s); in op_FDCB_0x01() 30 MEMPTR=(IY+temp_byte_s); in op_FDCB_0x02() 42 MEMPTR=(IY+temp_byte_s); in op_FDCB_0x03() 54 MEMPTR=(IY+temp_byte_s); in op_FDCB_0x04() 66 MEMPTR=(IY+temp_byte_s); in op_FDCB_0x05() 78 MEMPTR=(IY+temp_byte_s); in op_FDCB_0x06() 89 MEMPTR=(IY+temp_byte_s); in op_FDCB_0x07() 101 MEMPTR=(IY+temp_byte_s); in op_FDCB_0x08() 113 MEMPTR=(IY+temp_byte_s); in op_FDCB_0x09() [all …]
|
/dports/science/dcl/dcl-5.4.8/src/grph2/uipack/ |
H A D | uipda3.f | 122 CALL UIC3D(U(IX,IY), V(IX,IY), W(IX,IY),IMAGE(I)) 131 UU = U(IX, IY )*(1-FY) + U(IX ,IY+1)*FY 132 VV = V(IX, IY )*(1-FY) + V(IX ,IY+1)*FY 133 WW = W(IX, IY )*(1-FY) + W(IX ,IY+1)*FY 143 UU = U(IX, IY )*(1-FX) + U(IX+1,IY )*FX 174 + + U(IX+1,IY )*FX + U(IX, IY+1)*FY 177 + + V(IX+1,IY )*FX + V(IX, IY+1)*FY 180 + + W(IX+1,IY )*FX + W(IX, IY+1)*FY 208 + + U(IX+1,IY+1)*FX + U(IX, IY)*(1-FY) 211 + + V(IX+1,IY+1)*FX + V(IX, IY)*(1-FY) [all …]
|
H A D | uipda2.f | 121 CALL UIC2D(U(IX,IY), V(IX,IY),IMAGE(I)) 130 UU = U(IX, IY )*(1-FY) + U(IX ,IY+1)*FY 131 VV = V(IX, IY )*(1-FY) + V(IX ,IY+1)*FY 141 UU = U(IX, IY )*(1-FX) + U(IX+1,IY )*FX 142 VV = V(IX, IY )*(1-FX) + V(IX+1,IY )*FX 168 + + U(IX+1,IY )*FX + U(IX, IY+1)*FY 171 + + V(IX+1,IY )*FX + V(IX, IY+1)*FY 182 + + U(IX ,IY )*(1-FX) + U(IX+1, IY+1)*FY 185 + + V(IX ,IY )*(1-FX) + V(IX+1, IY+1)*FY 196 + + U(IX+1,IY+1)*FX + U(IX, IY)*(1-FY) [all …]
|
/dports/science/dcl/dcl-5.4.8/demo/math1/vialib/ |
H A D | vial01.f | 8 INTEGER IX(N),IY(N) 18 CALL VISET(IX,IY,10,1,1) 21 CALL VIINC(IY,IY,10,1,1,+1) 24 CALL VIFCT(IY,IY,10,1,1,-1) 27 CALL VIFNA(IY,IY,10,1,1,IFNA) 31 CALL VICON(IY,IY,10,1,1,0) 37 CALL VISET(IX,IY,10,1,1) 40 CALL VIINC(IY,IY,10,1,1,+1) 43 CALL VIFCT(IY,IY,10,1,1,-1) 46 CALL VIFNA(IY,IY,10,1,1,IFNA) [all …]
|
/dports/math/scalapack/scalapack-2.1.0/PBLAS/SRC/PBBLAS/ |
H A D | pbcvecadd.f | 107 IY = IY + INCY 122 IY = IY + INCY 142 IY = IY + INCY 157 IY = IY + INCY 172 IY = IY + INCY 189 IY = IY + INCY 206 IY = IY + INCY 221 IY = IY + INCY 240 IY = IY + INCY 255 IY = IY + INCY [all …]
|
H A D | pbzvecadd.f | 107 IY = IY + INCY 122 IY = IY + INCY 142 IY = IY + INCY 157 IY = IY + INCY 172 IY = IY + INCY 189 IY = IY + INCY 206 IY = IY + INCY 221 IY = IY + INCY 240 IY = IY + INCY 255 IY = IY + INCY [all …]
|
/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/SRC/ |
H A D | dla_syamv.f | 278 Y( IY ) = BETA * ABS( Y( IY ) ) 298 $ Y( IY ) = Y( IY ) + SIGN( SAFE1, Y( IY ) ) 300 IY = IY + INCY 311 Y( IY ) = BETA * ABS( Y( IY ) ) 331 $ Y( IY ) = Y( IY ) + SIGN( SAFE1, Y( IY ) ) 333 IY = IY + INCY 346 Y( IY ) = BETA * ABS( Y( IY ) ) 369 $ Y( IY ) = Y( IY ) + SIGN( SAFE1, Y( IY ) ) 371 IY = IY + INCY 405 $ Y( IY ) = Y( IY ) + SIGN( SAFE1, Y( IY ) ) [all …]
|
H A D | sla_syamv.f | 278 Y( IY ) = BETA * ABS( Y( IY ) ) 298 $ Y( IY ) = Y( IY ) + SIGN( SAFE1, Y( IY ) ) 300 IY = IY + INCY 311 Y( IY ) = BETA * ABS( Y( IY ) ) 331 $ Y( IY ) = Y( IY ) + SIGN( SAFE1, Y( IY ) ) 333 IY = IY + INCY 346 Y( IY ) = BETA * ABS( Y( IY ) ) 369 $ Y( IY ) = Y( IY ) + SIGN( SAFE1, Y( IY ) ) 371 IY = IY + INCY 405 $ Y( IY ) = Y( IY ) + SIGN( SAFE1, Y( IY ) ) [all …]
|
H A D | cla_heamv.f | 287 Y( IY ) = BETA * ABS( Y( IY ) ) 307 $ Y( IY ) = Y( IY ) + SIGN( SAFE1, Y( IY ) ) 309 IY = IY + INCY 320 Y( IY ) = BETA * ABS( Y( IY ) ) 340 $ Y( IY ) = Y( IY ) + SIGN( SAFE1, Y( IY ) ) 342 IY = IY + INCY 355 Y( IY ) = BETA * ABS( Y( IY ) ) 378 $ Y( IY ) = Y( IY ) + SIGN( SAFE1, Y( IY ) ) 380 IY = IY + INCY 414 $ Y( IY ) = Y( IY ) + SIGN( SAFE1, Y( IY ) ) [all …]
|
H A D | zla_heamv.f | 287 Y( IY ) = BETA * ABS( Y( IY ) ) 307 $ Y( IY ) = Y( IY ) + SIGN( SAFE1, Y( IY ) ) 309 IY = IY + INCY 320 Y( IY ) = BETA * ABS( Y( IY ) ) 340 $ Y( IY ) = Y( IY ) + SIGN( SAFE1, Y( IY ) ) 342 IY = IY + INCY 355 Y( IY ) = BETA * ABS( Y( IY ) ) 378 $ Y( IY ) = Y( IY ) + SIGN( SAFE1, Y( IY ) ) 380 IY = IY + INCY 414 $ Y( IY ) = Y( IY ) + SIGN( SAFE1, Y( IY ) ) [all …]
|
/dports/math/xlapack/lapack-3.10.0/SRC/ |
H A D | dla_syamv.f | 275 Y( IY ) = BETA * ABS( Y( IY ) ) 295 $ Y( IY ) = Y( IY ) + SIGN( SAFE1, Y( IY ) ) 297 IY = IY + INCY 308 Y( IY ) = BETA * ABS( Y( IY ) ) 328 $ Y( IY ) = Y( IY ) + SIGN( SAFE1, Y( IY ) ) 330 IY = IY + INCY 343 Y( IY ) = BETA * ABS( Y( IY ) ) 366 $ Y( IY ) = Y( IY ) + SIGN( SAFE1, Y( IY ) ) 368 IY = IY + INCY 402 $ Y( IY ) = Y( IY ) + SIGN( SAFE1, Y( IY ) ) [all …]
|
H A D | sla_syamv.f | 275 Y( IY ) = BETA * ABS( Y( IY ) ) 295 $ Y( IY ) = Y( IY ) + SIGN( SAFE1, Y( IY ) ) 297 IY = IY + INCY 308 Y( IY ) = BETA * ABS( Y( IY ) ) 328 $ Y( IY ) = Y( IY ) + SIGN( SAFE1, Y( IY ) ) 330 IY = IY + INCY 343 Y( IY ) = BETA * ABS( Y( IY ) ) 366 $ Y( IY ) = Y( IY ) + SIGN( SAFE1, Y( IY ) ) 368 IY = IY + INCY 402 $ Y( IY ) = Y( IY ) + SIGN( SAFE1, Y( IY ) ) [all …]
|
/dports/math/blas/lapack-3.10.0/SRC/ |
H A D | dla_syamv.f | 275 Y( IY ) = BETA * ABS( Y( IY ) ) 295 $ Y( IY ) = Y( IY ) + SIGN( SAFE1, Y( IY ) ) 297 IY = IY + INCY 308 Y( IY ) = BETA * ABS( Y( IY ) ) 328 $ Y( IY ) = Y( IY ) + SIGN( SAFE1, Y( IY ) ) 330 IY = IY + INCY 343 Y( IY ) = BETA * ABS( Y( IY ) ) 366 $ Y( IY ) = Y( IY ) + SIGN( SAFE1, Y( IY ) ) 368 IY = IY + INCY 402 $ Y( IY ) = Y( IY ) + SIGN( SAFE1, Y( IY ) ) [all …]
|
H A D | sla_syamv.f | 275 Y( IY ) = BETA * ABS( Y( IY ) ) 295 $ Y( IY ) = Y( IY ) + SIGN( SAFE1, Y( IY ) ) 297 IY = IY + INCY 308 Y( IY ) = BETA * ABS( Y( IY ) ) 328 $ Y( IY ) = Y( IY ) + SIGN( SAFE1, Y( IY ) ) 330 IY = IY + INCY 343 Y( IY ) = BETA * ABS( Y( IY ) ) 366 $ Y( IY ) = Y( IY ) + SIGN( SAFE1, Y( IY ) ) 368 IY = IY + INCY 402 $ Y( IY ) = Y( IY ) + SIGN( SAFE1, Y( IY ) ) [all …]
|
/dports/math/lapacke/lapack-3.10.0/SRC/ |
H A D | dla_syamv.f | 275 Y( IY ) = BETA * ABS( Y( IY ) ) 295 $ Y( IY ) = Y( IY ) + SIGN( SAFE1, Y( IY ) ) 297 IY = IY + INCY 308 Y( IY ) = BETA * ABS( Y( IY ) ) 328 $ Y( IY ) = Y( IY ) + SIGN( SAFE1, Y( IY ) ) 330 IY = IY + INCY 343 Y( IY ) = BETA * ABS( Y( IY ) ) 366 $ Y( IY ) = Y( IY ) + SIGN( SAFE1, Y( IY ) ) 368 IY = IY + INCY 402 $ Y( IY ) = Y( IY ) + SIGN( SAFE1, Y( IY ) ) [all …]
|
H A D | sla_syamv.f | 275 Y( IY ) = BETA * ABS( Y( IY ) ) 295 $ Y( IY ) = Y( IY ) + SIGN( SAFE1, Y( IY ) ) 297 IY = IY + INCY 308 Y( IY ) = BETA * ABS( Y( IY ) ) 328 $ Y( IY ) = Y( IY ) + SIGN( SAFE1, Y( IY ) ) 330 IY = IY + INCY 343 Y( IY ) = BETA * ABS( Y( IY ) ) 366 $ Y( IY ) = Y( IY ) + SIGN( SAFE1, Y( IY ) ) 368 IY = IY + INCY 402 $ Y( IY ) = Y( IY ) + SIGN( SAFE1, Y( IY ) ) [all …]
|
/dports/math/lapack/lapack-3.10.0/SRC/ |
H A D | dla_syamv.f | 275 Y( IY ) = BETA * ABS( Y( IY ) ) 295 $ Y( IY ) = Y( IY ) + SIGN( SAFE1, Y( IY ) ) 297 IY = IY + INCY 308 Y( IY ) = BETA * ABS( Y( IY ) ) 328 $ Y( IY ) = Y( IY ) + SIGN( SAFE1, Y( IY ) ) 330 IY = IY + INCY 343 Y( IY ) = BETA * ABS( Y( IY ) ) 366 $ Y( IY ) = Y( IY ) + SIGN( SAFE1, Y( IY ) ) 368 IY = IY + INCY 402 $ Y( IY ) = Y( IY ) + SIGN( SAFE1, Y( IY ) ) [all …]
|
H A D | sla_syamv.f | 275 Y( IY ) = BETA * ABS( Y( IY ) ) 295 $ Y( IY ) = Y( IY ) + SIGN( SAFE1, Y( IY ) ) 297 IY = IY + INCY 308 Y( IY ) = BETA * ABS( Y( IY ) ) 328 $ Y( IY ) = Y( IY ) + SIGN( SAFE1, Y( IY ) ) 330 IY = IY + INCY 343 Y( IY ) = BETA * ABS( Y( IY ) ) 366 $ Y( IY ) = Y( IY ) + SIGN( SAFE1, Y( IY ) ) 368 IY = IY + INCY 402 $ Y( IY ) = Y( IY ) + SIGN( SAFE1, Y( IY ) ) [all …]
|
/dports/math/openblas/OpenBLAS-0.3.18/lapack-netlib/SRC/ |
H A D | dla_syamv.f | 278 Y( IY ) = BETA * ABS( Y( IY ) ) 298 $ Y( IY ) = Y( IY ) + SIGN( SAFE1, Y( IY ) ) 300 IY = IY + INCY 311 Y( IY ) = BETA * ABS( Y( IY ) ) 331 $ Y( IY ) = Y( IY ) + SIGN( SAFE1, Y( IY ) ) 333 IY = IY + INCY 346 Y( IY ) = BETA * ABS( Y( IY ) ) 369 $ Y( IY ) = Y( IY ) + SIGN( SAFE1, Y( IY ) ) 371 IY = IY + INCY 405 $ Y( IY ) = Y( IY ) + SIGN( SAFE1, Y( IY ) ) [all …]
|
H A D | sla_syamv.f | 278 Y( IY ) = BETA * ABS( Y( IY ) ) 298 $ Y( IY ) = Y( IY ) + SIGN( SAFE1, Y( IY ) ) 300 IY = IY + INCY 311 Y( IY ) = BETA * ABS( Y( IY ) ) 331 $ Y( IY ) = Y( IY ) + SIGN( SAFE1, Y( IY ) ) 333 IY = IY + INCY 346 Y( IY ) = BETA * ABS( Y( IY ) ) 369 $ Y( IY ) = Y( IY ) + SIGN( SAFE1, Y( IY ) ) 371 IY = IY + INCY 405 $ Y( IY ) = Y( IY ) + SIGN( SAFE1, Y( IY ) ) [all …]
|
/dports/math/cblas/lapack-3.10.0/SRC/ |
H A D | dla_syamv.f | 275 Y( IY ) = BETA * ABS( Y( IY ) ) 295 $ Y( IY ) = Y( IY ) + SIGN( SAFE1, Y( IY ) ) 297 IY = IY + INCY 308 Y( IY ) = BETA * ABS( Y( IY ) ) 328 $ Y( IY ) = Y( IY ) + SIGN( SAFE1, Y( IY ) ) 330 IY = IY + INCY 343 Y( IY ) = BETA * ABS( Y( IY ) ) 366 $ Y( IY ) = Y( IY ) + SIGN( SAFE1, Y( IY ) ) 368 IY = IY + INCY 402 $ Y( IY ) = Y( IY ) + SIGN( SAFE1, Y( IY ) ) [all …]
|
H A D | sla_syamv.f | 275 Y( IY ) = BETA * ABS( Y( IY ) ) 295 $ Y( IY ) = Y( IY ) + SIGN( SAFE1, Y( IY ) ) 297 IY = IY + INCY 308 Y( IY ) = BETA * ABS( Y( IY ) ) 328 $ Y( IY ) = Y( IY ) + SIGN( SAFE1, Y( IY ) ) 330 IY = IY + INCY 343 Y( IY ) = BETA * ABS( Y( IY ) ) 366 $ Y( IY ) = Y( IY ) + SIGN( SAFE1, Y( IY ) ) 368 IY = IY + INCY 402 $ Y( IY ) = Y( IY ) + SIGN( SAFE1, Y( IY ) ) [all …]
|