1 (declaim (optimize (speed 2) (debug 3) (safety 3)))
2 ;#.(require :alexandria)
6 #+x86-64
(require :cuda-fft
)
10 (:use
:cl
:sb-alien
:sb-c-call
:vector
42 #:draw-unit-intensity-disk-precise
43 #:draw-unit-energy-disk-precise
51 #:CONVOLVE-NOCROP-2-CSF
52 #:CONVOLVE-NOCROP-2-CDF
53 #:CONVOLVE-NOCROP-3-CSF
54 #:CONVOLVE-NOCROP-3-CDF
71 #:DRAW-UNIT-ENERGY-DISK-PRECISE-CDF
72 #:DRAW-UNIT-ENERGY-DISK-PRECISE-CSF
73 #:DRAW-UNIFORM-DISK-PRECISE-CDF
74 #:DRAW-UNIFORM-DISK-PRECISE-CSF
213 #:CROSS-SECTION-XZ-CDF
214 #:CROSS-SECTION-XZ-CSF
215 #:CROSS-SECTION-XZ-DF
216 #:CROSS-SECTION-XZ-SF
217 #:CROSS-SECTION-XZ-UB8
230 #:RESAMPLE-HALF-1-UB8
233 #:RESAMPLE-HALF-1-CDF
234 #:RESAMPLE-HALF-1-CSF
235 #:RESAMPLE-HALF-2-UB8
238 #:RESAMPLE-HALF-2-CDF
239 #:RESAMPLE-HALF-2-CSF
240 #:RESAMPLE-HALF-3-UB8
243 #:RESAMPLE-HALF-3-CDF
244 #:RESAMPLE-HALF-3-CSF
257 #:NORMALIZE-1-UB8
/UB8
266 #:NORMALIZE-2-UB8
/UB8
275 #:NORMALIZE-3-UB8
/UB8
284 #:NORMALIZE-1-CSF
/UB8-REALPART
285 #:NORMALIZE-1-CSF
/UB8-IMAGPART
286 #:NORMALIZE-1-CSF
/UB8-PHASE
287 #:NORMALIZE-1-CSF
/UB8-ABS
288 #:NORMALIZE-1-CSF
/SF-REALPART
289 #:NORMALIZE-1-CSF
/SF-IMAGPART
290 #:NORMALIZE-1-CSF
/SF-PHASE
291 #:NORMALIZE-1-CSF
/SF-ABS
292 #:NORMALIZE-1-CSF
/DF-REALPART
293 #:NORMALIZE-1-CSF
/DF-IMAGPART
294 #:NORMALIZE-1-CSF
/DF-PHASE
295 #:NORMALIZE-1-CSF
/DF-ABS
296 #:NORMALIZE-1-CDF
/UB8-REALPART
297 #:NORMALIZE-1-CDF
/UB8-IMAGPART
298 #:NORMALIZE-1-CDF
/UB8-PHASE
299 #:NORMALIZE-1-CDF
/UB8-ABS
300 #:NORMALIZE-1-CDF
/SF-REALPART
301 #:NORMALIZE-1-CDF
/SF-IMAGPART
302 #:NORMALIZE-1-CDF
/SF-PHASE
303 #:NORMALIZE-1-CDF
/SF-ABS
304 #:NORMALIZE-1-CDF
/DF-REALPART
305 #:NORMALIZE-1-CDF
/DF-IMAGPART
306 #:NORMALIZE-1-CDF
/DF-PHASE
307 #:NORMALIZE-1-CDF
/DF-ABS
308 #:NORMALIZE-2-CSF
/UB8-REALPART
309 #:NORMALIZE-2-CSF
/UB8-IMAGPART
310 #:NORMALIZE-2-CSF
/UB8-PHASE
311 #:NORMALIZE-2-CSF
/UB8-ABS
312 #:NORMALIZE-2-CSF
/SF-REALPART
313 #:NORMALIZE-2-CSF
/SF-IMAGPART
314 #:NORMALIZE-2-CSF
/SF-PHASE
315 #:NORMALIZE-2-CSF
/SF-ABS
316 #:NORMALIZE-2-CSF
/DF-REALPART
317 #:NORMALIZE-2-CSF
/DF-IMAGPART
318 #:NORMALIZE-2-CSF
/DF-PHASE
319 #:NORMALIZE-2-CSF
/DF-ABS
320 #:NORMALIZE-2-CDF
/UB8-REALPART
321 #:NORMALIZE-2-CDF
/UB8-IMAGPART
322 #:NORMALIZE-2-CDF
/UB8-PHASE
323 #:NORMALIZE-2-CDF
/UB8-ABS
324 #:NORMALIZE-2-CDF
/SF-REALPART
325 #:NORMALIZE-2-CDF
/SF-IMAGPART
326 #:NORMALIZE-2-CDF
/SF-PHASE
327 #:NORMALIZE-2-CDF
/SF-ABS
328 #:NORMALIZE-2-CDF
/DF-REALPART
329 #:NORMALIZE-2-CDF
/DF-IMAGPART
330 #:NORMALIZE-2-CDF
/DF-PHASE
331 #:NORMALIZE-2-CDF
/DF-ABS
332 #:NORMALIZE-3-CSF
/UB8-REALPART
333 #:NORMALIZE-3-CSF
/UB8-IMAGPART
334 #:NORMALIZE-3-CSF
/UB8-PHASE
335 #:NORMALIZE-3-CSF
/UB8-ABS
336 #:NORMALIZE-3-CSF
/SF-REALPART
337 #:NORMALIZE-3-CSF
/SF-IMAGPART
338 #:NORMALIZE-3-CSF
/SF-PHASE
339 #:NORMALIZE-3-CSF
/SF-ABS
340 #:NORMALIZE-3-CSF
/DF-REALPART
341 #:NORMALIZE-3-CSF
/DF-IMAGPART
342 #:NORMALIZE-3-CSF
/DF-PHASE
343 #:NORMALIZE-3-CSF
/DF-ABS
344 #:NORMALIZE-3-CDF
/UB8-REALPART
345 #:NORMALIZE-3-CDF
/UB8-IMAGPART
346 #:NORMALIZE-3-CDF
/UB8-PHASE
347 #:NORMALIZE-3-CDF
/UB8-ABS
348 #:NORMALIZE-3-CDF
/SF-REALPART
349 #:NORMALIZE-3-CDF
/SF-IMAGPART
350 #:NORMALIZE-3-CDF
/SF-PHASE
351 #:NORMALIZE-3-CDF
/SF-ABS
352 #:NORMALIZE-3-CDF
/DF-REALPART
353 #:NORMALIZE-3-CDF
/DF-IMAGPART
354 #:NORMALIZE-3-CDF
/DF-PHASE
355 #:NORMALIZE-3-CDF
/DF-ABS
356 #:CONVERT-1-UB8
/SF-MUL
357 #:CONVERT-1-UB8
/DF-MUL
358 #:CONVERT-1-UB8
/CSF-MUL
359 #:CONVERT-1-UB8
/CDF-MUL
360 #:CONVERT-1-FIX
/SF-MUL
361 #:CONVERT-1-FIX
/DF-MUL
362 #:CONVERT-1-FIX
/CSF-MUL
363 #:CONVERT-1-FIX
/CDF-MUL
364 #:CONVERT-1-SF
/DF-MUL
365 #:CONVERT-1-SF
/CSF-MUL
366 #:CONVERT-1-SF
/CDF-MUL
367 #:CONVERT-1-DF
/CDF-MUL
368 #:CONVERT-1-CSF
/CDF-MUL
369 #:CONVERT-1-DF
/SF-COERCE
370 #:CONVERT-1-CDF
/CSF-COERCE
371 #:CONVERT-1-SF
/UB8-FLOOR
372 #:CONVERT-1-DF
/UB8-FLOOR
373 #:CONVERT-1-SF
/FIX-FLOOR
374 #:CONVERT-1-DF
/FIX-FLOOR
375 #:CONVERT-1-CSF
/SF-REALPART
376 #:CONVERT-1-CSF
/SF-IMAGPART
377 #:CONVERT-1-CSF
/SF-ABS
378 #:CONVERT-1-CSF
/SF-PHASE
379 #:CONVERT-1-CDF
/DF-REALPART
380 #:CONVERT-1-CDF
/DF-IMAGPART
381 #:CONVERT-1-CDF
/DF-ABS
382 #:CONVERT-1-CDF
/DF-PHASE
383 #:CONVERT-1-CSF
/UB8-REALPART
384 #:CONVERT-1-CSF
/UB8-IMAGPART
385 #:CONVERT-1-CSF
/UB8-ABS
386 #:CONVERT-1-CSF
/UB8-PHASE
387 #:CONVERT-1-CDF
/UB8-REALPART
388 #:CONVERT-1-CDF
/UB8-IMAGPART
389 #:CONVERT-1-CDF
/UB8-ABS
390 #:CONVERT-1-CDF
/UB8-PHASE
391 #:CONVERT-2-UB8
/SF-MUL
392 #:CONVERT-2-UB8
/DF-MUL
393 #:CONVERT-2-UB8
/CSF-MUL
394 #:CONVERT-2-UB8
/CDF-MUL
395 #:CONVERT-2-FIX
/SF-MUL
396 #:CONVERT-2-FIX
/DF-MUL
397 #:CONVERT-2-FIX
/CSF-MUL
398 #:CONVERT-2-FIX
/CDF-MUL
399 #:CONVERT-2-SF
/DF-MUL
400 #:CONVERT-2-SF
/CSF-MUL
401 #:CONVERT-2-SF
/CDF-MUL
402 #:CONVERT-2-DF
/CDF-MUL
403 #:CONVERT-2-CSF
/CDF-MUL
404 #:CONVERT-2-DF
/SF-COERCE
405 #:CONVERT-2-CDF
/CSF-COERCE
406 #:CONVERT-2-SF
/UB8-FLOOR
407 #:CONVERT-2-DF
/UB8-FLOOR
408 #:CONVERT-2-SF
/FIX-FLOOR
409 #:CONVERT-2-DF
/FIX-FLOOR
410 #:CONVERT-2-CSF
/SF-REALPART
411 #:CONVERT-2-CSF
/SF-IMAGPART
412 #:CONVERT-2-CSF
/SF-ABS
413 #:CONVERT-2-CSF
/SF-PHASE
414 #:CONVERT-2-CDF
/DF-REALPART
415 #:CONVERT-2-CDF
/DF-IMAGPART
416 #:CONVERT-2-CDF
/DF-ABS
417 #:CONVERT-2-CDF
/DF-PHASE
418 #:CONVERT-2-CSF
/UB8-REALPART
419 #:CONVERT-2-CSF
/UB8-IMAGPART
420 #:CONVERT-2-CSF
/UB8-ABS
421 #:CONVERT-2-CSF
/UB8-PHASE
422 #:CONVERT-2-CDF
/UB8-REALPART
423 #:CONVERT-2-CDF
/UB8-IMAGPART
424 #:CONVERT-2-CDF
/UB8-ABS
425 #:CONVERT-2-CDF
/UB8-PHASE
426 #:CONVERT-3-UB8
/SF-MUL
427 #:CONVERT-3-UB8
/DF-MUL
428 #:CONVERT-3-UB8
/CSF-MUL
429 #:CONVERT-3-UB8
/CDF-MUL
430 #:CONVERT-3-FIX
/SF-MUL
431 #:CONVERT-3-FIX
/DF-MUL
432 #:CONVERT-3-FIX
/CSF-MUL
433 #:CONVERT-3-FIX
/CDF-MUL
434 #:CONVERT-3-SF
/DF-MUL
435 #:CONVERT-3-SF
/CSF-MUL
436 #:CONVERT-3-SF
/CDF-MUL
437 #:CONVERT-3-DF
/CDF-MUL
438 #:CONVERT-3-CSF
/CDF-MUL
439 #:CONVERT-3-DF
/SF-COERCE
440 #:CONVERT-3-CDF
/CSF-COERCE
441 #:CONVERT-3-SF
/UB8-FLOOR
442 #:CONVERT-3-DF
/UB8-FLOOR
443 #:CONVERT-3-SF
/FIX-FLOOR
444 #:CONVERT-3-DF
/FIX-FLOOR
445 #:CONVERT-3-CSF
/SF-REALPART
446 #:CONVERT-3-CSF
/SF-IMAGPART
447 #:CONVERT-3-CSF
/SF-ABS
448 #:CONVERT-3-CSF
/SF-PHASE
449 #:CONVERT-3-CDF
/DF-REALPART
450 #:CONVERT-3-CDF
/DF-IMAGPART
451 #:CONVERT-3-CDF
/DF-ABS
452 #:CONVERT-3-CDF
/DF-PHASE
453 #:CONVERT-3-CSF
/UB8-REALPART
454 #:CONVERT-3-CSF
/UB8-IMAGPART
455 #:CONVERT-3-CSF
/UB8-ABS
456 #:CONVERT-3-CSF
/UB8-PHASE
457 #:CONVERT-3-CDF
/UB8-REALPART
458 #:CONVERT-3-CDF
/UB8-IMAGPART
459 #:CONVERT-3-CDF
/UB8-ABS
460 #:CONVERT-3-CDF
/UB8-PHASE
463 ;; for i in `cat vol.lisp|grep defconst|cut -d " " -f 2`;do echo \#:$i ;done