| /openbsd/src/gnu/usr.bin/gcc/gcc/testsuite/g77.f-torture/execute/ |
| D | intrinsic-unix-bessel.f | 9 double precision dx, da
19 dx = x
28 call c_d(BESJ0(dx),da,'BESJ0(double)')
29 call c_d(DBESJ0(dx),da,'DBESJ0(double)')
35 call c_d(BESJ1(dx),da,'BESJ1(double)')
36 call c_d(DBESJ1(dx),da,'DBESJ1(double)')
44 call c_d(BESJN(i,dx),da,'BESJN(integer,double)')
45 call c_d(BESJN(j,dx),da,'BESJN(integer*2,double)')
46 call c_d(BESJN(k,dx),da,'BESJN(integer*1,double)')
47 call c_d(DBESJN(i,dx),da,'DBESJN(integer,double)')
[all …]
|
| D | dnrm2.f | 25 double precision function dnrm2 ( n, dx, incx)
27 double precision dx(1), cutlo, cuthi, hitest, sum, xmax,zero,one local
39 30 if( dabs(dx(i)) .gt. cutlo) go to 85
42 50 if( dx(i) .eq. zero) go to 200
43 if( dabs(dx(i)) .gt. cutlo) go to 85
49 sum = (sum / dx(i)) / dx(i)
50 105 xmax = dabs(dx(i))
52 70 if( dabs(dx(i)) .gt. cutlo ) go to 75
53 110 if( dabs(dx(i)) .le. xmax ) go to 115
54 sum = one + sum * (xmax / dx(i))**2
[all …]
|
| D | intrinsic-unix-erf.f | 9 double precision dx, da
15 dx = x
20 call c_d(ERF(dx),da,'ERF(double)')
21 call c_d(DERF(dx),da,'DERF(double)')
27 call c_d(ERFC(dx),da,'ERFC(double)')
28 call c_d(DERFC(dx),da,'DERFC(double)')
|
| /openbsd/src/gnu/gcc/libgomp/testsuite/libgomp.fortran/ |
| D | jacobi.f | 87 double precision u(n,m),f(n,m),dx,dy
91 call initialize (n,m,alpha,dx,dy,u,f)
95 call jacobi (n,m,dx,dy,alpha,relax,u,f,tol,mits)
99 call error_check (n,m,alpha,dx,dy,u,f)
104 subroutine initialize (n,m,alpha,dx,dy,u,f) argument
113 double precision u(n,m),f(n,m),dx,dy,alpha
119 dx = 2.0 / (n-1)
127 xx = -1.0 + dx * dble(i-1) ! -1 < x < 1
139 subroutine jacobi (n,m,dx,dy,alpha,omega,u,f,tol,maxit) argument
161 double precision dx,dy,f(n,m),u(n,m),alpha, tol,omega
[all …]
|
| /openbsd/src/sys/arch/luna88k/dev/ |
| D | omrasops1.c | 103 u_int16_t dx, u_int16_t dy, u_int16_t cx, u_int16_t cy, int16_t rop, in om1_windowmove() argument
141 pdstLine += (dx >> 5); in om1_windowmove()
147 dstBit = dx & 0x1f; in om1_windowmove()
155 maskbits(dx, cx, startmask, endmask, nlMiddle); in om1_windowmove()
157 nstart = 32 - (dx & 0x1f); in om1_windowmove()
161 nend = (dx + cx) & 0x1f; in om1_windowmove()
168 if (sx >= dx) { /* move left to right */ in om1_windowmove()
169 pdstLine += (dx >> 5); in om1_windowmove()
178 (dx & 0x1f), nstart, P0(pdst), rop); in om1_windowmove()
217 pdstLine += ((dx + cx) >> 5); in om1_windowmove()
[all …]
|
| /openbsd/src/gnu/usr.bin/gcc/gcc/testsuite/gcc.c-torture/execute/ |
| D | 20020615-1.c | 19 long dx = p1->x - p0->x; in line_hints() local
25 dx = -dx; in line_hints()
29 long t = dx; in line_hints()
31 dx = dy, xi = yi; in line_hints()
34 adx = dx < 0 ? -dx : dx; in line_hints()
40 } else if (dx != 0 && (ady <= adx >> 4)) { in line_hints()
41 hints = dx < 0 ? 8 : 4; in line_hints()
|
| /openbsd/src/games/hack/ |
| D | hack.zap.c | 214 (void) bhit(u.dx,u.dy,rn1(8,6),0,bhitm,bhito,obj); in dozap()
279 zx = u.ux+u.dx; in dozap()
307 zx += u.dx; in dozap()
316 u.ux, u.uy, u.dx, u.dy); in dozap()
413 boomhit(int dx, int dy) in boomhit() argument
423 for(i=0; i<8; i++) if(xdir[i] == dx && ydir[i] == dy) break; in boomhit()
429 dx = xdir[i]; in boomhit()
431 bhitpos.x += dx; in boomhit()
438 bhitpos.x -= dx; in boomhit()
460 dirlet(int dx, int dy) in dirlet() argument
[all …]
|
| D | hack.c | 164 u.dx = u.dy = 0; in domove()
171 } while(!isok(u.ux+u.dx, u.uy+u.dy) || in domove()
172 IS_ROCK(levl[u.ux+u.dx][u.uy+u.dy].typ)); in domove()
174 if(!isok(u.ux+u.dx, u.uy+u.dy)){ in domove()
183 if(!u.uswallow && (trap = t_at(u.ux+u.dx, u.uy+u.dy)) && trap->tseen) in domove()
185 if(u.ustuck && !u.uswallow && (u.ux+u.dx != u.ustuck->mx || in domove()
198 if(u.uswallow || (mtmp = m_at(u.ux+u.dx,u.uy+u.dy))) { in domove()
216 if((u.dx && u.dy) || !rn2(5)) u.utrap--; in domove()
220 tmpr = &levl[u.ux+u.dx][u.uy+u.dy]; in domove()
222 (u.dx && u.dy && (tmpr->typ == DOOR || ust->typ == DOOR))){ in domove()
[all …]
|
| D | hack.mklev.c | 212 int lx, ly, hx, hy, lowx, lowy, hix, hiy, dx, dy; in makerooms() local
242 dx = dy = 1; in makerooms()
244 dx = 2 + rn2((hx-lx-8 > 20) ? 12 : 8); in makerooms()
246 if(dx*dy > 50) in makerooms()
247 dy = 50/dx; in makerooms()
251 if(hx-lx < dx + dx/2 + 2*xlim || hy-ly < dy + dy/3 + 2*ylim) { in makerooms()
265 lowx = lx + xlim + rn2(hx - lx - dx - 2*xlim + 1); in makerooms()
267 hix = lowx + dx; in makerooms()
270 if(maker(lowx, dx, lowy, dy)) { in makerooms()
542 int dx, dy, dix, diy, cct; in join() local
[all …]
|
| /openbsd/src/games/trek/ |
| D | move.c | 74 double x, y, dx, dy; in move() local
93 dx = -cos(angle); in move()
95 bigger = fabs(dx); in move()
99 dx /= bigger; in move()
129 printf("dx = %.2f, dy = %.2f, xn = %.2f, n = %d\n", dx, dy, xn, n); in move()
135 ix = (x += dx); in move()
144 dx = Ship.quadx * NSECTS + Ship.sectx + dx * xn; in move()
146 if (dx < 0.0) in move()
149 ix = dx + 0.5; in move()
184 ix = x - dx; in move()
[all …]
|
| D | help.c | 66 int dx = 0, dy = 0; in help() local
99 dx = Now.base[i].x - Ship.quadx; in help()
101 x = dx * dx + dy * dy; in help()
139 dx = Etc.starbase.x + ranf(3) - 1; in help()
140 if (dx < 0 || dx >= NSECTS) in help()
143 if (dy < 0 || dy >= NSECTS || Sect[dx][dy] != EMPTY) in help()
151 Ship.sectx = dx; in help()
153 Sect[dx][dy] = Ship.ship; in help()
|
| D | snova.c | 65 int dx, dy; in snova() local
110 dx = ix - Ship.sectx; in snova()
112 if (dx * dx + dy * dy <= 2) in snova()
132 dx = q->klings; in snova()
134 Now.klings -= dx; in snova()
141 Game.killk += dx; in snova()
|
| D | klmove.c | 65 double dx, dy; in klmove() local
90 dx = Ship.sectx - k->x + ranf(3) - 1; in klmove()
92 bigger = dx; in klmove()
97 dx = dx / bigger + 0.5; in klmove()
102 dx = -dx; in klmove()
111 lookx = nextx + dx; in klmove()
154 lookx = nextx + dx; in klmove()
|
| /openbsd/src/sys/dev/wscons/ |
| D | wstpad.c | 284 direction(int dx, int dy, int ratio) in direction() argument
288 if (dx || dy) { in direction()
290 if (abs(dx) * TAN_DEG_60 < rdy) in direction()
292 else if (abs(dx) * TAN_DEG_30 < rdy) in direction()
296 if ((dx < 0) != (dy < 0)) in direction()
298 if (dx < 0) in direction()
324 wstpad_set_direction(struct wstpad *tp, struct tpad_touch *t, int dx, int dy) in wstpad_set_direction() argument
335 dir = direction(dx, dy, tp->ratio); in wstpad_set_direction()
365 magnitude(struct wsmouseinput *input, int dx, int dy) in magnitude() argument
369 h = abs(dx) * input->filter.h.mag_scale; in magnitude()
[all …]
|
| /openbsd/src/lib/libm/src/ld80/ |
| D | s_cbrtl.c | 32 double dr, dt, dx; in cbrtl() local
91 dx = x; in cbrtl()
94 dt = dt * (dx + dx + dr) / (dx + dr + dr); in cbrtl()
98 dt = dt * (dx + dx + dr) / (dx + dr + dr); in cbrtl()
|
| /openbsd/src/lib/libm/src/ld128/ |
| D | s_cbrtl.c | 32 double dr, dt, dx; in cbrtl() local
95 dx = x; in cbrtl()
98 dt = dt * (dx + dx + dr) / (dx + dr + dr); in cbrtl()
102 dt = dt * (dx + dx + dr) / (dx + dr + dr); in cbrtl()
|
| /openbsd/src/lib/libcurses/base/ |
| D | lib_overlay.c | 171 int sx, sy, dx, dy; in copywin() local
185 for (dx = dmincol, sx = smincol; in copywin()
186 dx <= dmaxcol; in copywin()
187 sx++, dx++) { in copywin()
189 if (dx < 0 || sx < 0) in copywin()
195 (!CharEq(dst->_line[dy].text[dx], in copywin()
197 dst->_line[dy].text[dx] = in copywin()
199 SetAttr(dst->_line[dy].text[dx], in copywin()
205 if (!CharEq(dst->_line[dy].text[dx], in copywin()
207 dst->_line[dy].text[dx] = in copywin()
|
| /openbsd/src/sys/arch/i386/stand/biosboot/ |
| D | biosboot.S | 221 push %dx
223 movw SERIAL, %dx
225 pop %dx
267 pushw %dx /* Save the drive number (%dl) */
271 popw %dx /* Retrieve drive number */
285 pushw %dx
317 popw %dx /* Retrieve the drive number */
622 pushw %dx /* Save drive number (in %dl) */
633 pushw %dx /* Remember for later */
800 pushw %dx
[all …]
|
| /openbsd/src/sys/arch/amd64/stand/biosboot/ |
| D | biosboot.S | 221 push %dx
223 movw SERIAL, %dx
225 pop %dx
267 pushw %dx /* Save the drive number (%dl) */
271 popw %dx /* Retrieve drive number */
285 pushw %dx
317 popw %dx /* Retrieve the drive number */
622 pushw %dx /* Save drive number (in %dl) */
633 pushw %dx /* Remember for later */
800 pushw %dx
[all …]
|
| /openbsd/src/gnu/usr.bin/gcc/gcc/config/mn10300/ |
| D | mn10300.md | 280 "=dx,ax,dx,a,dxm,dxm,axm,axm,dx,dx,ax,ax,axR,!*y")
282 "0,0,I,I,dx,ax,dx,ax,dixm,aixm,dixm,aixm,!*y,axR"))]
343 [(set (match_operand:SF 0 "nonimmediate_operand" "=dx,ax,dx,a,daxm,dax")
389 "=dx,ax,dx,a,dxm,dxm,axm,axm,dx,dx,ax,ax")
391 "0,0,I,I,dx,ax,dx,ax,dxim,axim,dxim,axim"))]
558 "=dx,ax,dx,a,dxm,dxm,axm,axm,dx,dx,ax,ax")
560 "0,0,G,G,dx,ax,dx,ax,dxFm,axFm,dxFm,axFm"))]
728 [(set (cc0) (zero_extend:SI (match_operand:QI 0 "memory_operand" "dx,!a")))]
734 [(set (cc0) (zero_extend:SI (match_operand:QI 0 "memory_operand" "dx")))]
740 [(set (cc0) (zero_extend:SI (match_operand:HI 0 "memory_operand" "dx,!a")))]
[all …]
|
| /openbsd/src/sys/dev/hil/ |
| D | hilms.c | 223 int dx, dy, dz, button; in hilms_callback() local
260 dx = *buf++; in hilms_callback()
261 dx |= (*buf++) << 8; in hilms_callback()
263 dx = (int16_t)dx; in hilms_callback()
265 dx = *buf++; in hilms_callback()
267 dx = (int8_t)dx; in hilms_callback()
337 wsmouse_motion(sc->sc_wsmousedev, dx, dy, dz, 0); in hilms_callback()
339 wsmouse_position(sc->sc_wsmousedev, dx, dy); in hilms_callback()
|
| /openbsd/src/sys/arch/i386/isa/ |
| D | mms.c | 195 signed char dx, dy; in mmsintr() local
212 dx = bus_space_read_1(iot, ioh, MMS_DATA); in mmsintr()
214 dx = (dx == -128) ? -127 : dx; in mmsintr()
220 dx = dy = 0; in mmsintr()
231 if (dx || dy || changed) in mmsintr()
232 WSMOUSE_INPUT(sc->sc_wsmousedev, buttons, dx, dy, 0, 0); in mmsintr()
|
| /openbsd/src/gnu/usr.bin/gcc/gcc/testsuite/g77.dg/ |
| D | pr5473.f | 6 double precision dx, da
9 dx = x
13 da = DBESJN(m,dx) ! { dg-error "incorrect type" "incorrect type" }
14 da = DBESYN(m,dx) ! { dg-error "incorrect type" "incorrect type" }
|
| /openbsd/src/lib/libm/arch/i387/ |
| D | s_ceil.S | 13 movw 4(%esp),%dx
14 orw $0x0800,%dx /* round towards +oo */
15 andw $0xfbff,%dx
16 movw %dx,(%esp)
|
| D | s_floorf.S | 13 movw 4(%esp),%dx
14 orw $0x0400,%dx /* round towards -oo */
15 andw $0xf7ff,%dx
16 movw %dx,(%esp)
|