mathlib-fftpack5.c
1 //! @file mathlib-fftpack5.c
2 //
3 //! @section copyright
4 //
5 // This file is part of VIF - vintage fortran compiler.
6 // Copyright 2020-2025 J. Marcel van der Veer <algol68g@xs4all.nl>.
7 //
8 //! @section license
9 //
10 // This program is free software; you can redistribute it and/or modify it
11 // under the terms of the gnu general public license as published by the
12 // free software foundation; either version 3 of the license, or
13 // (at your option) any later version.
14 //
15 // This program is distributed in the hope that it will be useful, but
16 // without any warranty; without even the implied warranty of merchantability
17 // or fitness for a particular purpose. See the GNU general public license for
18 // more details. you should have received a copy of the GNU general public
19 // license along with this program. If not, see <http://www.gnu.org/licenses/>.
20 //
21 //! @Synopsis
22 //
23 //! 220 subprograms from FFTPACK5
24
25 // Compiled from Fortran source code by VIF.
26 // Selected subprograms are:
27 //
28 // C1F2KB CMF2KF COSTB1 DCFFT2 DCOSQM DMRADF DRFFT1 DSINTM MRFTI1 RFFTI1
29 // C1F2KF CMF3KB COSTF1 DCFFTM DCOSQM DMRADF DRFFT2 DSINTM MSNTB1 RFFTMB
30 // C1F3KB CMF3KF COSTMB DCFFTM DCOST1 DMRADF DRFFT2 DTABLE MSNTF1 RFFTMF
31 // C1F3KF CMF4KB COSTMF DCFFTM DCOST1 DMRADF DRFFT2 DW2R R1F2KB RFFTMI
32 // C1F4KB CMF4KF COSTMI DCMF2K DCOST1 DMRFTB DRFFTB FACTOR R1F2KF SINQ1B
33 // C1F4KF CMF5KB DC1F2K DCMF2K DCOSTB DMRFTF DRFFTF MCFTI1 R1F3KB SINQ1F
34 // C1F5KB CMF5KF DC1F2K DCMF3K DCOSTF DMRFTI DRFFTI MCSQB1 R1F3KF SINQ1I
35 // C1F5KF CMFGKB DC1F3K DCMF3K DCOSTM DMSNTB DRFFTM MCSQF1 R1F4KB SINQMB
36 // C1FGKB CMFGKF DC1F3K DCMF4K DCOSTM DMSNTF DRFFTM MCSTB1 R1F4KF SINQMF
37 // C1FGKF CMFM1B DC1F4K DCMF4K DCOSTM DR1F2K DRFFTM MCSTF1 R1F5KB SINQMI
38 // C1FM1B CMFM1F DC1F4K DCMF5K DFACTO DR1F2K DSINQ1 MRADB2 R1F5KF SINT1B
39 // C1FM1F COSQ1B DC1F5K DCMF5K DMCFTI DR1F3K DSINQ1 MRADB3 R1FGKB SINT1F
40 // CFFT1B COSQ1F DC1F5K DCMFGK DMCSQB DR1F3K DSINQ1 MRADB4 R1FGKF SINT1I
41 // CFFT1F COSQ1I DC1FGK DCMFGK DMCSQF DR1F4K DSINQM MRADB5 R2W SINTB1
42 // CFFT1I COSQB1 DC1FGK DCMFM1 DMCSTB DR1F4K DSINQM MRADBG RFFT1B SINTF1
43 // CFFT2B COSQF1 DC1FM1 DCMFM1 DMCSTF DR1F5K DSINQM MRADF2 RFFT1F SINTMB
44 // CFFT2F COSQMB DC1FM1 DCOSQ1 DMRADB DR1F5K DSINT1 MRADF3 RFFT1I SINTMF
45 // CFFT2I COSQMF DCFFT1 DCOSQ1 DMRADB DR1FGK DSINT1 MRADF4 RFFT2B SINTMI
46 // CFFTMB COSQMI DCFFT1 DCOSQ1 DMRADB DR1FGK DSINT1 MRADF5 RFFT2F TABLES
47 // CFFTMF COST1B DCFFT1 DCOSQB DMRADB DR2W DSINTB MRADFG RFFT2I W2R
48 // CFFTMI COST1F DCFFT2 DCOSQF DMRADB DRFFT1 DSINTF MRFTB1 RFFTB1 XERCON
49 // CMF2KB COST1I DCFFT2 DCOSQM DMRADF DRFFT1 DSINTM MRFTF1 RFFTF1 XERFFT
50
51 // Source: https://people.sc.fsu.edu/~jburkardt/f77_src/fftpack5.1/fftpack5.1.html
52 //
53 // FFTPACK5.1, a FORTRAN77 code which computes the Fast Fourier Transform, by Paul Swarztrauber and
54 // Dick Valent.
55 //
56 // Special features include:
57 //
58 // Real or complex data can be handled;
59 // Separate routines for forward analysis (data => Fourier coefficients) and backward analysis
60 // (Fourier coefficients => data);
61 // Sine and cosine transform routines;
62 // Quarter wave sine and cosine transform routines;
63 // The amount of data is NOT required to be a power of 2.
64 //
65 // Routines in the library come in groups of three:
66 //
67 // An initialization routine;
68 // The forward computational routine (data to FFT coefficients);
69 // The backward computational routine (FFT coefficients to data).
70 //
71 // The following table shows how the names of the routines in each group:
72 //
73 // Initialization Forward Backward Purpose
74 // CFFT1I CFFT1F CFFT1B FFT for complex 1D data
75 // CFFT2I CFFT2F CFFT2B FFT for complex 2D data
76 // CFFTMI CFFTMF CFFTMB FFT for complex multi-D data
77 // COSQ1I COSQ1F COSQ1B Even function 1D quarter-cosine FFT
78 // COSQMI COSQMF COSQMB Even function 1D quarter-cosine FFT
79 // COST1I COST1F COST1B Even function 1D cosine FFT
80 // COSTMI COSTMF COSTMB Even function 1D cosine FFT
81 // RFFT1I RFFT1F RFFT1B FFT for real 1D data
82 // RFFT2I RFFT2F RFFT2B FFT for real 2D data
83 // RFFTMI RFFTMF RFFTMB FFT for real multi-D data
84 // SINQ1I SINQ1F SINQ1B Even function 1D quarter-sine FFT
85 // SINQMI SINQMF SINQMB Even function 1D quarter-sine FFT
86 // SINT1I SINT1F SINT1B Even function 1D sine FFT
87 // SINTMI SINTMF SINTMB Even function 1D sine FFT
88 //
89 // Bugfixes from FFTPACK 5.0 to FFTPACK 5.1
90 //
91 // The functionality of FFTPACK 5.1 is identical with the previous version 5.0.
92 // The following bugfixes have been applied:
93 //
94 // Corrected index error for high-level routines [CR]FFT[12][BFI] requiring WSAVE array, and all
95 // dependent routines to which LWSAVE is passed. Namely, in LWSAV = L + LOG(REAL(INT(L))) + 4
96 // definitions, the summand term LOG(REAL(INT(L))) has been corrected to LOG(REAL(INT(L)/LOG(2.)).
97 //
98 // Corrected index error in routime C1FM1F at label 56, where array offset was declared 1 that should
99 // have been 2. This resulted in C1FFTF transforms of length N calculated incorrectly, where N is any
100 // prime .GT. 5, or N=7*M, M .GE. 6.
101 //
102 // Corrected RFFT2x routines by rewriting them. The backward transform followed by forward now returns
103 // identity. Input argument LENSAV must be be at least L + 3*M + INT(LOG(REAL(L))/LOG(2.)) +
104 // 2*INT(LOG(REAL(M))/LOG(2.)) +12. Previously, the required value was smaller.
105
106 // The license for FFTPACK5 Fortran source code is:
107 //
108 // Source: https://people.sc.fsu.edu/~jburkardt/f77_src/fftpack5.1/fftpack5.1.html
109 //
110 // Licensed under the GNU General Public License (GPL).
111 // Copyright (C) 1995-2004, Scientific Computing Division,
112 // University Corporation for Atmospheric Research.
113 //
114
115 /*
116 Generated by VIF - experimental VIntage Fortran compiler.
117 VIF release 1.2.17
118 */
119 #if defined (__GNUC__)
120 #pragma GCC diagnostic ignored "-Wimplicit-function-declaration"
121 #pragma GCC diagnostic ignored "-Wincompatible-pointer-types"
122 #if (__GNUC__ >= 14)
123 #pragma GCC diagnostic ignored "-Wdeclaration-missing-parameter-type"
124 #pragma GCC diagnostic ignored "-Wimplicit-int"
125 #pragma GCC diagnostic ignored "-Wint-conversion"
126 #pragma GCC diagnostic ignored "-Wreturn-mismatch"
127 #endif
128 #else
129 #error VIF requires GCC
130 #endif
254 static CALLS __calls[__ncalls] = {
255 {"dc1f2kb", 0}, // subroutine
256 {"dc1f2kf", 0}, // subroutine
257 {"dc1f3kb", 0}, // subroutine
258 {"dc1f3kf", 0}, // subroutine
259 {"dc1f4kb", 0}, // subroutine
260 {"dc1f4kf", 0}, // subroutine
261 {"dc1f5kb", 0}, // subroutine
262 {"dc1f5kf", 0}, // subroutine
263 {"dc1fgkb", 0}, // subroutine
264 {"dc1fgkf", 0}, // subroutine
265 {"dc1fm1b", 0}, // subroutine
266 {"dc1fm1f", 0}, // subroutine
267 {"dcfft1b", 0}, // subroutine
268 {"dcfft1f", 0}, // subroutine
269 {"dcfft1i", 0}, // subroutine
270 {"dcfft2b", 0}, // subroutine
271 {"dcfft2f", 0}, // subroutine
272 {"dcfft2i", 0}, // subroutine
273 {"dcfftmb", 0}, // subroutine
274 {"dcfftmf", 0}, // subroutine
275 {"dcfftmi", 0}, // subroutine
276 {"dcmf2kb", 0}, // subroutine
277 {"dcmf2kf", 0}, // subroutine
278 {"dcmf3kb", 0}, // subroutine
279 {"dcmf3kf", 0}, // subroutine
280 {"dcmf4kb", 0}, // subroutine
281 {"dcmf4kf", 0}, // subroutine
282 {"dcmf5kb", 0}, // subroutine
283 {"dcmf5kf", 0}, // subroutine
284 {"dcmfgkb", 0}, // subroutine
285 {"dcmfgkf", 0}, // subroutine
286 {"dcmfm1b", 0}, // subroutine
287 {"dcmfm1f", 0}, // subroutine
288 {"dcosq1b", 0}, // subroutine
289 {"dcosq1f", 0}, // subroutine
290 {"dcosq1i", 0}, // subroutine
291 {"dcosqb1", 0}, // subroutine
292 {"dcosqf1", 0}, // subroutine
293 {"dcosqmb", 0}, // subroutine
294 {"dcosqmf", 0}, // subroutine
295 {"dcosqmi", 0}, // subroutine
296 {"dcost1b", 0}, // subroutine
297 {"dcost1f", 0}, // subroutine
298 {"dcost1i", 0}, // subroutine
299 {"dcostb1", 0}, // subroutine
300 {"dcostf1", 0}, // subroutine
301 {"dcostmb", 0}, // subroutine
302 {"dcostmf", 0}, // subroutine
303 {"dcostmi", 0}, // subroutine
304 {"dfactor", 0}, // subroutine
305 {"dmcfti1", 0}, // subroutine
306 {"dmcsqb1", 0}, // subroutine
307 {"dmcsqf1", 0}, // subroutine
308 {"dmcstb1", 0}, // subroutine
309 {"dmcstf1", 0}, // subroutine
310 {"dmradb2", 0}, // subroutine
311 {"dmradb3", 0}, // subroutine
312 {"dmradb4", 0}, // subroutine
313 {"dmradb5", 0}, // subroutine
314 {"dmradbg", 0}, // subroutine
315 {"dmradf2", 0}, // subroutine
316 {"dmradf3", 0}, // subroutine
317 {"dmradf4", 0}, // subroutine
318 {"dmradf5", 0}, // subroutine
319 {"dmradfg", 0}, // subroutine
320 {"dmrftb1", 0}, // subroutine
321 {"dmrftf1", 0}, // subroutine
322 {"dmrfti1", 0}, // subroutine
323 {"dmsntb1", 0}, // subroutine
324 {"dmsntf1", 0}, // subroutine
325 {"dr1f2kb", 0}, // subroutine
326 {"dr1f2kf", 0}, // subroutine
327 {"dr1f3kb", 0}, // subroutine
328 {"dr1f3kf", 0}, // subroutine
329 {"dr1f4kb", 0}, // subroutine
330 {"dr1f4kf", 0}, // subroutine
331 {"dr1f5kb", 0}, // subroutine
332 {"dr1f5kf", 0}, // subroutine
333 {"dr1fgkb", 0}, // subroutine
334 {"dr1fgkf", 0}, // subroutine
335 {"dr2w", 0}, // subroutine
336 {"drfft1b", 0}, // subroutine
337 {"drfft1f", 0}, // subroutine
338 {"drfft1i", 0}, // subroutine
339 {"drfft2b", 0}, // subroutine
340 {"drfft2f", 0}, // subroutine
341 {"drfft2i", 0}, // subroutine
342 {"drfftb1", 0}, // subroutine
343 {"drfftf1", 0}, // subroutine
344 {"drffti1", 0}, // subroutine
345 {"drfftmb", 0}, // subroutine
346 {"drfftmf", 0}, // subroutine
347 {"drfftmi", 0}, // subroutine
348 {"dsinq1b", 0}, // subroutine
349 {"dsinq1f", 0}, // subroutine
350 {"dsinq1i", 0}, // subroutine
351 {"dsinqmb", 0}, // subroutine
352 {"dsinqmf", 0}, // subroutine
353 {"dsinqmi", 0}, // subroutine
354 {"dsint1b", 0}, // subroutine
355 {"dsint1f", 0}, // subroutine
356 {"dsint1i", 0}, // subroutine
357 {"dsintb1", 0}, // subroutine
358 {"dsintf1", 0}, // subroutine
359 {"dsintmb", 0}, // subroutine
360 {"dsintmf", 0}, // subroutine
361 {"dsintmi", 0}, // subroutine
362 {"dtables", 0}, // subroutine
363 {"dw2r", 0}, // subroutine
364 {"xercon", 0}, // logical*4 function
365 {"xerfft", 0}, // subroutine
366 {"c1f2kb", 0}, // subroutine
367 {"c1f2kf", 0}, // subroutine
368 {"c1f3kb", 0}, // subroutine
369 {"c1f3kf", 0}, // subroutine
370 {"c1f4kb", 0}, // subroutine
371 {"c1f4kf", 0}, // subroutine
372 {"c1f5kb", 0}, // subroutine
373 {"c1f5kf", 0}, // subroutine
374 {"c1fgkb", 0}, // subroutine
375 {"c1fgkf", 0}, // subroutine
376 {"c1fm1b", 0}, // subroutine
377 {"c1fm1f", 0}, // subroutine
378 {"cfft1b", 0}, // subroutine
379 {"cfft1f", 0}, // subroutine
380 {"cfft1i", 0}, // subroutine
381 {"cfft2b", 0}, // subroutine
382 {"cfft2f", 0}, // subroutine
383 {"cfft2i", 0}, // subroutine
384 {"cfftmb", 0}, // subroutine
385 {"cfftmf", 0}, // subroutine
386 {"cfftmi", 0}, // subroutine
387 {"cmf2kb", 0}, // subroutine
388 {"cmf2kf", 0}, // subroutine
389 {"cmf3kb", 0}, // subroutine
390 {"cmf3kf", 0}, // subroutine
391 {"cmf4kb", 0}, // subroutine
392 {"cmf4kf", 0}, // subroutine
393 {"cmf5kb", 0}, // subroutine
394 {"cmf5kf", 0}, // subroutine
395 {"cmfgkb", 0}, // subroutine
396 {"cmfgkf", 0}, // subroutine
397 {"cmfm1b", 0}, // subroutine
398 {"cmfm1f", 0}, // subroutine
399 {"cosq1b", 0}, // subroutine
400 {"cosq1f", 0}, // subroutine
401 {"cosq1i", 0}, // subroutine
402 {"cosqb1", 0}, // subroutine
403 {"cosqf1", 0}, // subroutine
404 {"cosqmb", 0}, // subroutine
405 {"cosqmf", 0}, // subroutine
406 {"cosqmi", 0}, // subroutine
407 {"cost1b", 0}, // subroutine
408 {"cost1f", 0}, // subroutine
409 {"cost1i", 0}, // subroutine
410 {"costb1", 0}, // subroutine
411 {"costf1", 0}, // subroutine
412 {"costmb", 0}, // subroutine
413 {"costmf", 0}, // subroutine
414 {"costmi", 0}, // subroutine
415 {"factor", 0}, // subroutine
416 {"mcfti1", 0}, // subroutine
417 {"mcsqb1", 0}, // subroutine
418 {"mcsqf1", 0}, // subroutine
419 {"mcstb1", 0}, // subroutine
420 {"mcstf1", 0}, // subroutine
421 {"mradb2", 0}, // subroutine
422 {"mradb3", 0}, // subroutine
423 {"mradb4", 0}, // subroutine
424 {"mradb5", 0}, // subroutine
425 {"mradbg", 0}, // subroutine
426 {"mradf2", 0}, // subroutine
427 {"mradf3", 0}, // subroutine
428 {"mradf4", 0}, // subroutine
429 {"mradf5", 0}, // subroutine
430 {"mradfg", 0}, // subroutine
431 {"mrftb1", 0}, // subroutine
432 {"mrftf1", 0}, // subroutine
433 {"mrfti1", 0}, // subroutine
434 {"msntb1", 0}, // subroutine
435 {"msntf1", 0}, // subroutine
436 {"r1f2kb", 0}, // subroutine
437 {"r1f2kf", 0}, // subroutine
438 {"r1f3kb", 0}, // subroutine
439 {"r1f3kf", 0}, // subroutine
440 {"r1f4kb", 0}, // subroutine
441 {"r1f4kf", 0}, // subroutine
442 {"r1f5kb", 0}, // subroutine
443 {"r1f5kf", 0}, // subroutine
444 {"r1fgkb", 0}, // subroutine
445 {"r1fgkf", 0}, // subroutine
446 {"r2w", 0}, // subroutine
447 {"rfft1b", 0}, // subroutine
448 {"rfft1f", 0}, // subroutine
449 {"rfft1i", 0}, // subroutine
450 {"rfft2b", 0}, // subroutine
451 {"rfft2f", 0}, // subroutine
452 {"rfft2i", 0}, // subroutine
453 {"rfftb1", 0}, // subroutine
454 {"rfftf1", 0}, // subroutine
455 {"rffti1", 0}, // subroutine
456 {"rfftmb", 0}, // subroutine
457 {"rfftmf", 0}, // subroutine
458 {"rfftmi", 0}, // subroutine
459 {"sinq1b", 0}, // subroutine
460 {"sinq1f", 0}, // subroutine
461 {"sinq1i", 0}, // subroutine
462 {"sinqmb", 0}, // subroutine
463 {"sinqmf", 0}, // subroutine
464 {"sinqmi", 0}, // subroutine
465 {"sint1b", 0}, // subroutine
466 {"sint1f", 0}, // subroutine
467 {"sint1i", 0}, // subroutine
468 {"sintb1", 0}, // subroutine
469 {"sintf1", 0}, // subroutine
470 {"sintmb", 0}, // subroutine
471 {"sintmf", 0}, // subroutine
472 {"sintmi", 0}, // subroutine
473 {"tables", 0}, // subroutine
474 {"w2r", 0}, // subroutine
475 {NULL, 0}
476 };
477
479 int_4 _p_ in2_, real_8 _p_ wa_);
481 int_4 _p_ in2_, real_8 _p_ wa_);
483 int_4 _p_ in2_, real_8 _p_ wa_);
485 int_4 _p_ in2_, real_8 _p_ wa_);
487 int_4 _p_ in2_, real_8 _p_ wa_);
489 int_4 _p_ in2_, real_8 _p_ wa_);
491 int_4 _p_ in2_, real_8 _p_ wa_);
493 int_4 _p_ in2_, real_8 _p_ wa_);
495 real_8 _p_ cc1_, int_4 _p_ in1_, real_8 _p_ ch_, real_8 _p_ ch1_, int_4 _p_ in2_, real_8 _p_ wa_);
497 real_8 _p_ cc1_, int_4 _p_ in1_, real_8 _p_ ch_, real_8 _p_ ch1_, int_4 _p_ in2_, real_8 _p_ wa_);
499 fnf_, real_8 _p_ fac_);
501 fnf_, real_8 _p_ fac_);
503 _p_ lensav_, real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_);
505 _p_ lensav_, real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_);
508 lensav_, real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_);
510 lensav_, real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_);
513 lenc_, real_8 _p_ wsave_, int_4 _p_ lensav_, real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_);
515 lenc_, real_8 _p_ wsave_, int_4 _p_ lensav_, real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_);
518 int_4 _p_ in1_, real_8 _p_ ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_8 _p_ wa_);
520 int_4 _p_ in1_, real_8 _p_ ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_8 _p_ wa_);
522 int_4 _p_ in1_, real_8 _p_ ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_8 _p_ wa_);
524 int_4 _p_ in1_, real_8 _p_ ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_8 _p_ wa_);
526 int_4 _p_ in1_, real_8 _p_ ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_8 _p_ wa_);
528 int_4 _p_ in1_, real_8 _p_ ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_8 _p_ wa_);
530 int_4 _p_ in1_, real_8 _p_ ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_8 _p_ wa_);
532 int_4 _p_ in1_, real_8 _p_ ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_8 _p_ wa_);
534 real_8 _p_ cc_, real_8 _p_ cc1_, int_4 _p_ im1_, int_4 _p_ in1_, real_8 _p_ ch_, real_8 _p_ ch1_, int_4 _p_ im2_, int_4
535 _p_ in2_, real_8 _p_ wa_);
537 real_8 _p_ cc_, real_8 _p_ cc1_, int_4 _p_ im1_, int_4 _p_ in1_, real_8 _p_ ch_, real_8 _p_ ch1_, int_4 _p_ im2_, int_4
538 _p_ in2_, real_8 _p_ wa_);
540 ch_, real_8 _p_ wa_, real_4 _p_ fnf_, real_8 _p_ fac_);
542 ch_, real_8 _p_ wa_, real_4 _p_ fnf_, real_8 _p_ fac_);
544 lensav_, real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_);
546 lensav_, real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_);
549 ier_);
551 ier_);
553 , real_8 _p_ wsave_, int_4 _p_ lensav_, real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_);
555 , real_8 _p_ wsave_, int_4 _p_ lensav_, real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_);
558 lensav_, real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_);
560 lensav_, real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_);
563 ier_);
565 ier_);
567 , real_8 _p_ wsave_, int_4 _p_ lensav_, real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_);
569 , real_8 _p_ wsave_, int_4 _p_ lensav_, real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_);
574 wsave_, real_4 _p_ work_, int_4 _p_ ier_);
576 wsave_, real_4 _p_ work_, int_4 _p_ ier_);
578 wsave_, real_8 _p_ dsum_, real_4 _p_ work_, int_4 _p_ ier_);
580 wsave_, real_8 _p_ dsum_, real_4 _p_ work_, int_4 _p_ ier_);
582 real_8 _p_ ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_8 _p_ wa1_);
584 real_8 _p_ ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_8 _p_ wa1_, real_8 _p_ wa2_);
586 real_8 _p_ ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_8 _p_ wa1_, real_8 _p_ wa2_, real_8 _p_ wa3_);
588 real_8 _p_ ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_8 _p_ wa1_, real_8 _p_ wa2_, real_8 _p_ wa3_, real_8 _p_ wa4_);
590 real_8 _p_ c1_, real_8 _p_ c2_, int_4 _p_ im1_, int_4 _p_ in1_, real_8 _p_ ch_, real_8 _p_ ch2_, int_4 _p_ im2_, int_4
591 _p_ in2_, real_8 _p_ wa_);
593 real_8 _p_ ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_8 _p_ wa1_);
595 real_8 _p_ ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_8 _p_ wa1_, real_8 _p_ wa2_);
597 real_8 _p_ ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_8 _p_ wa1_, real_8 _p_ wa2_, real_8 _p_ wa3_);
599 real_8 _p_ ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_8 _p_ wa1_, real_8 _p_ wa2_, real_8 _p_ wa3_, real_8 _p_ wa4_);
601 real_8 _p_ c1_, real_8 _p_ c2_, int_4 _p_ im1_, int_4 _p_ in1_, real_8 _p_ ch_, real_8 _p_ ch2_, int_4 _p_ im2_, int_4
602 _p_ in2_, real_8 _p_ wa_);
604 real_8 _p_ wa_, real_8 _p_ fac_);
606 real_8 _p_ wa_, real_8 _p_ fac_);
609 wsave_, real_8 _p_ dsum_, real_8 _p_ xh_, real_4 _p_ work_, int_4 _p_ ier_);
611 wsave_, real_8 _p_ dsum_, real_8 _p_ xh_, real_4 _p_ work_, int_4 _p_ ier_);
613 , real_8 _p_ wa1_);
615 , real_8 _p_ wa1_);
617 , real_8 _p_ wa1_, real_8 _p_ wa2_);
619 , real_8 _p_ wa1_, real_8 _p_ wa2_);
621 , real_8 _p_ wa1_, real_8 _p_ wa2_, real_8 _p_ wa3_);
623 , real_8 _p_ wa1_, real_8 _p_ wa2_, real_8 _p_ wa3_);
625 , real_8 _p_ wa1_, real_8 _p_ wa2_, real_8 _p_ wa3_, real_8 _p_ wa4_);
627 , real_8 _p_ wa1_, real_8 _p_ wa2_, real_8 _p_ wa3_, real_8 _p_ wa4_);
629 , real_8 _p_ c2_, int_4 _p_ in1_, real_8 _p_ ch_, real_8 _p_ ch2_, int_4 _p_ in2_, real_8 _p_ wa_);
631 , real_8 _p_ c2_, int_4 _p_ in1_, real_8 _p_ ch_, real_8 _p_ ch2_, int_4 _p_ in2_, real_8 _p_ wa_);
634 lensav_, real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_);
636 lensav_, real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_);
639 lensav_, real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_);
641 lensav_, real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_);
647 , real_8 _p_ wsave_, int_4 _p_ lensav_, real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_);
649 , real_8 _p_ wsave_, int_4 _p_ lensav_, real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_);
652 lensav_, real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_);
654 lensav_, real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_);
657 , real_8 _p_ wsave_, int_4 _p_ lensav_, real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_);
659 , real_8 _p_ wsave_, int_4 _p_ lensav_, real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_);
662 lensav_, real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_);
664 lensav_, real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_);
667 work_, int_4 _p_ ier_);
669 work_, int_4 _p_ ier_);
671 , real_8 _p_ wsave_, int_4 _p_ lensav_, real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_);
673 , real_8 _p_ wsave_, int_4 _p_ lensav_, real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_);
680 int_4 _p_ in2_, real_4 _p_ wa_);
682 int_4 _p_ in2_, real_4 _p_ wa_);
684 int_4 _p_ in2_, real_4 _p_ wa_);
686 int_4 _p_ in2_, real_4 _p_ wa_);
688 int_4 _p_ in2_, real_4 _p_ wa_);
690 int_4 _p_ in2_, real_4 _p_ wa_);
692 int_4 _p_ in2_, real_4 _p_ wa_);
694 int_4 _p_ in2_, real_4 _p_ wa_);
696 real_4 _p_ cc1_, int_4 _p_ in1_, real_4 _p_ ch_, real_4 _p_ ch1_, int_4 _p_ in2_, real_4 _p_ wa_);
698 real_4 _p_ cc1_, int_4 _p_ in1_, real_4 _p_ ch_, real_4 _p_ ch1_, int_4 _p_ in2_, real_4 _p_ wa_);
700 fnf_, real_4 _p_ fac_);
702 fnf_, real_4 _p_ fac_);
704 lensav_, real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_);
706 lensav_, real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_);
709 lensav_, real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_);
711 lensav_, real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_);
714 lenc_, real_4 _p_ wsave_, int_4 _p_ lensav_, real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_);
716 lenc_, real_4 _p_ wsave_, int_4 _p_ lensav_, real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_);
719 int_4 _p_ in1_, real_4 _p_ ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_4 _p_ wa_);
721 int_4 _p_ in1_, real_4 _p_ ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_4 _p_ wa_);
723 int_4 _p_ in1_, real_4 _p_ ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_4 _p_ wa_);
725 int_4 _p_ in1_, real_4 _p_ ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_4 _p_ wa_);
727 int_4 _p_ in1_, real_4 _p_ ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_4 _p_ wa_);
729 int_4 _p_ in1_, real_4 _p_ ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_4 _p_ wa_);
731 int_4 _p_ in1_, real_4 _p_ ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_4 _p_ wa_);
733 int_4 _p_ in1_, real_4 _p_ ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_4 _p_ wa_);
735 real_4 _p_ cc_, real_4 _p_ cc1_, int_4 _p_ im1_, int_4 _p_ in1_, real_4 _p_ ch_, real_4 _p_ ch1_, int_4 _p_ im2_, int_4
736 _p_ in2_, real_4 _p_ wa_);
738 real_4 _p_ cc_, real_4 _p_ cc1_, int_4 _p_ im1_, int_4 _p_ in1_, real_4 _p_ ch_, real_4 _p_ ch1_, int_4 _p_ im2_, int_4
739 _p_ in2_, real_4 _p_ wa_);
741 ch_, real_4 _p_ wa_, real_4 _p_ fnf_, real_4 _p_ fac_);
743 ch_, real_4 _p_ wa_, real_4 _p_ fnf_, real_4 _p_ fac_);
745 lensav_, real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_);
747 lensav_, real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_);
750 ier_);
752 ier_);
754 real_4 _p_ wsave_, int_4 _p_ lensav_, real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_);
756 real_4 _p_ wsave_, int_4 _p_ lensav_, real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_);
759 lensav_, real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_);
761 lensav_, real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_);
764 ier_);
766 ier_);
768 real_4 _p_ wsave_, int_4 _p_ lensav_, real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_);
770 real_4 _p_ wsave_, int_4 _p_ lensav_, real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_);
775 wsave_, real_4 _p_ work_, int_4 _p_ ier_);
777 wsave_, real_4 _p_ work_, int_4 _p_ ier_);
779 wsave_, real_8 _p_ dsum_, real_4 _p_ work_, int_4 _p_ ier_);
781 wsave_, real_8 _p_ dsum_, real_4 _p_ work_, int_4 _p_ ier_);
783 real_4 _p_ ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_4 _p_ wa1_);
785 real_4 _p_ ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_4 _p_ wa1_, real_4 _p_ wa2_);
787 real_4 _p_ ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_4 _p_ wa1_, real_4 _p_ wa2_, real_4 _p_ wa3_);
789 real_4 _p_ ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_4 _p_ wa1_, real_4 _p_ wa2_, real_4 _p_ wa3_, real_4 _p_ wa4_);
791 real_4 _p_ c1_, real_4 _p_ c2_, int_4 _p_ im1_, int_4 _p_ in1_, real_4 _p_ ch_, real_4 _p_ ch2_, int_4 _p_ im2_, int_4
792 _p_ in2_, real_4 _p_ wa_);
794 real_4 _p_ ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_4 _p_ wa1_);
796 real_4 _p_ ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_4 _p_ wa1_, real_4 _p_ wa2_);
798 real_4 _p_ ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_4 _p_ wa1_, real_4 _p_ wa2_, real_4 _p_ wa3_);
800 real_4 _p_ ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_4 _p_ wa1_, real_4 _p_ wa2_, real_4 _p_ wa3_, real_4 _p_ wa4_);
802 real_4 _p_ c1_, real_4 _p_ c2_, int_4 _p_ im1_, int_4 _p_ in1_, real_4 _p_ ch_, real_4 _p_ ch2_, int_4 _p_ im2_, int_4
803 _p_ in2_, real_4 _p_ wa_);
805 real_4 _p_ wa_, real_4 _p_ fac_);
807 real_4 _p_ wa_, real_4 _p_ fac_);
810 wsave_, real_8 _p_ dsum_, real_4 _p_ xh_, real_4 _p_ work_, int_4 _p_ ier_);
812 wsave_, real_8 _p_ dsum_, real_4 _p_ xh_, real_4 _p_ work_, int_4 _p_ ier_);
814 real_4 _p_ wa1_);
816 real_4 _p_ wa1_);
818 real_4 _p_ wa1_, real_4 _p_ wa2_);
820 real_4 _p_ wa1_, real_4 _p_ wa2_);
822 real_4 _p_ wa1_, real_4 _p_ wa2_, real_4 _p_ wa3_);
824 real_4 _p_ wa1_, real_4 _p_ wa2_, real_4 _p_ wa3_);
826 real_4 _p_ wa1_, real_4 _p_ wa2_, real_4 _p_ wa3_, real_4 _p_ wa4_);
828 real_4 _p_ wa1_, real_4 _p_ wa2_, real_4 _p_ wa3_, real_4 _p_ wa4_);
830 real_4 _p_ c2_, int_4 _p_ in1_, real_4 _p_ ch_, real_4 _p_ ch2_, int_4 _p_ in2_, real_4 _p_ wa_);
832 real_4 _p_ c2_, int_4 _p_ in1_, real_4 _p_ ch_, real_4 _p_ ch2_, int_4 _p_ in2_, real_4 _p_ wa_);
835 lensav_, real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_);
837 lensav_, real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_);
840 lensav_, real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_);
842 lensav_, real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_);
848 real_4 _p_ wsave_, int_4 _p_ lensav_, real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_);
850 real_4 _p_ wsave_, int_4 _p_ lensav_, real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_);
853 lensav_, real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_);
855 lensav_, real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_);
858 real_4 _p_ wsave_, int_4 _p_ lensav_, real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_);
860 real_4 _p_ wsave_, int_4 _p_ lensav_, real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_);
863 lensav_, real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_);
865 lensav_, real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_);
868 work_, int_4 _p_ ier_);
870 work_, int_4 _p_ ier_);
872 real_4 _p_ wsave_, int_4 _p_ lensav_, real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_);
874 real_4 _p_ wsave_, int_4 _p_ lensav_, real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_);
878 int_4 _dc1f2kb (int_4 _p_ ido_, int_4 _p_ l1_, int_4 _p_ na_, real_8 _p_ cc_, int_4 _p_ in1_, real_8 _p_ ch_, int_4 _p_
879 in2_, real_8 _p_ wa_)
880 { // ** body not listed **
932 }
933
934 int_4 _dc1f2kf (int_4 _p_ ido_, int_4 _p_ l1_, int_4 _p_ na_, real_8 _p_ cc_, int_4 _p_ in1_, real_8 _p_ ch_, int_4 _p_
935 in2_, real_8 _p_ wa_)
936 { // ** body not listed **
1001 }
1002
1003 int_4 _dc1f3kb (int_4 _p_ ido_, int_4 _p_ l1_, int_4 _p_ na_, real_8 _p_ cc_, int_4 _p_ in1_, real_8 _p_ ch_, int_4 _p_
1004 in2_, real_8 _p_ wa_)
1005 { // ** body not listed **
1106 }
1107
1108 int_4 _dc1f3kf (int_4 _p_ ido_, int_4 _p_ l1_, int_4 _p_ na_, real_8 _p_ cc_, int_4 _p_ in1_, real_8 _p_ ch_, int_4 _p_
1109 in2_, real_8 _p_ wa_)
1110 { // ** body not listed **
1234 }
1235
1236 int_4 _dc1f4kb (int_4 _p_ ido_, int_4 _p_ l1_, int_4 _p_ na_, real_8 _p_ cc_, int_4 _p_ in1_, real_8 _p_ ch_, int_4 _p_
1237 in2_, real_8 _p_ wa_)
1238 { // ** body not listed **
1344 }
1345
1346 int_4 _dc1f4kf (int_4 _p_ ido_, int_4 _p_ l1_, int_4 _p_ na_, real_8 _p_ cc_, int_4 _p_ in1_, real_8 _p_ ch_, int_4 _p_
1347 in2_, real_8 _p_ wa_)
1348 { // ** body not listed **
1483 }
1484
1485 int_4 _dc1f5kb (int_4 _p_ ido_, int_4 _p_ l1_, int_4 _p_ na_, real_8 _p_ cc_, int_4 _p_ in1_, real_8 _p_ ch_, int_4 _p_
1486 in2_, real_8 _p_ wa_)
1487 { // ** body not listed **
1661 }
1662
1663 int_4 _dc1f5kf (int_4 _p_ ido_, int_4 _p_ l1_, int_4 _p_ na_, real_8 _p_ cc_, int_4 _p_ in1_, real_8 _p_ ch_, int_4 _p_
1664 in2_, real_8 _p_ wa_)
1665 { // ** body not listed **
1880 }
1881
1882 int_4 _dc1fgkb (int_4 _p_ ido_, int_4 _p_ ip_, int_4 _p_ l1_, int_4 _p_ lid_, int_4 _p_ na_, real_8 _p_ cc_, real_8 _p_
1883 cc1_, int_4 _p_ in1_, real_8 _p_ ch_, real_8 _p_ ch1_, int_4 _p_ in2_, real_8 _p_ wa_)
1884 { // ** body not listed **
2016 }
2017
2018 int_4 _dc1fgkf (int_4 _p_ ido_, int_4 _p_ ip_, int_4 _p_ l1_, int_4 _p_ lid_, int_4 _p_ na_, real_8 _p_ cc_, real_8 _p_
2019 cc1_, int_4 _p_ in1_, real_8 _p_ ch_, real_8 _p_ ch1_, int_4 _p_ in2_, real_8 _p_ wa_)
2020 { // ** body not listed **
2176 }
2177
2178 int_4 _dc1fm1b (int_4 _p_ n_, int_4 _p_ inc_, complex_16 _p_ c_, real_8 _p_ ch_, real_8 _p_ wa_, real_4 _p_ fnf_,
2179 real_8 _p_ fac_)
2180 { // ** body not listed **
2245 }
2246
2247 int_4 _dc1fm1f (int_4 _p_ n_, int_4 _p_ inc_, complex_16 _p_ c_, real_8 _p_ ch_, real_8 _p_ wa_, real_4 _p_ fnf_,
2248 real_8 _p_ fac_)
2249 { // ** body not listed **
2314 }
2315
2316 int_4 _dcfft1b (int_4 _p_ n_, int_4 _p_ inc_, complex_16 _p_ c_, int_4 _p_ lenc_, real_8 _p_ wsave_, int_4 _p_ lensav_,
2317 real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
2318 { // ** body not listed **
2343 }
2344
2345 int_4 _dcfft1f (int_4 _p_ n_, int_4 _p_ inc_, complex_16 _p_ c_, int_4 _p_ lenc_, real_8 _p_ wsave_, int_4 _p_ lensav_,
2346 real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
2347 { // ** body not listed **
2372 }
2373
2374 int_4 _dcfft1i (int_4 _p_ n_, real_8 _p_ wsave_, int_4 _p_ lensav_, int_4 _p_ ier_)
2375 { // ** body not listed **
2392 }
2393
2394 int_4 _dcfft2b (int_4 _p_ ldim_, int_4 _p_ l_, int_4 _p_ m_, complex_16 _p_ c_, real_8 _p_ wsave_, int_4 _p_ lensav_,
2395 real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
2396 { // ** body not listed **
2440 }
2441
2442 int_4 _dcfft2f (int_4 _p_ ldim_, int_4 _p_ l_, int_4 _p_ m_, complex_16 _p_ c_, real_8 _p_ wsave_, int_4 _p_ lensav_,
2443 real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
2444 { // ** body not listed **
2488 }
2489
2490 int_4 _dcfft2i (int_4 _p_ l_, int_4 _p_ m_, real_8 _p_ wsave_, int_4 _p_ lensav_, int_4 _p_ ier_)
2491 { // ** body not listed **
2520 }
2521
2522 int_4 _dcfftmb (int_4 _p_ lot_, int_4 _p_ jump_, int_4 _p_ n_, int_4 _p_ inc_, complex_16 _p_ c_, int_4 _p_ lenc_,
2523 real_8 _p_ wsave_, int_4 _p_ lensav_, real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
2524 { // ** body not listed **
2553 }
2554
2555 int_4 _dcfftmf (int_4 _p_ lot_, int_4 _p_ jump_, int_4 _p_ n_, int_4 _p_ inc_, complex_16 _p_ c_, int_4 _p_ lenc_,
2556 real_8 _p_ wsave_, int_4 _p_ lensav_, real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
2557 { // ** body not listed **
2586 }
2587
2588 int_4 _dcfftmi (int_4 _p_ n_, real_8 _p_ wsave_, int_4 _p_ lensav_, int_4 _p_ ier_)
2589 { // ** body not listed **
2606 }
2607
2608 int_4 _dcmf2kb (int_4 _p_ lot_, int_4 _p_ ido_, int_4 _p_ l1_, int_4 _p_ na_, real_8 _p_ cc_, int_4 _p_ im1_, int_4 _p_
2609 in1_, real_8 _p_ ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_8 _p_ wa_)
2610 { // ** body not listed **
2682 }
2683
2684 int_4 _dcmf2kf (int_4 _p_ lot_, int_4 _p_ ido_, int_4 _p_ l1_, int_4 _p_ na_, real_8 _p_ cc_, int_4 _p_ im1_, int_4 _p_
2685 in1_, real_8 _p_ ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_8 _p_ wa_)
2686 { // ** body not listed **
2779 }
2780
2781 int_4 _dcmf3kb (int_4 _p_ lot_, int_4 _p_ ido_, int_4 _p_ l1_, int_4 _p_ na_, real_8 _p_ cc_, int_4 _p_ im1_, int_4 _p_
2782 in1_, real_8 _p_ ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_8 _p_ wa_)
2783 { // ** body not listed **
2896 }
2897
2898 int_4 _dcmf3kf (int_4 _p_ lot_, int_4 _p_ ido_, int_4 _p_ l1_, int_4 _p_ na_, real_8 _p_ cc_, int_4 _p_ im1_, int_4 _p_
2899 in1_, real_8 _p_ ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_8 _p_ wa_)
2900 { // ** body not listed **
3040 }
3041
3042 int_4 _dcmf4kb (int_4 _p_ lot_, int_4 _p_ ido_, int_4 _p_ l1_, int_4 _p_ na_, real_8 _p_ cc_, int_4 _p_ im1_, int_4 _p_
3043 in1_, real_8 _p_ ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_8 _p_ wa_)
3044 { // ** body not listed **
3162 }
3163
3164 int_4 _dcmf4kf (int_4 _p_ lot_, int_4 _p_ ido_, int_4 _p_ l1_, int_4 _p_ na_, real_8 _p_ cc_, int_4 _p_ im1_, int_4 _p_
3165 in1_, real_8 _p_ ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_8 _p_ wa_)
3166 { // ** body not listed **
3317 }
3318
3319 int_4 _dcmf5kb (int_4 _p_ lot_, int_4 _p_ ido_, int_4 _p_ l1_, int_4 _p_ na_, real_8 _p_ cc_, int_4 _p_ im1_, int_4 _p_
3320 in1_, real_8 _p_ ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_8 _p_ wa_)
3321 { // ** body not listed **
3519 }
3520
3521 int_4 _dcmf5kf (int_4 _p_ lot_, int_4 _p_ ido_, int_4 _p_ l1_, int_4 _p_ na_, real_8 _p_ cc_, int_4 _p_ im1_, int_4 _p_
3522 in1_, real_8 _p_ ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_8 _p_ wa_)
3523 { // ** body not listed **
3772 }
3773
3774 int_4 _dcmfgkb (int_4 _p_ lot_, int_4 _p_ ido_, int_4 _p_ ip_, int_4 _p_ l1_, int_4 _p_ lid_, int_4 _p_ na_, real_8 _p_
3775 cc_, real_8 _p_ cc1_, int_4 _p_ im1_, int_4 _p_ in1_, real_8 _p_ ch_, real_8 _p_ ch1_, int_4 _p_ im2_, int_4 _p_ in2_,
3776 real_8 _p_ wa_)
3777 { // ** body not listed **
3973 }
3974 int_4 _dcmfgkf (int_4 _p_ lot_, int_4 _p_ ido_, int_4 _p_ ip_, int_4 _p_ l1_, int_4 _p_ lid_, int_4 _p_ na_, real_8 _p_
3975 cc_, real_8 _p_ cc1_, int_4 _p_ im1_, int_4 _p_ in1_, real_8 _p_ ch_, real_8 _p_ ch1_, int_4 _p_ im2_, int_4 _p_ in2_,
3976 real_8 _p_ wa_)
3977 { // ** body not listed **
4217 }
4218
4219 int_4 _dcmfm1b (int_4 _p_ lot_, int_4 _p_ jump_, int_4 _p_ n_, int_4 _p_ inc_, complex_16 _p_ c_, real_8 _p_ ch_,
4220 real_8 _p_ wa_, real_4 _p_ fnf_, real_8 _p_ fac_)
4221 { // ** body not listed **
4284 }
4285
4286 int_4 _dcmfm1f (int_4 _p_ lot_, int_4 _p_ jump_, int_4 _p_ n_, int_4 _p_ inc_, complex_16 _p_ c_, real_8 _p_ ch_,
4287 real_8 _p_ wa_, real_4 _p_ fnf_, real_8 _p_ fac_)
4288 { // ** body not listed **
4351 }
4352
4353 int_4 _dcosq1b (int_4 _p_ n_, int_4 _p_ inc_, real_8 _p_ x_, int_4 _p_ lenx_, real_8 _p_ wsave_, int_4 _p_ lensav_,
4354 real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
4355 { // ** body not listed **
4400 }
4401
4402 int_4 _dcosq1f (int_4 _p_ n_, int_4 _p_ inc_, real_8 _p_ x_, int_4 _p_ lenx_, real_8 _p_ wsave_, int_4 _p_ lensav_,
4403 real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
4404 { // ** body not listed **
4450 }
4451
4452 int_4 _dcosq1i (int_4 _p_ n_, real_8 _p_ wsave_, int_4 _p_ lensav_, int_4 _p_ ier_)
4453 { // ** body not listed **
4481 }
4482
4483 int_4 _dcosqb1 (int_4 _p_ n_, int_4 _p_ inc_, real_4 _p_ x_, real_4 _p_ wsave_, real_4 _p_ work_, int_4 _p_ ier_)
4484 { // ** body not listed **
4535 }
4536
4537 int_4 _dcosqf1 (int_4 _p_ n_, int_4 _p_ inc_, real_4 _p_ x_, real_4 _p_ wsave_, real_4 _p_ work_, int_4 _p_ ier_)
4538 { // ** body not listed **
4584 }
4585
4586 int_4 _dcosqmb (int_4 _p_ lot_, int_4 _p_ jump_, int_4 _p_ n_, int_4 _p_ inc_, real_8 _p_ x_, int_4 _p_ lenx_, real_8
4587 _p_ wsave_, int_4 _p_ lensav_, real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
4588 { // ** body not listed **
4646 }
4647
4648 int_4 _dcosqmf (int_4 _p_ lot_, int_4 _p_ jump_, int_4 _p_ n_, int_4 _p_ inc_, real_8 _p_ x_, int_4 _p_ lenx_, real_8
4649 _p_ wsave_, int_4 _p_ lensav_, real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
4650 { // ** body not listed **
4704 }
4705
4706 int_4 _dcosqmi (int_4 _p_ n_, real_8 _p_ wsave_, int_4 _p_ lensav_, int_4 _p_ ier_)
4707 { // ** body not listed **
4735 }
4736
4737 int_4 _dcost1b (int_4 _p_ n_, int_4 _p_ inc_, real_8 _p_ x_, int_4 _p_ lenx_, real_8 _p_ wsave_, int_4 _p_ lensav_,
4738 real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
4739 { // ** body not listed **
4771 }
4772
4773 int_4 _dcost1f (int_4 _p_ n_, int_4 _p_ inc_, real_8 _p_ x_, int_4 _p_ lenx_, real_8 _p_ wsave_, int_4 _p_ lensav_,
4774 real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
4775 { // ** body not listed **
4807 }
4808
4809 int_4 _dcost1i (int_4 _p_ n_, real_8 _p_ wsave_, int_4 _p_ lensav_, int_4 _p_ ier_)
4810 { // ** body not listed **
4847 }
4848
4849 int_4 _dcostb1 (int_4 _p_ n_, int_4 _p_ inc_, real_8 _p_ x_, real_8 _p_ wsave_, real_4 _p_ work_, int_4 _p_ ier_)
4850 { // ** body not listed **
4935 }
4936
4937 int_4 _dcostf1 (int_4 _p_ n_, int_4 _p_ inc_, real_8 _p_ x_, real_8 _p_ wsave_, real_4 _p_ work_, int_4 _p_ ier_)
4938 { // ** body not listed **
5021 }
5022
5023 int_4 _dcostmb (int_4 _p_ lot_, int_4 _p_ jump_, int_4 _p_ n_, int_4 _p_ inc_, real_8 _p_ x_, int_4 _p_ lenx_, real_8
5024 _p_ wsave_, int_4 _p_ lensav_, real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
5025 { // ** body not listed **
5059 }
5060
5061 int_4 _dcostmf (int_4 _p_ lot_, int_4 _p_ jump_, int_4 _p_ n_, int_4 _p_ inc_, real_8 _p_ x_, int_4 _p_ lenx_, real_8
5062 _p_ wsave_, int_4 _p_ lensav_, real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
5063 { // ** body not listed **
5097 }
5098
5099 int_4 _dcostmi (int_4 _p_ n_, real_8 _p_ wsave_, int_4 _p_ lensav_, int_4 _p_ ier_)
5100 { // ** body not listed **
5137 }
5138
5139 int_4 _dfactor (int_4 _p_ n_, int_4 _p_ nf_, real_8 _p_ fac_)
5140 { // ** body not listed **
5207 }
5208
5209 int_4 _dmcfti1 (int_4 _p_ n_, real_8 _p_ wa_, real_4 _p_ fnf_, real_8 _p_ fac_)
5210 { // ** body not listed **
5226 }
5227
5228 int_4 _dmcsqb1 (int_4 _p_ lot_, int_4 _p_ jump_, int_4 _p_ n_, int_4 _p_ inc_, real_4 _p_ x_, real_4 _p_ wsave_, real_4
5229 _p_ work_, int_4 _p_ ier_)
5230 { // ** body not listed **
5303 }
5304
5305 int_4 _dmcsqf1 (int_4 _p_ lot_, int_4 _p_ jump_, int_4 _p_ n_, int_4 _p_ inc_, real_4 _p_ x_, real_4 _p_ wsave_, real_4
5306 _p_ work_, int_4 _p_ ier_)
5307 { // ** body not listed **
5376 }
5377
5378 int_4 _dmcstb1 (int_4 _p_ lot_, int_4 _p_ jump_, int_4 _p_ n_, int_4 _p_ inc_, real_8 _p_ x_, real_8 _p_ wsave_, real_8
5379 _p_ dsum_, real_4 _p_ work_, int_4 _p_ ier_)
5380 { // ** body not listed **
5497 }
5498
5499 int_4 _dmcstf1 (int_4 _p_ lot_, int_4 _p_ jump_, int_4 _p_ n_, int_4 _p_ inc_, real_8 _p_ x_, real_8 _p_ wsave_, real_8
5500 _p_ dsum_, real_4 _p_ work_, int_4 _p_ ier_)
5501 { // ** body not listed **
5613 }
5614
5615 int_4 _dmradb2 (int_4 _p_ m_, int_4 _p_ ido_, int_4 _p_ l1_, real_8 _p_ cc_, int_4 _p_ im1_, int_4 _p_ in1_, real_8 _p_
5616 ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_8 _p_ wa1_)
5617 { // ** body not listed **
5687 }
5688
5689 int_4 _dmradb3 (int_4 _p_ m_, int_4 _p_ ido_, int_4 _p_ l1_, real_8 _p_ cc_, int_4 _p_ im1_, int_4 _p_ in1_, real_8 _p_
5690 ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_8 _p_ wa1_, real_8 _p_ wa2_)
5691 { // ** body not listed **
5772 }
5773
5774 int_4 _dmradb4 (int_4 _p_ m_, int_4 _p_ ido_, int_4 _p_ l1_, real_8 _p_ cc_, int_4 _p_ im1_, int_4 _p_ in1_, real_8 _p_
5775 ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_8 _p_ wa1_, real_8 _p_ wa2_, real_8 _p_ wa3_)
5776 { // ** body not listed **
5904 }
5905
5906 int_4 _dmradb5 (int_4 _p_ m_, int_4 _p_ ido_, int_4 _p_ l1_, real_8 _p_ cc_, int_4 _p_ im1_, int_4 _p_ in1_, real_8 _p_
5907 ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_8 _p_ wa1_, real_8 _p_ wa2_, real_8 _p_ wa3_, real_8 _p_ wa4_)
5908 { // ** body not listed **
6093 }
6094
6095 int_4 _dmradbg (int_4 _p_ m_, int_4 _p_ ido_, int_4 _p_ ip_, int_4 _p_ l1_, int_4 _p_ idl1_, real_8 _p_ cc_, real_8 _p_
6096 c1_, real_8 _p_ c2_, int_4 _p_ im1_, int_4 _p_ in1_, real_8 _p_ ch_, real_8 _p_ ch2_, int_4 _p_ im2_, int_4 _p_ in2_,
6097 real_8 _p_ wa_)
6098 { // ** body not listed **
6398 }
6399
6400 int_4 _dmradf2 (int_4 _p_ m_, int_4 _p_ ido_, int_4 _p_ l1_, real_8 _p_ cc_, int_4 _p_ im1_, int_4 _p_ in1_, real_8 _p_
6401 ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_8 _p_ wa1_)
6402 { // ** body not listed **
6471 }
6472
6473 int_4 _dmradf3 (int_4 _p_ m_, int_4 _p_ ido_, int_4 _p_ l1_, real_8 _p_ cc_, int_4 _p_ im1_, int_4 _p_ in1_, real_8 _p_
6474 ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_8 _p_ wa1_, real_8 _p_ wa2_)
6475 { // ** body not listed **
6561 }
6562
6563 int_4 _dmradf4 (int_4 _p_ m_, int_4 _p_ ido_, int_4 _p_ l1_, real_8 _p_ cc_, int_4 _p_ im1_, int_4 _p_ in1_, real_8 _p_
6564 ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_8 _p_ wa1_, real_8 _p_ wa2_, real_8 _p_ wa3_)
6565 { // ** body not listed **
6696 }
6697
6698 int_4 _dmradf5 (int_4 _p_ m_, int_4 _p_ ido_, int_4 _p_ l1_, real_8 _p_ cc_, int_4 _p_ im1_, int_4 _p_ in1_, real_8 _p_
6699 ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_8 _p_ wa1_, real_8 _p_ wa2_, real_8 _p_ wa3_, real_8 _p_ wa4_)
6700 { // ** body not listed **
6909 }
6910
6911 int_4 _dmradfg (int_4 _p_ m_, int_4 _p_ ido_, int_4 _p_ ip_, int_4 _p_ l1_, int_4 _p_ idl1_, real_8 _p_ cc_, real_8 _p_
6912 c1_, real_8 _p_ c2_, int_4 _p_ im1_, int_4 _p_ in1_, real_8 _p_ ch_, real_8 _p_ ch2_, int_4 _p_ im2_, int_4 _p_ in2_,
6913 real_8 _p_ wa_)
6914 { // ** body not listed **
7220 }
7221
7222 int_4 _dmrftb1 (int_4 _p_ m_, int_4 _p_ im_, int_4 _p_ n_, int_4 _p_ in_, real_8 _p_ c_, real_8 _p_ ch_, real_8 _p_ wa_
7223 , real_8 _p_ fac_)
7224 { // ** body not listed **
7364 }
7365
7366 int_4 _dmrftf1 (int_4 _p_ m_, int_4 _p_ im_, int_4 _p_ n_, int_4 _p_ in_, real_8 _p_ c_, real_8 _p_ ch_, real_8 _p_ wa_
7367 , real_8 _p_ fac_)
7368 { // ** body not listed **
7512 }
7513
7514 int_4 _dmrfti1 (int_4 _p_ n_, real_8 _p_ wa_, real_8 _p_ fac_)
7515 { // ** body not listed **
7629 }
7630
7631 int_4 _dmsntb1 (int_4 _p_ lot_, int_4 _p_ jump_, int_4 _p_ n_, int_4 _p_ inc_, real_8 _p_ x_, real_8 _p_ wsave_, real_8
7632 _p_ dsum_, real_8 _p_ xh_, real_4 _p_ work_, int_4 _p_ ier_)
7633 { // ** body not listed **
7727 }
7728
7729 int_4 _dmsntf1 (int_4 _p_ lot_, int_4 _p_ jump_, int_4 _p_ n_, int_4 _p_ inc_, real_8 _p_ x_, real_8 _p_ wsave_, real_8
7730 _p_ dsum_, real_8 _p_ xh_, real_4 _p_ work_, int_4 _p_ ier_)
7731 { // ** body not listed **
7826 }
7827
7828 int_4 _dr1f2kb (int_4 _p_ ido_, int_4 _p_ l1_, real_8 _p_ cc_, int_4 _p_ in1_, real_8 _p_ ch_, int_4 _p_ in2_, real_8
7829 _p_ wa1_)
7830 { // ** body not listed **
7880 }
7881
7882 int_4 _dr1f2kf (int_4 _p_ ido_, int_4 _p_ l1_, real_8 _p_ cc_, int_4 _p_ in1_, real_8 _p_ ch_, int_4 _p_ in2_, real_8
7883 _p_ wa1_)
7884 { // ** body not listed **
7936 }
7937
7938 int_4 _dr1f3kb (int_4 _p_ ido_, int_4 _p_ l1_, real_8 _p_ cc_, int_4 _p_ in1_, real_8 _p_ ch_, int_4 _p_ in2_, real_8
7939 _p_ wa1_, real_8 _p_ wa2_)
7940 { // ** body not listed **
8006 }
8007
8008 int_4 _dr1f3kf (int_4 _p_ ido_, int_4 _p_ l1_, real_8 _p_ cc_, int_4 _p_ in1_, real_8 _p_ ch_, int_4 _p_ in2_, real_8
8009 _p_ wa1_, real_8 _p_ wa2_)
8010 { // ** body not listed **
8084 }
8085
8086 int_4 _dr1f4kb (int_4 _p_ ido_, int_4 _p_ l1_, real_8 _p_ cc_, int_4 _p_ in1_, real_8 _p_ ch_, int_4 _p_ in2_, real_8
8087 _p_ wa1_, real_8 _p_ wa2_, real_8 _p_ wa3_)
8088 { // ** body not listed **
8200 }
8201
8202 int_4 _dr1f4kf (int_4 _p_ ido_, int_4 _p_ l1_, real_8 _p_ cc_, int_4 _p_ in1_, real_8 _p_ ch_, int_4 _p_ in2_, real_8
8203 _p_ wa1_, real_8 _p_ wa2_, real_8 _p_ wa3_)
8204 { // ** body not listed **
8316 }
8317
8318 int_4 _dr1f5kb (int_4 _p_ ido_, int_4 _p_ l1_, real_8 _p_ cc_, int_4 _p_ in1_, real_8 _p_ ch_, int_4 _p_ in2_, real_8
8319 _p_ wa1_, real_8 _p_ wa2_, real_8 _p_ wa3_, real_8 _p_ wa4_)
8320 { // ** body not listed **
8485 }
8486
8487 int_4 _dr1f5kf (int_4 _p_ ido_, int_4 _p_ l1_, real_8 _p_ cc_, int_4 _p_ in1_, real_8 _p_ ch_, int_4 _p_ in2_, real_8
8488 _p_ wa1_, real_8 _p_ wa2_, real_8 _p_ wa3_, real_8 _p_ wa4_)
8489 { // ** body not listed **
8677 }
8678
8679 int_4 _dr1fgkb (int_4 _p_ ido_, int_4 _p_ ip_, int_4 _p_ l1_, int_4 _p_ idl1_, real_8 _p_ cc_, real_8 _p_ c1_, real_8
8680 _p_ c2_, int_4 _p_ in1_, real_8 _p_ ch_, real_8 _p_ ch2_, int_4 _p_ in2_, real_8 _p_ wa_)
8681 { // ** body not listed **
8916 }
8917
8918 int_4 _dr1fgkf (int_4 _p_ ido_, int_4 _p_ ip_, int_4 _p_ l1_, int_4 _p_ idl1_, real_8 _p_ cc_, real_8 _p_ c1_, real_8
8919 _p_ c2_, int_4 _p_ in1_, real_8 _p_ ch_, real_8 _p_ ch2_, int_4 _p_ in2_, real_8 _p_ wa_)
8920 { // ** body not listed **
9156 }
9157
9158 int_4 _dr2w (int_4 _p_ ldr_, int_4 _p_ ldw_, int_4 _p_ l_, int_4 _p_ m_, real_8 _p_ r_, real_8 _p_ w_)
9159 { // ** body not listed **
9168 }
9169
9170 int_4 _drfft1b (int_4 _p_ n_, int_4 _p_ inc_, real_8 _p_ r_, int_4 _p_ lenr_, real_8 _p_ wsave_, int_4 _p_ lensav_,
9171 real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
9172 { // ** body not listed **
9195 }
9196
9197 int_4 _drfft1f (int_4 _p_ n_, int_4 _p_ inc_, real_8 _p_ r_, int_4 _p_ lenr_, real_8 _p_ wsave_, int_4 _p_ lensav_,
9198 real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
9199 { // ** body not listed **
9222 }
9223
9224 int_4 _drfft1i (int_4 _p_ n_, real_8 _p_ wsave_, int_4 _p_ lensav_, int_4 _p_ ier_)
9225 { // ** body not listed **
9240 }
9241
9242 int_4 _drfft2b (int_4 _p_ ldim_, int_4 _p_ l_, int_4 _p_ m_, real_8 _p_ r_, real_8 _p_ wsave_, int_4 _p_ lensav_,
9243 real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
9244 { // ** body not listed **
9330 }
9331
9332 int_4 _drfft2f (int_4 _p_ ldim_, int_4 _p_ l_, int_4 _p_ m_, real_8 _p_ r_, real_8 _p_ wsave_, int_4 _p_ lensav_,
9333 real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
9334 { // ** body not listed **
9419 }
9420
9421 int_4 _drfft2i (int_4 _p_ l_, int_4 _p_ m_, real_8 _p_ wsave_, int_4 _p_ lensav_, int_4 _p_ ier_)
9422 { // ** body not listed **
9458 }
9459
9460 int_4 _drfftb1 (int_4 _p_ n_, int_4 _p_ in_, real_8 _p_ c_, real_8 _p_ ch_, real_8 _p_ wa_, real_8 _p_ fac_)
9461 { // ** body not listed **
9587 }
9588
9589 int_4 _drfftf1 (int_4 _p_ n_, int_4 _p_ in_, real_8 _p_ c_, real_8 _p_ ch_, real_8 _p_ wa_, real_8 _p_ fac_)
9590 { // ** body not listed **
9708 }
9709
9710 int_4 _drffti1 (int_4 _p_ n_, real_8 _p_ wa_, real_8 _p_ fac_)
9711 { // ** body not listed **
9825 }
9826
9827 int_4 _drfftmb (int_4 _p_ lot_, int_4 _p_ jump_, int_4 _p_ n_, int_4 _p_ inc_, real_8 _p_ r_, int_4 _p_ lenr_, real_8
9828 _p_ wsave_, int_4 _p_ lensav_, real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
9829 { // ** body not listed **
9856 }
9857
9858 int_4 _drfftmf (int_4 _p_ lot_, int_4 _p_ jump_, int_4 _p_ n_, int_4 _p_ inc_, real_8 _p_ r_, int_4 _p_ lenr_, real_8
9859 _p_ wsave_, int_4 _p_ lensav_, real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
9860 { // ** body not listed **
9887 }
9888
9889 int_4 _drfftmi (int_4 _p_ n_, real_8 _p_ wsave_, int_4 _p_ lensav_, int_4 _p_ ier_)
9890 { // ** body not listed **
9905 }
9906
9907 int_4 _dsinq1b (int_4 _p_ n_, int_4 _p_ inc_, real_8 _p_ x_, int_4 _p_ lenx_, real_8 _p_ wsave_, int_4 _p_ lensav_,
9908 real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
9909 { // ** body not listed **
9952 }
9953
9954 int_4 _dsinq1f (int_4 _p_ n_, int_4 _p_ inc_, real_8 _p_ x_, int_4 _p_ lenx_, real_8 _p_ wsave_, int_4 _p_ lensav_,
9955 real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
9956 { // ** body not listed **
10000 }
10001
10002 int_4 _dsinq1i (int_4 _p_ n_, real_8 _p_ wsave_, int_4 _p_ lensav_, int_4 _p_ ier_)
10003 { // ** body not listed **
10021 }
10022
10023 int_4 _dsinqmb (int_4 _p_ lot_, int_4 _p_ jump_, int_4 _p_ n_, int_4 _p_ inc_, real_8 _p_ x_, int_4 _p_ lenx_, real_8
10024 _p_ wsave_, int_4 _p_ lensav_, real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
10025 { // ** body not listed **
10080 }
10081
10082 int_4 _dsinqmf (int_4 _p_ lot_, int_4 _p_ jump_, int_4 _p_ n_, int_4 _p_ inc_, real_8 _p_ x_, int_4 _p_ lenx_, real_8
10083 _p_ wsave_, int_4 _p_ lensav_, real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
10084 { // ** body not listed **
10138 }
10139
10140 int_4 _dsinqmi (int_4 _p_ n_, real_8 _p_ wsave_, int_4 _p_ lensav_, int_4 _p_ ier_)
10141 { // ** body not listed **
10159 }
10160
10161 int_4 _dsint1b (int_4 _p_ n_, int_4 _p_ inc_, real_8 _p_ x_, int_4 _p_ lenx_, real_8 _p_ wsave_, int_4 _p_ lensav_,
10162 real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
10163 { // ** body not listed **
10191 }
10192
10193 int_4 _dsint1f (int_4 _p_ n_, int_4 _p_ inc_, real_8 _p_ x_, int_4 _p_ lenx_, real_8 _p_ wsave_, int_4 _p_ lensav_,
10194 real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
10195 { // ** body not listed **
10223 }
10224
10225 int_4 _dsint1i (int_4 _p_ n_, real_8 _p_ wsave_, int_4 _p_ lensav_, int_4 _p_ ier_)
10226 { // ** body not listed **
10258 }
10259
10260 int_4 _dsintb1 (int_4 _p_ n_, int_4 _p_ inc_, real_8 _p_ x_, real_8 _p_ wsave_, real_8 _p_ xh_, real_4 _p_ work_, int_4
10261 _p_ ier_)
10262 { // ** body not listed **
10329 }
10330
10331 int_4 _dsintf1 (int_4 _p_ n_, int_4 _p_ inc_, real_8 _p_ x_, real_8 _p_ wsave_, real_8 _p_ xh_, real_4 _p_ work_, int_4
10332 _p_ ier_)
10333 { // ** body not listed **
10400 }
10401
10402 int_4 _dsintmb (int_4 _p_ lot_, int_4 _p_ jump_, int_4 _p_ n_, int_4 _p_ inc_, real_8 _p_ x_, int_4 _p_ lenx_, real_8
10403 _p_ wsave_, int_4 _p_ lensav_, real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
10404 { // ** body not listed **
10439 }
10440
10441 int_4 _dsintmf (int_4 _p_ lot_, int_4 _p_ jump_, int_4 _p_ n_, int_4 _p_ inc_, real_8 _p_ x_, int_4 _p_ lenx_, real_8
10442 _p_ wsave_, int_4 _p_ lensav_, real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
10443 { // ** body not listed **
10478 }
10479
10480 int_4 _dsintmi (int_4 _p_ n_, real_8 _p_ wsave_, int_4 _p_ lensav_, int_4 _p_ ier_)
10481 { // ** body not listed **
10513 }
10514
10515 int_4 _dtables (int_4 _p_ ido_, int_4 _p_ ip_, real_8 _p_ wa_)
10516 { // ** body not listed **
10539 }
10540
10541 int_4 _dw2r (int_4 _p_ ldr_, int_4 _p_ ldw_, int_4 _p_ l_, int_4 _p_ m_, real_8 _p_ r_, real_8 _p_ w_)
10542 { // ** body not listed **
10551 }
10552
10553 logical_4 _xercon (int_4 _p_ inc_, int_4 _p_ jump_, int_4 _p_ n_, int_4 _p_ lot_)
10554 { // ** body not listed **
10575 }
10576
10577 int_4 _xerfft (char _p_ srname_, int_4 _p_ info_)
10578 { // ** body not listed **
11102 }
11103
11104 int_4 _c1f2kb (int_4 _p_ ido_, int_4 _p_ l1_, int_4 _p_ na_, real_4 _p_ cc_, int_4 _p_ in1_, real_4 _p_ ch_, int_4 _p_
11105 in2_, real_4 _p_ wa_)
11106 { // ** body not listed **
11158 }
11159
11160 int_4 _c1f2kf (int_4 _p_ ido_, int_4 _p_ l1_, int_4 _p_ na_, real_4 _p_ cc_, int_4 _p_ in1_, real_4 _p_ ch_, int_4 _p_
11161 in2_, real_4 _p_ wa_)
11162 { // ** body not listed **
11227 }
11228
11229 int_4 _c1f3kb (int_4 _p_ ido_, int_4 _p_ l1_, int_4 _p_ na_, real_4 _p_ cc_, int_4 _p_ in1_, real_4 _p_ ch_, int_4 _p_
11230 in2_, real_4 _p_ wa_)
11231 { // ** body not listed **
11332 }
11333
11334 int_4 _c1f3kf (int_4 _p_ ido_, int_4 _p_ l1_, int_4 _p_ na_, real_4 _p_ cc_, int_4 _p_ in1_, real_4 _p_ ch_, int_4 _p_
11335 in2_, real_4 _p_ wa_)
11336 { // ** body not listed **
11460 }
11461
11462 int_4 _c1f4kb (int_4 _p_ ido_, int_4 _p_ l1_, int_4 _p_ na_, real_4 _p_ cc_, int_4 _p_ in1_, real_4 _p_ ch_, int_4 _p_
11463 in2_, real_4 _p_ wa_)
11464 { // ** body not listed **
11570 }
11571
11572 int_4 _c1f4kf (int_4 _p_ ido_, int_4 _p_ l1_, int_4 _p_ na_, real_4 _p_ cc_, int_4 _p_ in1_, real_4 _p_ ch_, int_4 _p_
11573 in2_, real_4 _p_ wa_)
11574 { // ** body not listed **
11709 }
11710
11711 int_4 _c1f5kb (int_4 _p_ ido_, int_4 _p_ l1_, int_4 _p_ na_, real_4 _p_ cc_, int_4 _p_ in1_, real_4 _p_ ch_, int_4 _p_
11712 in2_, real_4 _p_ wa_)
11713 { // ** body not listed **
11887 }
11888
11889 int_4 _c1f5kf (int_4 _p_ ido_, int_4 _p_ l1_, int_4 _p_ na_, real_4 _p_ cc_, int_4 _p_ in1_, real_4 _p_ ch_, int_4 _p_
11890 in2_, real_4 _p_ wa_)
11891 { // ** body not listed **
12106 }
12107
12108 int_4 _c1fgkb (int_4 _p_ ido_, int_4 _p_ ip_, int_4 _p_ l1_, int_4 _p_ lid_, int_4 _p_ na_, real_4 _p_ cc_, real_4 _p_
12109 cc1_, int_4 _p_ in1_, real_4 _p_ ch_, real_4 _p_ ch1_, int_4 _p_ in2_, real_4 _p_ wa_)
12110 { // ** body not listed **
12242 }
12243
12244 int_4 _c1fgkf (int_4 _p_ ido_, int_4 _p_ ip_, int_4 _p_ l1_, int_4 _p_ lid_, int_4 _p_ na_, real_4 _p_ cc_, real_4 _p_
12245 cc1_, int_4 _p_ in1_, real_4 _p_ ch_, real_4 _p_ ch1_, int_4 _p_ in2_, real_4 _p_ wa_)
12246 { // ** body not listed **
12402 }
12403
12404 int_4 _c1fm1b (int_4 _p_ n_, int_4 _p_ inc_, complex_8 _p_ c_, real_4 _p_ ch_, real_4 _p_ wa_, real_4 _p_ fnf_, real_4
12405 _p_ fac_)
12406 { // ** body not listed **
12471 }
12472
12473 int_4 _c1fm1f (int_4 _p_ n_, int_4 _p_ inc_, complex_8 _p_ c_, real_4 _p_ ch_, real_4 _p_ wa_, real_4 _p_ fnf_, real_4
12474 _p_ fac_)
12475 { // ** body not listed **
12540 }
12541
12542 int_4 _cfft1b (int_4 _p_ n_, int_4 _p_ inc_, complex_8 _p_ c_, int_4 _p_ lenc_, real_4 _p_ wsave_, int_4 _p_ lensav_,
12543 real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
12544 { // ** body not listed **
12569 }
12570
12571 int_4 _cfft1f (int_4 _p_ n_, int_4 _p_ inc_, complex_8 _p_ c_, int_4 _p_ lenc_, real_4 _p_ wsave_, int_4 _p_ lensav_,
12572 real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
12573 { // ** body not listed **
12598 }
12599
12600 int_4 _cfft1i (int_4 _p_ n_, real_4 _p_ wsave_, int_4 _p_ lensav_, int_4 _p_ ier_)
12601 { // ** body not listed **
12618 }
12619
12620 int_4 _cfft2b (int_4 _p_ ldim_, int_4 _p_ l_, int_4 _p_ m_, complex_8 _p_ c_, real_4 _p_ wsave_, int_4 _p_ lensav_,
12621 real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
12622 { // ** body not listed **
12666 }
12667
12668 int_4 _cfft2f (int_4 _p_ ldim_, int_4 _p_ l_, int_4 _p_ m_, complex_8 _p_ c_, real_4 _p_ wsave_, int_4 _p_ lensav_,
12669 real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
12670 { // ** body not listed **
12714 }
12715
12716 int_4 _cfft2i (int_4 _p_ l_, int_4 _p_ m_, real_4 _p_ wsave_, int_4 _p_ lensav_, int_4 _p_ ier_)
12717 { // ** body not listed **
12746 }
12747
12748 int_4 _cfftmb (int_4 _p_ lot_, int_4 _p_ jump_, int_4 _p_ n_, int_4 _p_ inc_, complex_8 _p_ c_, int_4 _p_ lenc_, real_4
12749 _p_ wsave_, int_4 _p_ lensav_, real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
12750 { // ** body not listed **
12779 }
12780
12781 int_4 _cfftmf (int_4 _p_ lot_, int_4 _p_ jump_, int_4 _p_ n_, int_4 _p_ inc_, complex_8 _p_ c_, int_4 _p_ lenc_, real_4
12782 _p_ wsave_, int_4 _p_ lensav_, real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
12783 { // ** body not listed **
12812 }
12813
12814 int_4 _cfftmi (int_4 _p_ n_, real_4 _p_ wsave_, int_4 _p_ lensav_, int_4 _p_ ier_)
12815 { // ** body not listed **
12832 }
12833
12834 int_4 _cmf2kb (int_4 _p_ lot_, int_4 _p_ ido_, int_4 _p_ l1_, int_4 _p_ na_, real_4 _p_ cc_, int_4 _p_ im1_, int_4 _p_
12835 in1_, real_4 _p_ ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_4 _p_ wa_)
12836 { // ** body not listed **
12908 }
12909
12910 int_4 _cmf2kf (int_4 _p_ lot_, int_4 _p_ ido_, int_4 _p_ l1_, int_4 _p_ na_, real_4 _p_ cc_, int_4 _p_ im1_, int_4 _p_
12911 in1_, real_4 _p_ ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_4 _p_ wa_)
12912 { // ** body not listed **
13005 }
13006
13007 int_4 _cmf3kb (int_4 _p_ lot_, int_4 _p_ ido_, int_4 _p_ l1_, int_4 _p_ na_, real_4 _p_ cc_, int_4 _p_ im1_, int_4 _p_
13008 in1_, real_4 _p_ ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_4 _p_ wa_)
13009 { // ** body not listed **
13122 }
13123
13124 int_4 _cmf3kf (int_4 _p_ lot_, int_4 _p_ ido_, int_4 _p_ l1_, int_4 _p_ na_, real_4 _p_ cc_, int_4 _p_ im1_, int_4 _p_
13125 in1_, real_4 _p_ ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_4 _p_ wa_)
13126 { // ** body not listed **
13266 }
13267
13268 int_4 _cmf4kb (int_4 _p_ lot_, int_4 _p_ ido_, int_4 _p_ l1_, int_4 _p_ na_, real_4 _p_ cc_, int_4 _p_ im1_, int_4 _p_
13269 in1_, real_4 _p_ ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_4 _p_ wa_)
13270 { // ** body not listed **
13388 }
13389
13390 int_4 _cmf4kf (int_4 _p_ lot_, int_4 _p_ ido_, int_4 _p_ l1_, int_4 _p_ na_, real_4 _p_ cc_, int_4 _p_ im1_, int_4 _p_
13391 in1_, real_4 _p_ ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_4 _p_ wa_)
13392 { // ** body not listed **
13543 }
13544
13545 int_4 _cmf5kb (int_4 _p_ lot_, int_4 _p_ ido_, int_4 _p_ l1_, int_4 _p_ na_, real_4 _p_ cc_, int_4 _p_ im1_, int_4 _p_
13546 in1_, real_4 _p_ ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_4 _p_ wa_)
13547 { // ** body not listed **
13745 }
13746
13747 int_4 _cmf5kf (int_4 _p_ lot_, int_4 _p_ ido_, int_4 _p_ l1_, int_4 _p_ na_, real_4 _p_ cc_, int_4 _p_ im1_, int_4 _p_
13748 in1_, real_4 _p_ ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_4 _p_ wa_)
13749 { // ** body not listed **
13998 }
13999
14000 int_4 _cmfgkb (int_4 _p_ lot_, int_4 _p_ ido_, int_4 _p_ ip_, int_4 _p_ l1_, int_4 _p_ lid_, int_4 _p_ na_, real_4 _p_
14001 cc_, real_4 _p_ cc1_, int_4 _p_ im1_, int_4 _p_ in1_, real_4 _p_ ch_, real_4 _p_ ch1_, int_4 _p_ im2_, int_4 _p_ in2_,
14002 real_4 _p_ wa_)
14003 { // ** body not listed **
14199 }
14200 int_4 _cmfgkf (int_4 _p_ lot_, int_4 _p_ ido_, int_4 _p_ ip_, int_4 _p_ l1_, int_4 _p_ lid_, int_4 _p_ na_, real_4 _p_
14201 cc_, real_4 _p_ cc1_, int_4 _p_ im1_, int_4 _p_ in1_, real_4 _p_ ch_, real_4 _p_ ch1_, int_4 _p_ im2_, int_4 _p_ in2_,
14202 real_4 _p_ wa_)
14203 { // ** body not listed **
14443 }
14444
14445 int_4 _cmfm1b (int_4 _p_ lot_, int_4 _p_ jump_, int_4 _p_ n_, int_4 _p_ inc_, complex_8 _p_ c_, real_4 _p_ ch_, real_4
14446 _p_ wa_, real_4 _p_ fnf_, real_4 _p_ fac_)
14447 { // ** body not listed **
14510 }
14511
14512 int_4 _cmfm1f (int_4 _p_ lot_, int_4 _p_ jump_, int_4 _p_ n_, int_4 _p_ inc_, complex_8 _p_ c_, real_4 _p_ ch_, real_4
14513 _p_ wa_, real_4 _p_ fnf_, real_4 _p_ fac_)
14514 { // ** body not listed **
14577 }
14578
14579 int_4 _cosq1b (int_4 _p_ n_, int_4 _p_ inc_, real_4 _p_ x_, int_4 _p_ lenx_, real_4 _p_ wsave_, int_4 _p_ lensav_,
14580 real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
14581 { // ** body not listed **
14626 }
14627
14628 int_4 _cosq1f (int_4 _p_ n_, int_4 _p_ inc_, real_4 _p_ x_, int_4 _p_ lenx_, real_4 _p_ wsave_, int_4 _p_ lensav_,
14629 real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
14630 { // ** body not listed **
14676 }
14677
14678 int_4 _cosq1i (int_4 _p_ n_, real_4 _p_ wsave_, int_4 _p_ lensav_, int_4 _p_ ier_)
14679 { // ** body not listed **
14707 }
14708
14709 int_4 _cosqb1 (int_4 _p_ n_, int_4 _p_ inc_, real_4 _p_ x_, real_4 _p_ wsave_, real_4 _p_ work_, int_4 _p_ ier_)
14710 { // ** body not listed **
14761 }
14762
14763 int_4 _cosqf1 (int_4 _p_ n_, int_4 _p_ inc_, real_4 _p_ x_, real_4 _p_ wsave_, real_4 _p_ work_, int_4 _p_ ier_)
14764 { // ** body not listed **
14810 }
14811
14812 int_4 _cosqmb (int_4 _p_ lot_, int_4 _p_ jump_, int_4 _p_ n_, int_4 _p_ inc_, real_4 _p_ x_, int_4 _p_ lenx_, real_4
14813 _p_ wsave_, int_4 _p_ lensav_, real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
14814 { // ** body not listed **
14872 }
14873
14874 int_4 _cosqmf (int_4 _p_ lot_, int_4 _p_ jump_, int_4 _p_ n_, int_4 _p_ inc_, real_4 _p_ x_, int_4 _p_ lenx_, real_4
14875 _p_ wsave_, int_4 _p_ lensav_, real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
14876 { // ** body not listed **
14930 }
14931
14932 int_4 _cosqmi (int_4 _p_ n_, real_4 _p_ wsave_, int_4 _p_ lensav_, int_4 _p_ ier_)
14933 { // ** body not listed **
14961 }
14962
14963 int_4 _cost1b (int_4 _p_ n_, int_4 _p_ inc_, real_4 _p_ x_, int_4 _p_ lenx_, real_4 _p_ wsave_, int_4 _p_ lensav_,
14964 real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
14965 { // ** body not listed **
14997 }
14998
14999 int_4 _cost1f (int_4 _p_ n_, int_4 _p_ inc_, real_4 _p_ x_, int_4 _p_ lenx_, real_4 _p_ wsave_, int_4 _p_ lensav_,
15000 real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
15001 { // ** body not listed **
15033 }
15034
15035 int_4 _cost1i (int_4 _p_ n_, real_4 _p_ wsave_, int_4 _p_ lensav_, int_4 _p_ ier_)
15036 { // ** body not listed **
15073 }
15074
15075 int_4 _costb1 (int_4 _p_ n_, int_4 _p_ inc_, real_4 _p_ x_, real_4 _p_ wsave_, real_4 _p_ work_, int_4 _p_ ier_)
15076 { // ** body not listed **
15161 }
15162
15163 int_4 _costf1 (int_4 _p_ n_, int_4 _p_ inc_, real_4 _p_ x_, real_4 _p_ wsave_, real_4 _p_ work_, int_4 _p_ ier_)
15164 { // ** body not listed **
15247 }
15248
15249 int_4 _costmb (int_4 _p_ lot_, int_4 _p_ jump_, int_4 _p_ n_, int_4 _p_ inc_, real_4 _p_ x_, int_4 _p_ lenx_, real_4
15250 _p_ wsave_, int_4 _p_ lensav_, real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
15251 { // ** body not listed **
15285 }
15286
15287 int_4 _costmf (int_4 _p_ lot_, int_4 _p_ jump_, int_4 _p_ n_, int_4 _p_ inc_, real_4 _p_ x_, int_4 _p_ lenx_, real_4
15288 _p_ wsave_, int_4 _p_ lensav_, real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
15289 { // ** body not listed **
15323 }
15324
15325 int_4 _costmi (int_4 _p_ n_, real_4 _p_ wsave_, int_4 _p_ lensav_, int_4 _p_ ier_)
15326 { // ** body not listed **
15363 }
15364
15365 int_4 _factor (int_4 _p_ n_, int_4 _p_ nf_, real_4 _p_ fac_)
15366 { // ** body not listed **
15433 }
15434
15435 int_4 _mcfti1 (int_4 _p_ n_, real_4 _p_ wa_, real_4 _p_ fnf_, real_4 _p_ fac_)
15436 { // ** body not listed **
15452 }
15453
15454 int_4 _mcsqb1 (int_4 _p_ lot_, int_4 _p_ jump_, int_4 _p_ n_, int_4 _p_ inc_, real_4 _p_ x_, real_4 _p_ wsave_, real_4
15455 _p_ work_, int_4 _p_ ier_)
15456 { // ** body not listed **
15529 }
15530
15531 int_4 _mcsqf1 (int_4 _p_ lot_, int_4 _p_ jump_, int_4 _p_ n_, int_4 _p_ inc_, real_4 _p_ x_, real_4 _p_ wsave_, real_4
15532 _p_ work_, int_4 _p_ ier_)
15533 { // ** body not listed **
15602 }
15603
15604 int_4 _mcstb1 (int_4 _p_ lot_, int_4 _p_ jump_, int_4 _p_ n_, int_4 _p_ inc_, real_4 _p_ x_, real_4 _p_ wsave_, real_8
15605 _p_ dsum_, real_4 _p_ work_, int_4 _p_ ier_)
15606 { // ** body not listed **
15723 }
15724
15725 int_4 _mcstf1 (int_4 _p_ lot_, int_4 _p_ jump_, int_4 _p_ n_, int_4 _p_ inc_, real_4 _p_ x_, real_4 _p_ wsave_, real_8
15726 _p_ dsum_, real_4 _p_ work_, int_4 _p_ ier_)
15727 { // ** body not listed **
15839 }
15840
15841 int_4 _mradb2 (int_4 _p_ m_, int_4 _p_ ido_, int_4 _p_ l1_, real_4 _p_ cc_, int_4 _p_ im1_, int_4 _p_ in1_, real_4 _p_
15842 ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_4 _p_ wa1_)
15843 { // ** body not listed **
15913 }
15914
15915 int_4 _mradb3 (int_4 _p_ m_, int_4 _p_ ido_, int_4 _p_ l1_, real_4 _p_ cc_, int_4 _p_ im1_, int_4 _p_ in1_, real_4 _p_
15916 ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_4 _p_ wa1_, real_4 _p_ wa2_)
15917 { // ** body not listed **
15998 }
15999
16000 int_4 _mradb4 (int_4 _p_ m_, int_4 _p_ ido_, int_4 _p_ l1_, real_4 _p_ cc_, int_4 _p_ im1_, int_4 _p_ in1_, real_4 _p_
16001 ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_4 _p_ wa1_, real_4 _p_ wa2_, real_4 _p_ wa3_)
16002 { // ** body not listed **
16130 }
16131
16132 int_4 _mradb5 (int_4 _p_ m_, int_4 _p_ ido_, int_4 _p_ l1_, real_4 _p_ cc_, int_4 _p_ im1_, int_4 _p_ in1_, real_4 _p_
16133 ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_4 _p_ wa1_, real_4 _p_ wa2_, real_4 _p_ wa3_, real_4 _p_ wa4_)
16134 { // ** body not listed **
16319 }
16320
16321 int_4 _mradbg (int_4 _p_ m_, int_4 _p_ ido_, int_4 _p_ ip_, int_4 _p_ l1_, int_4 _p_ idl1_, real_4 _p_ cc_, real_4 _p_
16322 c1_, real_4 _p_ c2_, int_4 _p_ im1_, int_4 _p_ in1_, real_4 _p_ ch_, real_4 _p_ ch2_, int_4 _p_ im2_, int_4 _p_ in2_,
16323 real_4 _p_ wa_)
16324 { // ** body not listed **
16624 }
16625
16626 int_4 _mradf2 (int_4 _p_ m_, int_4 _p_ ido_, int_4 _p_ l1_, real_4 _p_ cc_, int_4 _p_ im1_, int_4 _p_ in1_, real_4 _p_
16627 ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_4 _p_ wa1_)
16628 { // ** body not listed **
16697 }
16698
16699 int_4 _mradf3 (int_4 _p_ m_, int_4 _p_ ido_, int_4 _p_ l1_, real_4 _p_ cc_, int_4 _p_ im1_, int_4 _p_ in1_, real_4 _p_
16700 ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_4 _p_ wa1_, real_4 _p_ wa2_)
16701 { // ** body not listed **
16787 }
16788
16789 int_4 _mradf4 (int_4 _p_ m_, int_4 _p_ ido_, int_4 _p_ l1_, real_4 _p_ cc_, int_4 _p_ im1_, int_4 _p_ in1_, real_4 _p_
16790 ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_4 _p_ wa1_, real_4 _p_ wa2_, real_4 _p_ wa3_)
16791 { // ** body not listed **
16922 }
16923
16924 int_4 _mradf5 (int_4 _p_ m_, int_4 _p_ ido_, int_4 _p_ l1_, real_4 _p_ cc_, int_4 _p_ im1_, int_4 _p_ in1_, real_4 _p_
16925 ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_4 _p_ wa1_, real_4 _p_ wa2_, real_4 _p_ wa3_, real_4 _p_ wa4_)
16926 { // ** body not listed **
17135 }
17136
17137 int_4 _mradfg (int_4 _p_ m_, int_4 _p_ ido_, int_4 _p_ ip_, int_4 _p_ l1_, int_4 _p_ idl1_, real_4 _p_ cc_, real_4 _p_
17138 c1_, real_4 _p_ c2_, int_4 _p_ im1_, int_4 _p_ in1_, real_4 _p_ ch_, real_4 _p_ ch2_, int_4 _p_ im2_, int_4 _p_ in2_,
17139 real_4 _p_ wa_)
17140 { // ** body not listed **
17446 }
17447
17448 int_4 _mrftb1 (int_4 _p_ m_, int_4 _p_ im_, int_4 _p_ n_, int_4 _p_ in_, real_4 _p_ c_, real_4 _p_ ch_, real_4 _p_ wa_,
17449 real_4 _p_ fac_)
17450 { // ** body not listed **
17590 }
17591
17592 int_4 _mrftf1 (int_4 _p_ m_, int_4 _p_ im_, int_4 _p_ n_, int_4 _p_ in_, real_4 _p_ c_, real_4 _p_ ch_, real_4 _p_ wa_,
17593 real_4 _p_ fac_)
17594 { // ** body not listed **
17738 }
17739
17740 int_4 _mrfti1 (int_4 _p_ n_, real_4 _p_ wa_, real_4 _p_ fac_)
17741 { // ** body not listed **
17855 }
17856
17857 int_4 _msntb1 (int_4 _p_ lot_, int_4 _p_ jump_, int_4 _p_ n_, int_4 _p_ inc_, real_4 _p_ x_, real_4 _p_ wsave_, real_8
17858 _p_ dsum_, real_4 _p_ xh_, real_4 _p_ work_, int_4 _p_ ier_)
17859 { // ** body not listed **
17953 }
17954
17955 int_4 _msntf1 (int_4 _p_ lot_, int_4 _p_ jump_, int_4 _p_ n_, int_4 _p_ inc_, real_4 _p_ x_, real_4 _p_ wsave_, real_8
17956 _p_ dsum_, real_4 _p_ xh_, real_4 _p_ work_, int_4 _p_ ier_)
17957 { // ** body not listed **
18052 }
18053
18054 int_4 _r1f2kb (int_4 _p_ ido_, int_4 _p_ l1_, real_4 _p_ cc_, int_4 _p_ in1_, real_4 _p_ ch_, int_4 _p_ in2_, real_4
18055 _p_ wa1_)
18056 { // ** body not listed **
18106 }
18107
18108 int_4 _r1f2kf (int_4 _p_ ido_, int_4 _p_ l1_, real_4 _p_ cc_, int_4 _p_ in1_, real_4 _p_ ch_, int_4 _p_ in2_, real_4
18109 _p_ wa1_)
18110 { // ** body not listed **
18162 }
18163
18164 int_4 _r1f3kb (int_4 _p_ ido_, int_4 _p_ l1_, real_4 _p_ cc_, int_4 _p_ in1_, real_4 _p_ ch_, int_4 _p_ in2_, real_4
18165 _p_ wa1_, real_4 _p_ wa2_)
18166 { // ** body not listed **
18232 }
18233
18234 int_4 _r1f3kf (int_4 _p_ ido_, int_4 _p_ l1_, real_4 _p_ cc_, int_4 _p_ in1_, real_4 _p_ ch_, int_4 _p_ in2_, real_4
18235 _p_ wa1_, real_4 _p_ wa2_)
18236 { // ** body not listed **
18310 }
18311
18312 int_4 _r1f4kb (int_4 _p_ ido_, int_4 _p_ l1_, real_4 _p_ cc_, int_4 _p_ in1_, real_4 _p_ ch_, int_4 _p_ in2_, real_4
18313 _p_ wa1_, real_4 _p_ wa2_, real_4 _p_ wa3_)
18314 { // ** body not listed **
18426 }
18427
18428 int_4 _r1f4kf (int_4 _p_ ido_, int_4 _p_ l1_, real_4 _p_ cc_, int_4 _p_ in1_, real_4 _p_ ch_, int_4 _p_ in2_, real_4
18429 _p_ wa1_, real_4 _p_ wa2_, real_4 _p_ wa3_)
18430 { // ** body not listed **
18542 }
18543
18544 int_4 _r1f5kb (int_4 _p_ ido_, int_4 _p_ l1_, real_4 _p_ cc_, int_4 _p_ in1_, real_4 _p_ ch_, int_4 _p_ in2_, real_4
18545 _p_ wa1_, real_4 _p_ wa2_, real_4 _p_ wa3_, real_4 _p_ wa4_)
18546 { // ** body not listed **
18711 }
18712
18713 int_4 _r1f5kf (int_4 _p_ ido_, int_4 _p_ l1_, real_4 _p_ cc_, int_4 _p_ in1_, real_4 _p_ ch_, int_4 _p_ in2_, real_4
18714 _p_ wa1_, real_4 _p_ wa2_, real_4 _p_ wa3_, real_4 _p_ wa4_)
18715 { // ** body not listed **
18903 }
18904
18905 int_4 _r1fgkb (int_4 _p_ ido_, int_4 _p_ ip_, int_4 _p_ l1_, int_4 _p_ idl1_, real_4 _p_ cc_, real_4 _p_ c1_, real_4
18906 _p_ c2_, int_4 _p_ in1_, real_4 _p_ ch_, real_4 _p_ ch2_, int_4 _p_ in2_, real_4 _p_ wa_)
18907 { // ** body not listed **
19142 }
19143
19144 int_4 _r1fgkf (int_4 _p_ ido_, int_4 _p_ ip_, int_4 _p_ l1_, int_4 _p_ idl1_, real_4 _p_ cc_, real_4 _p_ c1_, real_4
19145 _p_ c2_, int_4 _p_ in1_, real_4 _p_ ch_, real_4 _p_ ch2_, int_4 _p_ in2_, real_4 _p_ wa_)
19146 { // ** body not listed **
19382 }
19383
19384 int_4 _r2w (int_4 _p_ ldr_, int_4 _p_ ldw_, int_4 _p_ l_, int_4 _p_ m_, real_4 _p_ r_, real_4 _p_ w_)
19385 { // ** body not listed **
19394 }
19395
19396 int_4 _rfft1b (int_4 _p_ n_, int_4 _p_ inc_, real_4 _p_ r_, int_4 _p_ lenr_, real_4 _p_ wsave_, int_4 _p_ lensav_,
19397 real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
19398 { // ** body not listed **
19421 }
19422
19423 int_4 _rfft1f (int_4 _p_ n_, int_4 _p_ inc_, real_4 _p_ r_, int_4 _p_ lenr_, real_4 _p_ wsave_, int_4 _p_ lensav_,
19424 real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
19425 { // ** body not listed **
19448 }
19449
19450 int_4 _rfft1i (int_4 _p_ n_, real_4 _p_ wsave_, int_4 _p_ lensav_, int_4 _p_ ier_)
19451 { // ** body not listed **
19466 }
19467
19468 int_4 _rfft2b (int_4 _p_ ldim_, int_4 _p_ l_, int_4 _p_ m_, real_4 _p_ r_, real_4 _p_ wsave_, int_4 _p_ lensav_, real_4
19469 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
19470 { // ** body not listed **
19556 }
19557
19558 int_4 _rfft2f (int_4 _p_ ldim_, int_4 _p_ l_, int_4 _p_ m_, real_4 _p_ r_, real_4 _p_ wsave_, int_4 _p_ lensav_, real_4
19559 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
19560 { // ** body not listed **
19645 }
19646
19647 int_4 _rfft2i (int_4 _p_ l_, int_4 _p_ m_, real_4 _p_ wsave_, int_4 _p_ lensav_, int_4 _p_ ier_)
19648 { // ** body not listed **
19684 }
19685
19686 int_4 _rfftb1 (int_4 _p_ n_, int_4 _p_ in_, real_4 _p_ c_, real_4 _p_ ch_, real_4 _p_ wa_, real_4 _p_ fac_)
19687 { // ** body not listed **
19813 }
19814
19815 int_4 _rfftf1 (int_4 _p_ n_, int_4 _p_ in_, real_4 _p_ c_, real_4 _p_ ch_, real_4 _p_ wa_, real_4 _p_ fac_)
19816 { // ** body not listed **
19934 }
19935
19936 int_4 _rffti1 (int_4 _p_ n_, real_4 _p_ wa_, real_4 _p_ fac_)
19937 { // ** body not listed **
20051 }
20052
20053 int_4 _rfftmb (int_4 _p_ lot_, int_4 _p_ jump_, int_4 _p_ n_, int_4 _p_ inc_, real_4 _p_ r_, int_4 _p_ lenr_, real_4
20054 _p_ wsave_, int_4 _p_ lensav_, real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
20055 { // ** body not listed **
20082 }
20083
20084 int_4 _rfftmf (int_4 _p_ lot_, int_4 _p_ jump_, int_4 _p_ n_, int_4 _p_ inc_, real_4 _p_ r_, int_4 _p_ lenr_, real_4
20085 _p_ wsave_, int_4 _p_ lensav_, real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
20086 { // ** body not listed **
20113 }
20114
20115 int_4 _rfftmi (int_4 _p_ n_, real_4 _p_ wsave_, int_4 _p_ lensav_, int_4 _p_ ier_)
20116 { // ** body not listed **
20131 }
20132
20133 int_4 _sinq1b (int_4 _p_ n_, int_4 _p_ inc_, real_4 _p_ x_, int_4 _p_ lenx_, real_4 _p_ wsave_, int_4 _p_ lensav_,
20134 real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
20135 { // ** body not listed **
20178 }
20179
20180 int_4 _sinq1f (int_4 _p_ n_, int_4 _p_ inc_, real_4 _p_ x_, int_4 _p_ lenx_, real_4 _p_ wsave_, int_4 _p_ lensav_,
20181 real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
20182 { // ** body not listed **
20226 }
20227
20228 int_4 _sinq1i (int_4 _p_ n_, real_4 _p_ wsave_, int_4 _p_ lensav_, int_4 _p_ ier_)
20229 { // ** body not listed **
20247 }
20248
20249 int_4 _sinqmb (int_4 _p_ lot_, int_4 _p_ jump_, int_4 _p_ n_, int_4 _p_ inc_, real_4 _p_ x_, int_4 _p_ lenx_, real_4
20250 _p_ wsave_, int_4 _p_ lensav_, real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
20251 { // ** body not listed **
20306 }
20307
20308 int_4 _sinqmf (int_4 _p_ lot_, int_4 _p_ jump_, int_4 _p_ n_, int_4 _p_ inc_, real_4 _p_ x_, int_4 _p_ lenx_, real_4
20309 _p_ wsave_, int_4 _p_ lensav_, real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
20310 { // ** body not listed **
20364 }
20365
20366 int_4 _sinqmi (int_4 _p_ n_, real_4 _p_ wsave_, int_4 _p_ lensav_, int_4 _p_ ier_)
20367 { // ** body not listed **
20385 }
20386
20387 int_4 _sint1b (int_4 _p_ n_, int_4 _p_ inc_, real_4 _p_ x_, int_4 _p_ lenx_, real_4 _p_ wsave_, int_4 _p_ lensav_,
20388 real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
20389 { // ** body not listed **
20417 }
20418
20419 int_4 _sint1f (int_4 _p_ n_, int_4 _p_ inc_, real_4 _p_ x_, int_4 _p_ lenx_, real_4 _p_ wsave_, int_4 _p_ lensav_,
20420 real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
20421 { // ** body not listed **
20449 }
20450
20451 int_4 _sint1i (int_4 _p_ n_, real_4 _p_ wsave_, int_4 _p_ lensav_, int_4 _p_ ier_)
20452 { // ** body not listed **
20484 }
20485
20486 int_4 _sintb1 (int_4 _p_ n_, int_4 _p_ inc_, real_4 _p_ x_, real_4 _p_ wsave_, real_4 _p_ xh_, real_4 _p_ work_, int_4
20487 _p_ ier_)
20488 { // ** body not listed **
20555 }
20556
20557 int_4 _sintf1 (int_4 _p_ n_, int_4 _p_ inc_, real_4 _p_ x_, real_4 _p_ wsave_, real_4 _p_ xh_, real_4 _p_ work_, int_4
20558 _p_ ier_)
20559 { // ** body not listed **
20626 }
20627
20628 int_4 _sintmb (int_4 _p_ lot_, int_4 _p_ jump_, int_4 _p_ n_, int_4 _p_ inc_, real_4 _p_ x_, int_4 _p_ lenx_, real_4
20629 _p_ wsave_, int_4 _p_ lensav_, real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
20630 { // ** body not listed **
20665 }
20666
20667 int_4 _sintmf (int_4 _p_ lot_, int_4 _p_ jump_, int_4 _p_ n_, int_4 _p_ inc_, real_4 _p_ x_, int_4 _p_ lenx_, real_4
20668 _p_ wsave_, int_4 _p_ lensav_, real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
20669 { // ** body not listed **
20704 }
20705
20706 int_4 _sintmi (int_4 _p_ n_, real_4 _p_ wsave_, int_4 _p_ lensav_, int_4 _p_ ier_)
20707 { // ** body not listed **
20739 }
20740
20741 int_4 _tables (int_4 _p_ ido_, int_4 _p_ ip_, real_4 _p_ wa_)
20742 { // ** body not listed **
20765 }
20766
20767 int_4 _w2r (int_4 _p_ ldr_, int_4 _p_ ldw_, int_4 _p_ l_, int_4 _p_ m_, real_4 _p_ r_, real_4 _p_ w_)
20768 { // ** body not listed **
20777 }
20778
|
© 2002-2025 J.M. van der Veer (jmvdveer@xs4all.nl)
|
