| /dports/graphics/dataplot/dataplot-2c1b27601a3b7523449de612613eadeead9a8f70/src/ |
| H A D | dp35.F | 36 DIMENSION IX(300)
450 X(J)=IX(I)
952 X(J)=IX(I)
1455 X(J)=IX(I)
1742 X(J)=IX(I)
2225 X(J)=IX(I)
2566 X(J)=IX(I)
3036 X(J)=IX(I)
3538 X(J)=IX(I)
4027 X(J)=IX(I)
[all …]
|
| H A D | dp34.F | 36 DIMENSION IX(300)
498 X(J)=IX(I)
1036 X(J)=IX(I)
1574 X(J)=IX(I)
2123 X(J)=IX(I)
2307 X(J)=IX(I)
2756 X(J)=IX(I)
3031 X(J)=IX(I)
3536 X(J)=IX(I)
5153 IX = 1
[all …]
|
| H A D | dp33.F | 4267 X(J)=IX(I)
4776 X(J)=IX(I)
5164 X(J)=IX(I)
5621 X(J)=IX(I)
5878 X(J)=IX(I)
6422 X(J)=IX(I)
6953 X(J)=IX(I)
7500 X(J)=IX(I)
8062 X(J)=IX(I)
8582 X(J)=IX(I)
[all …]
|
| H A D | dp7.F | 36 DIMENSION IX(300)
57 DATA IOPERA( 1),IX( 1),IY( 1)/'MOVE', 9, 16/
58 DATA IOPERA( 2),IX( 2),IY( 2)/'DRAW', -9, -16/
68 DATA IOPERA( 3),IX( 3),IY( 3)/'MOVE', 4, 16/
683 X(J)=IX(I)
790 DIMENSION IX(300)
1306 X(J)=IX(I)
1413 DIMENSION IX(300)
1849 X(J)=IX(I)
1958 DIMENSION IX(300)
[all …]
|
| H A D | dp6.F | 392 IX = 1
398 IX = IX + INCX
5137 IX = 1
5143 IX = IX + INCX
5447 IX = 1
5453 IX = IX + INCX
5578 IVAL=IX/16
17318 IX = IX + INCX
17489 IX = IX + INCX
19470 IF(IX.LT.0.OR.IX.GT.N)GOTO50
[all …]
|
| /dports/devel/z80ex/z80ex-1.1.21/opcodes/ |
| H A D | opcodes_ddcb.c | 6 MEMPTR=(IX+temp_byte_s); in op_DDCB_0x00()
18 MEMPTR=(IX+temp_byte_s); in op_DDCB_0x01()
30 MEMPTR=(IX+temp_byte_s); in op_DDCB_0x02()
42 MEMPTR=(IX+temp_byte_s); in op_DDCB_0x03()
54 MEMPTR=(IX+temp_byte_s); in op_DDCB_0x04()
66 MEMPTR=(IX+temp_byte_s); in op_DDCB_0x05()
78 MEMPTR=(IX+temp_byte_s); in op_DDCB_0x06()
89 MEMPTR=(IX+temp_byte_s); in op_DDCB_0x07()
101 MEMPTR=(IX+temp_byte_s); in op_DDCB_0x08()
113 MEMPTR=(IX+temp_byte_s); in op_DDCB_0x09()
[all …]
|
| /dports/graphics/xd3d/xd3d-8.3.1/src/X/ |
| H A D | gsmark.f | 45 1 call x11linsrn(IX(1)-i2box,IX(2),IX(1)+i2box,IX(2))
46 call x11linsrn(IX(1),IX(2)+j2box,IX(1),IX(2)-j2box)
50 2 call x11linsrn(IX(1)-i2box,IX(2)-j2box,IX(1)+i2box,IX(2)+j2box)
51 call x11linsrn(IX(1)+i2box,IX(2)-j2box,IX(1)-i2box,IX(2)+j2box)
55 3 call x11linsrn(IX(1)-i2box,IX(2),IX(1)+i2box,IX(2))
56 call x11linsrn(IX(1),IX(2)+j2box,IX(1),IX(2)-j2box)
59 call x11linsrn(IX(1)-i2boxbis,IX(2)-j2boxbis
60 & ,IX(1)+i2boxbis,IX(2)+j2boxbis)
61 call x11linsrn(IX(1)+i2boxbis,IX(2)-j2boxbis
62 & ,IX(1)-i2boxbis,IX(2)+j2boxbis)
[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 …]
|
| H A D | uipdaz.f | 104 DX = (RUWGX(IX+1) - RUWGX(IX))
111 ZX = (Z(IX+1, IY) - Z(IX, IY)) / DX
112 ZY = (Z(IX, IY+1) - Z(IX, IY)) / DY
188 ZZ = Z(IX, IY )*(1-FY) + Z(IX ,IY+1)*FY
197 ZZ = Z(IX, IY )*(1-FX) + Z(IX+1,IY )*FX
223 + + Z(IX+1,IY )*FX + Z(IX, IY+1)*FY
226 ZX = (Z(IX+1, IY ) - Z(IX, IY ))/DX
227 ZY = (Z(IX, IY+1) - Z(IX, IY ))/DY
241 ZX = (Z(IX+1, IY ) - Z(IX, IY ))/DX
242 ZY = (Z(IX+1, IY+1) - Z(IX+1, IY ))/DY
[all …]
|
| /dports/math/slatec/src/ |
| H A D | isort.f | 83 IX(I) = -IX(I)
113 IX(IJ) = IX(I)
122 IX(IJ) = IX(J)
129 IX(IJ) = IX(I)
151 IX(L) = IX(K)
188 90 IX(K+1) = IX(K)
219 IX(IJ) = IX(I)
231 IX(IJ) = IX(J)
241 IX(IJ) = IX(I)
266 IX(L) = IX(K)
[all …]
|
| H A D | dpchng.f | 71 20002 LMX = IX(1)
80 IF (.NOT.(IX(2).LT.-IRCX .OR. IX(3).LT.ABS(II))) GO TO 20008
90 20005 IF (.NOT.(IX(3).LT.IRCX .OR. IX(2).LT.ABS(II))) GO TO 20011
108 20015 LL=IX(3)+4
171 20034 IEND = IX(LL)
191 IX(K-JJ) = IX(K-JJ-1)
196 IX(IPL) = I
230 IX(IPL) = I
237 IX(IL) = I
249 IX(JJ) = IX(JJ) + 1
[all …]
|
| H A D | pchngs.f | 71 20002 LMX = IX(1)
80 IF (.NOT.(IX(2).LT.-IRCX .OR. IX(3).LT.ABS(II))) GO TO 20008
90 20005 IF (.NOT.(IX(3).LT.IRCX .OR. IX(2).LT.ABS(II))) GO TO 20011
108 20015 LL=IX(3)+4
171 20034 IEND = IX(LL)
191 IX(K-JJ) = IX(K-JJ-1)
196 IX(IPL) = I
230 IX(IPL) = I
237 IX(IL) = I
249 IX(JJ) = IX(JJ) + 1
[all …]
|
| /dports/science/dcl/dcl-5.4.8/src/grph2/uzpack/ |
| H A D | uziqnp.f | 13 INTEGER IX(NPARA) local
25 DATA CPARAS( 1) / 'IROTLXB ' /, IX( 1) / 0 /
26 DATA CPARAS( 2) / 'IROTLXT ' /, IX( 2) / 0 /
138 CALL RTIGET('UZ', CPARAS, IX, NPARA)
139 CALL RLIGET(CPARAL, IX, NPARA)
144 IPARA = IX(IDX)
154 CALL RTIGET('UZ', CPARAS, IX, NPARA)
155 CALL RLIGET(CPARAL, IX, NPARA)
160 IX(IDX) = IPARA
182 WRITE(UNIT=IU,IOSTAT=IOS) IX
[all …]
|
| /dports/science/siesta/siesta-4.1.5/Src/ |
| H A D | mneighb.f | 603 I1NX(IX) = - NNX(IX)
604 I2NX(IX) = + NNX(IX)
606 I2MX(IX) = NMX(IX) - 1
607 I1EMX(IX) = - NNX(IX)
608 I2EMX(IX) = NMX(IX) + NNX(IX) - 1
609 NEMX(IX) = NMX(IX) + 2 * NNX(IX)
741 DMX(IX) = DMX(IX) - IMX(IX)
742 IMX(IX) = MOD( IMX(IX) + 1000 * NMX(IX), NMX(IX) )
782 DMX(IX) = DMX(IX) - IMX(IX)
783 IMX(IX) = MOD( IMX(IX) + 1000 * NMX(IX), NMX(IX) )
[all …]
|
| H A D | bsc_cellxc.F | 488 DXDM(IX,IC) = DXDM(IX,IC) +
538 GD(IX,IS) = GD(IX,IS) +
553 GD(IX,IS) = GD(IX,IS) +
569 GD(IX,IS) = GD(IX,IS) +
584 GD(IX,IS) = GD(IX,IS) +
665 & (DEXDGD(IX,IS)+DECDGD(IX,IS))*DGIDFJ(IX,IC,IN)
681 & (DEXDGD(IX,IS)+DECDGD(IX,IS))*DGIDFJ(IX,1,IN)
715 & (DEXDGD(IX,IS)+DECDGD(IX,IS))*DGIDFJ(IX,2,IN)
750 & (DEXDGD(IX,IS)+DECDGD(IX,IS))*DGIDFJ(IX,3,IN)
799 stress(IX,JX) = stress(IX,JX) - DVol * GD(IX,IS) *
[all …]
|
| /dports/science/siesta/siesta-4.1.5/Util/Denchar/Src/ |
| H A D | ranger.f | 522 I1NX(IX) = - NNX(IX)
523 I2NX(IX) = + NNX(IX)
525 I2MX(IX) = NMX(IX) - 1
526 I1EMX(IX) = - NNX(IX)
527 I2EMX(IX) = NMX(IX) + NNX(IX) - 1
528 NEMX(IX) = NMX(IX) + 2 * NNX(IX)
667 DMX(IX) = DMX(IX) - IMX(IX)
668 IMX(IX) = MOD( IMX(IX) + 1000 * NMX(IX), NMX(IX) )
708 DMX(IX) = DMX(IX) - IMX(IX)
709 IMX(IX) = MOD( IMX(IX) + 1000 * NMX(IX), NMX(IX) )
[all …]
|
| /dports/science/siesta/siesta-4.1.5/Util/STM/ol-stm/Src/ |
| H A D | ranger.f | 522 I1NX(IX) = - NNX(IX)
523 I2NX(IX) = + NNX(IX)
525 I2MX(IX) = NMX(IX) - 1
526 I1EMX(IX) = - NNX(IX)
527 I2EMX(IX) = NMX(IX) + NNX(IX) - 1
528 NEMX(IX) = NMX(IX) + 2 * NNX(IX)
667 DMX(IX) = DMX(IX) - IMX(IX)
668 IMX(IX) = MOD( IMX(IX) + 1000 * NMX(IX), NMX(IX) )
708 DMX(IX) = DMX(IX) - IMX(IX)
709 IMX(IX) = MOD( IMX(IX) + 1000 * NMX(IX), NMX(IX) )
[all …]
|
| /dports/math/scalapack/scalapack-2.1.0/PBLAS/SRC/PBBLAS/ |
| H A D | pbcvecadd.f | 141 IX = IX + INCX
156 IX = IX + INCX
171 IX = IX + INCX
188 IX = IX + INCX
205 IX = IX + INCX
220 IX = IX + INCX
239 IX = IX + INCX
254 IX = IX + INCX
269 IX = IX + INCX
286 IX = IX + INCX
[all …]
|
| H A D | pbzvecadd.f | 141 IX = IX + INCX
156 IX = IX + INCX
171 IX = IX + INCX
188 IX = IX + INCX
205 IX = IX + INCX
220 IX = IX + INCX
239 IX = IX + INCX
254 IX = IX + INCX
269 IX = IX + INCX
286 IX = IX + INCX
[all …]
|
| /dports/science/dcl/dcl-5.4.8/src/grph1/sgpack/ |
| H A D | sgiqnp.f | 12 INTEGER IX(NPARA) local
24 DATA CPARAS( 1)/'IRMODE '/, IX( 1) / 0 /
25 DATA CPARAS( 2)/'MOVE '/, IX( 2) / 1 /
30 DATA CPARAS( 7)/'NPMSKIP '/, IX( 7) / 1 /
31 DATA CPARAS( 8)/'IFONT '/, IX( 8) / 1 /
117 CALL RTIGET('SG', CPARAS, IX, NPARA)
118 CALL RLIGET(CPARAL, IX, NPARA)
123 IPARA = IX(IDX)
133 CALL RTIGET('SG', CPARAS, IX, NPARA)
134 CALL RLIGET(CPARAL, IX, NPARA)
[all …]
|
| /dports/emulators/z80pack/z80pack-1.37/z80sim/ |
| H A D | float.asm | 321 CP (IX+1)
323 CP (IX+0)
336 RL (IX+2)
400 POP IX
421 PUSH IX
426 POP IX ; IX zeigt auf Operand 1
449 PUSH IX
454 EX (SP),IX ; IX zeigt auf Operand 1
622 POP IX
663 PUSH IX
[all …]
|
| /dports/math/cmlib/cmlib-3.0_8/src/splp/ |
| H A D | pchngs.f | 54 20002 LMX = IX(1)
63 IF (.NOT.(IX(2).LT.-IRCX .OR. IX(3).LT.IABS(II))) GO TO 20008
72 20005 IF (.NOT.(IX(3).LT.IRCX .OR. IX(2).LT.IABS(II))) GO TO 20011
89 20015 LL=IX(3)+4
152 20034 IEND = IX(LL)
172 IX(K-JJ) = IX(K-JJ-1)
177 IX(IPL) = I
211 IX(IPL) = I
218 IX(IL) = I
230 IX(JJ) = IX(JJ) + 1
[all …]
|
| /dports/emulators/z80pack/z80pack-1.37/z80core/ |
| H A D | sim3.c | 912 IX = (IX & 0xff00) | A; in op_undoc_ldixla()
923 IX = (IX & 0x00ff) | (A << 8); in op_undoc_ldixha()
934 IX = (IX & 0xff00) | B; in op_undoc_ldixlb()
945 IX = (IX & 0x00ff) | (B << 8); in op_undoc_ldixhb()
956 IX = (IX & 0xff00) | C; in op_undoc_ldixlc()
978 IX = (IX & 0xff00) | D; in op_undoc_ldixld()
1000 IX = (IX & 0xff00) | E; in op_undoc_ldixle()
1022 IX = (IX & 0xff00) | (IX >> 8); in op_undoc_ldixlixh()
1053 IX = (IX & 0x00ff) | (IX << 8); in op_undoc_ldixhixl()
1261 IX = (IX & 0xff00) | P; in op_undoc_incixl()
[all …]
|
| /dports/biology/mopac/mopac7-1.15/fortran/ |
| H A D | diegrd.f | 19 10 COSURF(IX,I)=COSURF(IX,I)*RI+COORD(IX,J)
43 80 XK(IX)=COSURF(IX,K)
50 XXX=COSURF(IX,L)-XK(IX)
59 DXYZ(IX,IAK)=DXYZ(IX,IAK)-XL(IX)*FF
60 DXYZ(IX,IAL)=DXYZ(IX,IAL)+XL(IX)*FF
67 130 XK(IX)=COSURF(IX,K)
76 XXX=XK(IX)-COORD(IX,I)
113 DX=(XX(IX)*DB(0,J)-DB(IX,J))*FF
114 DXYZ(IX,IAK)=DXYZ(IX,IAK)+DX
115 DXYZ(IX,I)=DXYZ(IX,I)-DX
[all …]
|