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.12
118 */
242 static CALLS __calls[__ncalls] = {
243 {"dc1f2kb", 0}, // subroutine
244 {"dc1f2kf", 0}, // subroutine
245 {"dc1f3kb", 0}, // subroutine
246 {"dc1f3kf", 0}, // subroutine
247 {"dc1f4kb", 0}, // subroutine
248 {"dc1f4kf", 0}, // subroutine
249 {"dc1f5kb", 0}, // subroutine
250 {"dc1f5kf", 0}, // subroutine
251 {"dc1fgkb", 0}, // subroutine
252 {"dc1fgkf", 0}, // subroutine
253 {"dc1fm1b", 0}, // subroutine
254 {"dc1fm1f", 0}, // subroutine
255 {"dcfft1b", 0}, // subroutine
256 {"dcfft1f", 0}, // subroutine
257 {"dcfft1i", 0}, // subroutine
258 {"dcfft2b", 0}, // subroutine
259 {"dcfft2f", 0}, // subroutine
260 {"dcfft2i", 0}, // subroutine
261 {"dcfftmb", 0}, // subroutine
262 {"dcfftmf", 0}, // subroutine
263 {"dcfftmi", 0}, // subroutine
264 {"dcmf2kb", 0}, // subroutine
265 {"dcmf2kf", 0}, // subroutine
266 {"dcmf3kb", 0}, // subroutine
267 {"dcmf3kf", 0}, // subroutine
268 {"dcmf4kb", 0}, // subroutine
269 {"dcmf4kf", 0}, // subroutine
270 {"dcmf5kb", 0}, // subroutine
271 {"dcmf5kf", 0}, // subroutine
272 {"dcmfgkb", 0}, // subroutine
273 {"dcmfgkf", 0}, // subroutine
274 {"dcmfm1b", 0}, // subroutine
275 {"dcmfm1f", 0}, // subroutine
276 {"dcosq1b", 0}, // subroutine
277 {"dcosq1f", 0}, // subroutine
278 {"dcosq1i", 0}, // subroutine
279 {"dcosqb1", 0}, // subroutine
280 {"dcosqf1", 0}, // subroutine
281 {"dcosqmb", 0}, // subroutine
282 {"dcosqmf", 0}, // subroutine
283 {"dcosqmi", 0}, // subroutine
284 {"dcost1b", 0}, // subroutine
285 {"dcost1f", 0}, // subroutine
286 {"dcost1i", 0}, // subroutine
287 {"dcostb1", 0}, // subroutine
288 {"dcostf1", 0}, // subroutine
289 {"dcostmb", 0}, // subroutine
290 {"dcostmf", 0}, // subroutine
291 {"dcostmi", 0}, // subroutine
292 {"dfactor", 0}, // subroutine
293 {"dmcfti1", 0}, // subroutine
294 {"dmcsqb1", 0}, // subroutine
295 {"dmcsqf1", 0}, // subroutine
296 {"dmcstb1", 0}, // subroutine
297 {"dmcstf1", 0}, // subroutine
298 {"dmradb2", 0}, // subroutine
299 {"dmradb3", 0}, // subroutine
300 {"dmradb4", 0}, // subroutine
301 {"dmradb5", 0}, // subroutine
302 {"dmradbg", 0}, // subroutine
303 {"dmradf2", 0}, // subroutine
304 {"dmradf3", 0}, // subroutine
305 {"dmradf4", 0}, // subroutine
306 {"dmradf5", 0}, // subroutine
307 {"dmradfg", 0}, // subroutine
308 {"dmrftb1", 0}, // subroutine
309 {"dmrftf1", 0}, // subroutine
310 {"dmrfti1", 0}, // subroutine
311 {"dmsntb1", 0}, // subroutine
312 {"dmsntf1", 0}, // subroutine
313 {"dr1f2kb", 0}, // subroutine
314 {"dr1f2kf", 0}, // subroutine
315 {"dr1f3kb", 0}, // subroutine
316 {"dr1f3kf", 0}, // subroutine
317 {"dr1f4kb", 0}, // subroutine
318 {"dr1f4kf", 0}, // subroutine
319 {"dr1f5kb", 0}, // subroutine
320 {"dr1f5kf", 0}, // subroutine
321 {"dr1fgkb", 0}, // subroutine
322 {"dr1fgkf", 0}, // subroutine
323 {"dr2w", 0}, // subroutine
324 {"drfft1b", 0}, // subroutine
325 {"drfft1f", 0}, // subroutine
326 {"drfft1i", 0}, // subroutine
327 {"drfft2b", 0}, // subroutine
328 {"drfft2f", 0}, // subroutine
329 {"drfft2i", 0}, // subroutine
330 {"drfftb1", 0}, // subroutine
331 {"drfftf1", 0}, // subroutine
332 {"drffti1", 0}, // subroutine
333 {"drfftmb", 0}, // subroutine
334 {"drfftmf", 0}, // subroutine
335 {"drfftmi", 0}, // subroutine
336 {"dsinq1b", 0}, // subroutine
337 {"dsinq1f", 0}, // subroutine
338 {"dsinq1i", 0}, // subroutine
339 {"dsinqmb", 0}, // subroutine
340 {"dsinqmf", 0}, // subroutine
341 {"dsinqmi", 0}, // subroutine
342 {"dsint1b", 0}, // subroutine
343 {"dsint1f", 0}, // subroutine
344 {"dsint1i", 0}, // subroutine
345 {"dsintb1", 0}, // subroutine
346 {"dsintf1", 0}, // subroutine
347 {"dsintmb", 0}, // subroutine
348 {"dsintmf", 0}, // subroutine
349 {"dsintmi", 0}, // subroutine
350 {"dtables", 0}, // subroutine
351 {"dw2r", 0}, // subroutine
352 {"xercon", 0}, // logical*4 function
353 {"xerfft", 0}, // subroutine
354 {"c1f2kb", 0}, // subroutine
355 {"c1f2kf", 0}, // subroutine
356 {"c1f3kb", 0}, // subroutine
357 {"c1f3kf", 0}, // subroutine
358 {"c1f4kb", 0}, // subroutine
359 {"c1f4kf", 0}, // subroutine
360 {"c1f5kb", 0}, // subroutine
361 {"c1f5kf", 0}, // subroutine
362 {"c1fgkb", 0}, // subroutine
363 {"c1fgkf", 0}, // subroutine
364 {"c1fm1b", 0}, // subroutine
365 {"c1fm1f", 0}, // subroutine
366 {"cfft1b", 0}, // subroutine
367 {"cfft1f", 0}, // subroutine
368 {"cfft1i", 0}, // subroutine
369 {"cfft2b", 0}, // subroutine
370 {"cfft2f", 0}, // subroutine
371 {"cfft2i", 0}, // subroutine
372 {"cfftmb", 0}, // subroutine
373 {"cfftmf", 0}, // subroutine
374 {"cfftmi", 0}, // subroutine
375 {"cmf2kb", 0}, // subroutine
376 {"cmf2kf", 0}, // subroutine
377 {"cmf3kb", 0}, // subroutine
378 {"cmf3kf", 0}, // subroutine
379 {"cmf4kb", 0}, // subroutine
380 {"cmf4kf", 0}, // subroutine
381 {"cmf5kb", 0}, // subroutine
382 {"cmf5kf", 0}, // subroutine
383 {"cmfgkb", 0}, // subroutine
384 {"cmfgkf", 0}, // subroutine
385 {"cmfm1b", 0}, // subroutine
386 {"cmfm1f", 0}, // subroutine
387 {"cosq1b", 0}, // subroutine
388 {"cosq1f", 0}, // subroutine
389 {"cosq1i", 0}, // subroutine
390 {"cosqb1", 0}, // subroutine
391 {"cosqf1", 0}, // subroutine
392 {"cosqmb", 0}, // subroutine
393 {"cosqmf", 0}, // subroutine
394 {"cosqmi", 0}, // subroutine
395 {"cost1b", 0}, // subroutine
396 {"cost1f", 0}, // subroutine
397 {"cost1i", 0}, // subroutine
398 {"costb1", 0}, // subroutine
399 {"costf1", 0}, // subroutine
400 {"costmb", 0}, // subroutine
401 {"costmf", 0}, // subroutine
402 {"costmi", 0}, // subroutine
403 {"factor", 0}, // subroutine
404 {"mcfti1", 0}, // subroutine
405 {"mcsqb1", 0}, // subroutine
406 {"mcsqf1", 0}, // subroutine
407 {"mcstb1", 0}, // subroutine
408 {"mcstf1", 0}, // subroutine
409 {"mradb2", 0}, // subroutine
410 {"mradb3", 0}, // subroutine
411 {"mradb4", 0}, // subroutine
412 {"mradb5", 0}, // subroutine
413 {"mradbg", 0}, // subroutine
414 {"mradf2", 0}, // subroutine
415 {"mradf3", 0}, // subroutine
416 {"mradf4", 0}, // subroutine
417 {"mradf5", 0}, // subroutine
418 {"mradfg", 0}, // subroutine
419 {"mrftb1", 0}, // subroutine
420 {"mrftf1", 0}, // subroutine
421 {"mrfti1", 0}, // subroutine
422 {"msntb1", 0}, // subroutine
423 {"msntf1", 0}, // subroutine
424 {"r1f2kb", 0}, // subroutine
425 {"r1f2kf", 0}, // subroutine
426 {"r1f3kb", 0}, // subroutine
427 {"r1f3kf", 0}, // subroutine
428 {"r1f4kb", 0}, // subroutine
429 {"r1f4kf", 0}, // subroutine
430 {"r1f5kb", 0}, // subroutine
431 {"r1f5kf", 0}, // subroutine
432 {"r1fgkb", 0}, // subroutine
433 {"r1fgkf", 0}, // subroutine
434 {"r2w", 0}, // subroutine
435 {"rfft1b", 0}, // subroutine
436 {"rfft1f", 0}, // subroutine
437 {"rfft1i", 0}, // subroutine
438 {"rfft2b", 0}, // subroutine
439 {"rfft2f", 0}, // subroutine
440 {"rfft2i", 0}, // subroutine
441 {"rfftb1", 0}, // subroutine
442 {"rfftf1", 0}, // subroutine
443 {"rffti1", 0}, // subroutine
444 {"rfftmb", 0}, // subroutine
445 {"rfftmf", 0}, // subroutine
446 {"rfftmi", 0}, // subroutine
447 {"sinq1b", 0}, // subroutine
448 {"sinq1f", 0}, // subroutine
449 {"sinq1i", 0}, // subroutine
450 {"sinqmb", 0}, // subroutine
451 {"sinqmf", 0}, // subroutine
452 {"sinqmi", 0}, // subroutine
453 {"sint1b", 0}, // subroutine
454 {"sint1f", 0}, // subroutine
455 {"sint1i", 0}, // subroutine
456 {"sintb1", 0}, // subroutine
457 {"sintf1", 0}, // subroutine
458 {"sintmb", 0}, // subroutine
459 {"sintmf", 0}, // subroutine
460 {"sintmi", 0}, // subroutine
461 {"tables", 0}, // subroutine
462 {"w2r", 0}, // subroutine
463 {NULL, 0}
464 };
465
467 int_4 _p_ in2_, real_8 _p_ wa_);
469 int_4 _p_ in2_, real_8 _p_ wa_);
471 int_4 _p_ in2_, real_8 _p_ wa_);
473 int_4 _p_ in2_, real_8 _p_ wa_);
475 int_4 _p_ in2_, real_8 _p_ wa_);
477 int_4 _p_ in2_, real_8 _p_ wa_);
479 int_4 _p_ in2_, real_8 _p_ wa_);
481 int_4 _p_ in2_, real_8 _p_ wa_);
483 real_8 _p_ cc1_, int_4 _p_ in1_, real_8 _p_ ch_, real_8 _p_ ch1_, int_4 _p_ in2_, real_8 _p_ wa_);
485 real_8 _p_ cc1_, int_4 _p_ in1_, real_8 _p_ ch_, real_8 _p_ ch1_, int_4 _p_ in2_, real_8 _p_ wa_);
487 fnf_, real_8 _p_ fac_);
489 fnf_, real_8 _p_ fac_);
491 _p_ lensav_, real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_);
493 _p_ lensav_, real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_);
496 lensav_, real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_);
498 lensav_, real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_);
501 lenc_, real_8 _p_ wsave_, int_4 _p_ lensav_, real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_);
503 lenc_, real_8 _p_ wsave_, int_4 _p_ lensav_, real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_);
506 int_4 _p_ in1_, real_8 _p_ ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_8 _p_ wa_);
508 int_4 _p_ in1_, real_8 _p_ ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_8 _p_ wa_);
510 int_4 _p_ in1_, real_8 _p_ ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_8 _p_ wa_);
512 int_4 _p_ in1_, real_8 _p_ ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_8 _p_ wa_);
514 int_4 _p_ in1_, real_8 _p_ ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_8 _p_ wa_);
516 int_4 _p_ in1_, real_8 _p_ ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_8 _p_ wa_);
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 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
523 _p_ in2_, real_8 _p_ wa_);
525 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
526 _p_ in2_, real_8 _p_ wa_);
528 ch_, real_8 _p_ wa_, real_4 _p_ fnf_, real_8 _p_ fac_);
530 ch_, real_8 _p_ wa_, real_4 _p_ fnf_, real_8 _p_ fac_);
532 lensav_, real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_);
534 lensav_, real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_);
537 ier_);
539 ier_);
541 , real_8 _p_ wsave_, int_4 _p_ lensav_, real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_);
543 , real_8 _p_ wsave_, int_4 _p_ 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_);
548 lensav_, real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_);
551 ier_);
553 ier_);
555 , real_8 _p_ wsave_, int_4 _p_ lensav_, real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_);
557 , real_8 _p_ wsave_, int_4 _p_ lensav_, real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_);
562 wsave_, real_4 _p_ work_, int_4 _p_ ier_);
564 wsave_, real_4 _p_ work_, int_4 _p_ ier_);
566 wsave_, real_8 _p_ dsum_, real_4 _p_ work_, int_4 _p_ ier_);
568 wsave_, real_8 _p_ dsum_, real_4 _p_ work_, int_4 _p_ ier_);
570 real_8 _p_ ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_8 _p_ wa1_);
572 real_8 _p_ ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_8 _p_ wa1_, real_8 _p_ wa2_);
574 real_8 _p_ ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_8 _p_ wa1_, real_8 _p_ wa2_, real_8 _p_ wa3_);
576 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_);
578 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
579 _p_ in2_, real_8 _p_ wa_);
581 real_8 _p_ ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_8 _p_ wa1_);
583 real_8 _p_ ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_8 _p_ wa1_, real_8 _p_ wa2_);
585 real_8 _p_ ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_8 _p_ wa1_, real_8 _p_ wa2_, real_8 _p_ wa3_);
587 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_);
589 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
590 _p_ in2_, real_8 _p_ wa_);
592 real_8 _p_ wa_, real_8 _p_ fac_);
594 real_8 _p_ wa_, real_8 _p_ fac_);
597 wsave_, real_8 _p_ dsum_, real_8 _p_ xh_, real_4 _p_ work_, int_4 _p_ ier_);
599 wsave_, real_8 _p_ dsum_, real_8 _p_ xh_, real_4 _p_ work_, int_4 _p_ ier_);
601 , real_8 _p_ wa1_);
603 , real_8 _p_ wa1_);
605 , real_8 _p_ wa1_, real_8 _p_ wa2_);
607 , real_8 _p_ wa1_, real_8 _p_ wa2_);
609 , real_8 _p_ wa1_, real_8 _p_ wa2_, real_8 _p_ wa3_);
611 , real_8 _p_ wa1_, real_8 _p_ wa2_, real_8 _p_ wa3_);
613 , real_8 _p_ wa1_, real_8 _p_ wa2_, real_8 _p_ wa3_, real_8 _p_ wa4_);
615 , real_8 _p_ wa1_, real_8 _p_ wa2_, real_8 _p_ wa3_, real_8 _p_ wa4_);
617 , real_8 _p_ c2_, int_4 _p_ in1_, real_8 _p_ ch_, real_8 _p_ ch2_, int_4 _p_ in2_, real_8 _p_ wa_);
619 , real_8 _p_ c2_, int_4 _p_ in1_, real_8 _p_ ch_, real_8 _p_ ch2_, int_4 _p_ in2_, real_8 _p_ wa_);
622 lensav_, real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_);
624 lensav_, real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_);
627 lensav_, real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_);
629 lensav_, real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_);
635 , real_8 _p_ wsave_, int_4 _p_ lensav_, real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_);
637 , real_8 _p_ wsave_, int_4 _p_ lensav_, real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_);
640 lensav_, real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_);
642 lensav_, real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_);
645 , real_8 _p_ wsave_, int_4 _p_ 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_);
650 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_);
655 work_, int_4 _p_ ier_);
657 work_, 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_);
661 , real_8 _p_ wsave_, int_4 _p_ lensav_, real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_);
668 int_4 _p_ in2_, real_4 _p_ wa_);
670 int_4 _p_ in2_, real_4 _p_ wa_);
672 int_4 _p_ in2_, real_4 _p_ wa_);
674 int_4 _p_ in2_, real_4 _p_ wa_);
676 int_4 _p_ in2_, real_4 _p_ wa_);
678 int_4 _p_ in2_, real_4 _p_ wa_);
680 int_4 _p_ in2_, real_4 _p_ wa_);
682 int_4 _p_ in2_, real_4 _p_ wa_);
684 real_4 _p_ cc1_, int_4 _p_ in1_, real_4 _p_ ch_, real_4 _p_ ch1_, int_4 _p_ in2_, real_4 _p_ wa_);
686 real_4 _p_ cc1_, int_4 _p_ in1_, real_4 _p_ ch_, real_4 _p_ ch1_, int_4 _p_ in2_, real_4 _p_ wa_);
688 fnf_, real_4 _p_ fac_);
690 fnf_, real_4 _p_ fac_);
692 lensav_, real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_);
694 lensav_, real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_);
697 lensav_, real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_);
699 lensav_, real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_);
702 lenc_, real_4 _p_ wsave_, int_4 _p_ lensav_, real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_);
704 lenc_, real_4 _p_ wsave_, int_4 _p_ lensav_, real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_);
707 int_4 _p_ in1_, real_4 _p_ ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_4 _p_ wa_);
709 int_4 _p_ in1_, real_4 _p_ ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_4 _p_ wa_);
711 int_4 _p_ in1_, real_4 _p_ ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_4 _p_ wa_);
713 int_4 _p_ in1_, real_4 _p_ ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_4 _p_ wa_);
715 int_4 _p_ in1_, real_4 _p_ ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_4 _p_ wa_);
717 int_4 _p_ in1_, real_4 _p_ ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_4 _p_ wa_);
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 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
724 _p_ in2_, real_4 _p_ wa_);
726 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
727 _p_ in2_, real_4 _p_ wa_);
729 ch_, real_4 _p_ wa_, real_4 _p_ fnf_, real_4 _p_ fac_);
731 ch_, real_4 _p_ wa_, real_4 _p_ fnf_, real_4 _p_ fac_);
733 lensav_, real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_);
735 lensav_, real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_);
738 ier_);
740 ier_);
742 real_4 _p_ wsave_, int_4 _p_ lensav_, real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_);
744 real_4 _p_ wsave_, int_4 _p_ 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_);
749 lensav_, real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_);
752 ier_);
754 ier_);
756 real_4 _p_ wsave_, int_4 _p_ lensav_, real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_);
758 real_4 _p_ wsave_, int_4 _p_ lensav_, real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_);
763 wsave_, real_4 _p_ work_, int_4 _p_ ier_);
765 wsave_, real_4 _p_ work_, int_4 _p_ ier_);
767 wsave_, real_8 _p_ dsum_, real_4 _p_ work_, int_4 _p_ ier_);
769 wsave_, real_8 _p_ dsum_, real_4 _p_ work_, int_4 _p_ ier_);
771 real_4 _p_ ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_4 _p_ wa1_);
773 real_4 _p_ ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_4 _p_ wa1_, real_4 _p_ wa2_);
775 real_4 _p_ ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_4 _p_ wa1_, real_4 _p_ wa2_, real_4 _p_ wa3_);
777 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_);
779 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
780 _p_ in2_, real_4 _p_ wa_);
782 real_4 _p_ ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_4 _p_ wa1_);
784 real_4 _p_ ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_4 _p_ wa1_, real_4 _p_ wa2_);
786 real_4 _p_ ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_4 _p_ wa1_, real_4 _p_ wa2_, real_4 _p_ wa3_);
788 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_);
790 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
791 _p_ in2_, real_4 _p_ wa_);
793 real_4 _p_ wa_, real_4 _p_ fac_);
795 real_4 _p_ wa_, real_4 _p_ fac_);
798 wsave_, real_8 _p_ dsum_, real_4 _p_ xh_, real_4 _p_ work_, int_4 _p_ ier_);
800 wsave_, real_8 _p_ dsum_, real_4 _p_ xh_, real_4 _p_ work_, int_4 _p_ ier_);
802 real_4 _p_ wa1_);
804 real_4 _p_ wa1_);
806 real_4 _p_ wa1_, real_4 _p_ wa2_);
808 real_4 _p_ wa1_, real_4 _p_ wa2_);
810 real_4 _p_ wa1_, real_4 _p_ wa2_, real_4 _p_ wa3_);
812 real_4 _p_ wa1_, real_4 _p_ wa2_, real_4 _p_ wa3_);
814 real_4 _p_ wa1_, real_4 _p_ wa2_, real_4 _p_ wa3_, real_4 _p_ wa4_);
816 real_4 _p_ wa1_, real_4 _p_ wa2_, real_4 _p_ wa3_, real_4 _p_ wa4_);
818 real_4 _p_ c2_, int_4 _p_ in1_, real_4 _p_ ch_, real_4 _p_ ch2_, int_4 _p_ in2_, real_4 _p_ wa_);
820 real_4 _p_ c2_, int_4 _p_ in1_, real_4 _p_ ch_, real_4 _p_ ch2_, int_4 _p_ in2_, real_4 _p_ wa_);
823 lensav_, real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_);
825 lensav_, real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_);
828 lensav_, real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_);
830 lensav_, real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_);
836 real_4 _p_ wsave_, int_4 _p_ lensav_, real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_);
838 real_4 _p_ wsave_, int_4 _p_ lensav_, real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_);
841 lensav_, real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_);
843 lensav_, real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_);
846 real_4 _p_ wsave_, int_4 _p_ 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_);
851 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_);
856 work_, int_4 _p_ ier_);
858 work_, 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_);
862 real_4 _p_ wsave_, int_4 _p_ lensav_, real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_);
866 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_
867 in2_, real_8 _p_ wa_)
868 { // ** body not listed **
920 }
921
922 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_
923 in2_, real_8 _p_ wa_)
924 { // ** body not listed **
989 }
990
991 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_
992 in2_, real_8 _p_ wa_)
993 { // ** body not listed **
1094 }
1095
1096 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_
1097 in2_, real_8 _p_ wa_)
1098 { // ** body not listed **
1222 }
1223
1224 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_
1225 in2_, real_8 _p_ wa_)
1226 { // ** body not listed **
1332 }
1333
1334 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_
1335 in2_, real_8 _p_ wa_)
1336 { // ** body not listed **
1471 }
1472
1473 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_
1474 in2_, real_8 _p_ wa_)
1475 { // ** body not listed **
1649 }
1650
1651 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_
1652 in2_, real_8 _p_ wa_)
1653 { // ** body not listed **
1868 }
1869
1870 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_
1871 cc1_, int_4 _p_ in1_, real_8 _p_ ch_, real_8 _p_ ch1_, int_4 _p_ in2_, real_8 _p_ wa_)
1872 { // ** body not listed **
2004 }
2005
2006 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_
2007 cc1_, int_4 _p_ in1_, real_8 _p_ ch_, real_8 _p_ ch1_, int_4 _p_ in2_, real_8 _p_ wa_)
2008 { // ** body not listed **
2164 }
2165
2166 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_,
2167 real_8 _p_ fac_)
2168 { // ** body not listed **
2233 }
2234
2235 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_,
2236 real_8 _p_ fac_)
2237 { // ** body not listed **
2302 }
2303
2304 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_,
2305 real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
2306 { // ** body not listed **
2331 }
2332
2333 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_,
2334 real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
2335 { // ** body not listed **
2360 }
2361
2362 int_4 _dcfft1i (int_4 _p_ n_, real_8 _p_ wsave_, int_4 _p_ lensav_, int_4 _p_ ier_)
2363 { // ** body not listed **
2380 }
2381
2382 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_,
2383 real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
2384 { // ** body not listed **
2428 }
2429
2430 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_,
2431 real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
2432 { // ** body not listed **
2476 }
2477
2478 int_4 _dcfft2i (int_4 _p_ l_, int_4 _p_ m_, real_8 _p_ wsave_, int_4 _p_ lensav_, int_4 _p_ ier_)
2479 { // ** body not listed **
2508 }
2509
2510 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_,
2511 real_8 _p_ wsave_, int_4 _p_ lensav_, real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
2512 { // ** body not listed **
2541 }
2542
2543 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_,
2544 real_8 _p_ wsave_, int_4 _p_ lensav_, real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
2545 { // ** body not listed **
2574 }
2575
2576 int_4 _dcfftmi (int_4 _p_ n_, real_8 _p_ wsave_, int_4 _p_ lensav_, int_4 _p_ ier_)
2577 { // ** body not listed **
2594 }
2595
2596 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_
2597 in1_, real_8 _p_ ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_8 _p_ wa_)
2598 { // ** body not listed **
2670 }
2671
2672 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_
2673 in1_, real_8 _p_ ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_8 _p_ wa_)
2674 { // ** body not listed **
2767 }
2768
2769 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_
2770 in1_, real_8 _p_ ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_8 _p_ wa_)
2771 { // ** body not listed **
2884 }
2885
2886 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_
2887 in1_, real_8 _p_ ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_8 _p_ wa_)
2888 { // ** body not listed **
3028 }
3029
3030 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_
3031 in1_, real_8 _p_ ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_8 _p_ wa_)
3032 { // ** body not listed **
3150 }
3151
3152 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_
3153 in1_, real_8 _p_ ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_8 _p_ wa_)
3154 { // ** body not listed **
3305 }
3306
3307 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_
3308 in1_, real_8 _p_ ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_8 _p_ wa_)
3309 { // ** body not listed **
3507 }
3508
3509 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_
3510 in1_, real_8 _p_ ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_8 _p_ wa_)
3511 { // ** body not listed **
3760 }
3761
3762 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_
3763 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_,
3764 real_8 _p_ wa_)
3765 { // ** body not listed **
3961 }
3962 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_
3963 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_,
3964 real_8 _p_ wa_)
3965 { // ** body not listed **
4205 }
4206
4207 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_,
4208 real_8 _p_ wa_, real_4 _p_ fnf_, real_8 _p_ fac_)
4209 { // ** body not listed **
4272 }
4273
4274 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_,
4275 real_8 _p_ wa_, real_4 _p_ fnf_, real_8 _p_ fac_)
4276 { // ** body not listed **
4339 }
4340
4341 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_,
4342 real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
4343 { // ** body not listed **
4388 }
4389
4390 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_,
4391 real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
4392 { // ** body not listed **
4438 }
4439
4440 int_4 _dcosq1i (int_4 _p_ n_, real_8 _p_ wsave_, int_4 _p_ lensav_, int_4 _p_ ier_)
4441 { // ** body not listed **
4469 }
4470
4471 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_)
4472 { // ** body not listed **
4523 }
4524
4525 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_)
4526 { // ** body not listed **
4572 }
4573
4574 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
4575 _p_ wsave_, int_4 _p_ lensav_, real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
4576 { // ** body not listed **
4634 }
4635
4636 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
4637 _p_ wsave_, int_4 _p_ lensav_, real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
4638 { // ** body not listed **
4692 }
4693
4694 int_4 _dcosqmi (int_4 _p_ n_, real_8 _p_ wsave_, int_4 _p_ lensav_, int_4 _p_ ier_)
4695 { // ** body not listed **
4723 }
4724
4725 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_,
4726 real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
4727 { // ** body not listed **
4759 }
4760
4761 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_,
4762 real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
4763 { // ** body not listed **
4795 }
4796
4797 int_4 _dcost1i (int_4 _p_ n_, real_8 _p_ wsave_, int_4 _p_ lensav_, int_4 _p_ ier_)
4798 { // ** body not listed **
4835 }
4836
4837 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_)
4838 { // ** body not listed **
4923 }
4924
4925 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_)
4926 { // ** body not listed **
5009 }
5010
5011 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
5012 _p_ wsave_, int_4 _p_ lensav_, real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
5013 { // ** body not listed **
5047 }
5048
5049 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
5050 _p_ wsave_, int_4 _p_ lensav_, real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
5051 { // ** body not listed **
5085 }
5086
5087 int_4 _dcostmi (int_4 _p_ n_, real_8 _p_ wsave_, int_4 _p_ lensav_, int_4 _p_ ier_)
5088 { // ** body not listed **
5125 }
5126
5127 int_4 _dfactor (int_4 _p_ n_, int_4 _p_ nf_, real_8 _p_ fac_)
5128 { // ** body not listed **
5195 }
5196
5197 int_4 _dmcfti1 (int_4 _p_ n_, real_8 _p_ wa_, real_4 _p_ fnf_, real_8 _p_ fac_)
5198 { // ** body not listed **
5214 }
5215
5216 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
5217 _p_ work_, int_4 _p_ ier_)
5218 { // ** body not listed **
5291 }
5292
5293 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
5294 _p_ work_, int_4 _p_ ier_)
5295 { // ** body not listed **
5364 }
5365
5366 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
5367 _p_ dsum_, real_4 _p_ work_, int_4 _p_ ier_)
5368 { // ** body not listed **
5485 }
5486
5487 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
5488 _p_ dsum_, real_4 _p_ work_, int_4 _p_ ier_)
5489 { // ** body not listed **
5601 }
5602
5603 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_
5604 ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_8 _p_ wa1_)
5605 { // ** body not listed **
5675 }
5676
5677 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_
5678 ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_8 _p_ wa1_, real_8 _p_ wa2_)
5679 { // ** body not listed **
5760 }
5761
5762 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_
5763 ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_8 _p_ wa1_, real_8 _p_ wa2_, real_8 _p_ wa3_)
5764 { // ** body not listed **
5892 }
5893
5894 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_
5895 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_)
5896 { // ** body not listed **
6081 }
6082
6083 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_
6084 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_,
6085 real_8 _p_ wa_)
6086 { // ** body not listed **
6386 }
6387
6388 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_
6389 ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_8 _p_ wa1_)
6390 { // ** body not listed **
6459 }
6460
6461 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_
6462 ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_8 _p_ wa1_, real_8 _p_ wa2_)
6463 { // ** body not listed **
6549 }
6550
6551 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_
6552 ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_8 _p_ wa1_, real_8 _p_ wa2_, real_8 _p_ wa3_)
6553 { // ** body not listed **
6684 }
6685
6686 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_
6687 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_)
6688 { // ** body not listed **
6897 }
6898
6899 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_
6900 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_,
6901 real_8 _p_ wa_)
6902 { // ** body not listed **
7208 }
7209
7210 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_
7211 , real_8 _p_ fac_)
7212 { // ** body not listed **
7352 }
7353
7354 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_
7355 , real_8 _p_ fac_)
7356 { // ** body not listed **
7500 }
7501
7502 int_4 _dmrfti1 (int_4 _p_ n_, real_8 _p_ wa_, real_8 _p_ fac_)
7503 { // ** body not listed **
7617 }
7618
7619 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
7620 _p_ dsum_, real_8 _p_ xh_, real_4 _p_ work_, int_4 _p_ ier_)
7621 { // ** body not listed **
7715 }
7716
7717 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
7718 _p_ dsum_, real_8 _p_ xh_, real_4 _p_ work_, int_4 _p_ ier_)
7719 { // ** body not listed **
7814 }
7815
7816 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
7817 _p_ wa1_)
7818 { // ** body not listed **
7868 }
7869
7870 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
7871 _p_ wa1_)
7872 { // ** body not listed **
7924 }
7925
7926 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
7927 _p_ wa1_, real_8 _p_ wa2_)
7928 { // ** body not listed **
7994 }
7995
7996 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
7997 _p_ wa1_, real_8 _p_ wa2_)
7998 { // ** body not listed **
8072 }
8073
8074 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
8075 _p_ wa1_, real_8 _p_ wa2_, real_8 _p_ wa3_)
8076 { // ** body not listed **
8188 }
8189
8190 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
8191 _p_ wa1_, real_8 _p_ wa2_, real_8 _p_ wa3_)
8192 { // ** body not listed **
8304 }
8305
8306 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
8307 _p_ wa1_, real_8 _p_ wa2_, real_8 _p_ wa3_, real_8 _p_ wa4_)
8308 { // ** body not listed **
8473 }
8474
8475 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
8476 _p_ wa1_, real_8 _p_ wa2_, real_8 _p_ wa3_, real_8 _p_ wa4_)
8477 { // ** body not listed **
8665 }
8666
8667 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
8668 _p_ c2_, int_4 _p_ in1_, real_8 _p_ ch_, real_8 _p_ ch2_, int_4 _p_ in2_, real_8 _p_ wa_)
8669 { // ** body not listed **
8904 }
8905
8906 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
8907 _p_ c2_, int_4 _p_ in1_, real_8 _p_ ch_, real_8 _p_ ch2_, int_4 _p_ in2_, real_8 _p_ wa_)
8908 { // ** body not listed **
9144 }
9145
9146 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_)
9147 { // ** body not listed **
9156 }
9157
9158 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_,
9159 real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
9160 { // ** body not listed **
9183 }
9184
9185 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_,
9186 real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
9187 { // ** body not listed **
9210 }
9211
9212 int_4 _drfft1i (int_4 _p_ n_, real_8 _p_ wsave_, int_4 _p_ lensav_, int_4 _p_ ier_)
9213 { // ** body not listed **
9228 }
9229
9230 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_,
9231 real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
9232 { // ** body not listed **
9318 }
9319
9320 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_,
9321 real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
9322 { // ** body not listed **
9407 }
9408
9409 int_4 _drfft2i (int_4 _p_ l_, int_4 _p_ m_, real_8 _p_ wsave_, int_4 _p_ lensav_, int_4 _p_ ier_)
9410 { // ** body not listed **
9446 }
9447
9448 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_)
9449 { // ** body not listed **
9575 }
9576
9577 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_)
9578 { // ** body not listed **
9696 }
9697
9698 int_4 _drffti1 (int_4 _p_ n_, real_8 _p_ wa_, real_8 _p_ fac_)
9699 { // ** body not listed **
9813 }
9814
9815 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
9816 _p_ wsave_, int_4 _p_ lensav_, real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
9817 { // ** body not listed **
9844 }
9845
9846 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
9847 _p_ wsave_, int_4 _p_ lensav_, real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
9848 { // ** body not listed **
9875 }
9876
9877 int_4 _drfftmi (int_4 _p_ n_, real_8 _p_ wsave_, int_4 _p_ lensav_, int_4 _p_ ier_)
9878 { // ** body not listed **
9893 }
9894
9895 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_,
9896 real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
9897 { // ** body not listed **
9940 }
9941
9942 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_,
9943 real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
9944 { // ** body not listed **
9988 }
9989
9990 int_4 _dsinq1i (int_4 _p_ n_, real_8 _p_ wsave_, int_4 _p_ lensav_, int_4 _p_ ier_)
9991 { // ** body not listed **
10009 }
10010
10011 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
10012 _p_ wsave_, int_4 _p_ lensav_, real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
10013 { // ** body not listed **
10068 }
10069
10070 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
10071 _p_ wsave_, int_4 _p_ lensav_, real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
10072 { // ** body not listed **
10126 }
10127
10128 int_4 _dsinqmi (int_4 _p_ n_, real_8 _p_ wsave_, int_4 _p_ lensav_, int_4 _p_ ier_)
10129 { // ** body not listed **
10147 }
10148
10149 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_,
10150 real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
10151 { // ** body not listed **
10179 }
10180
10181 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_,
10182 real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
10183 { // ** body not listed **
10211 }
10212
10213 int_4 _dsint1i (int_4 _p_ n_, real_8 _p_ wsave_, int_4 _p_ lensav_, int_4 _p_ ier_)
10214 { // ** body not listed **
10246 }
10247
10248 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
10249 _p_ ier_)
10250 { // ** body not listed **
10317 }
10318
10319 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
10320 _p_ ier_)
10321 { // ** body not listed **
10388 }
10389
10390 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
10391 _p_ wsave_, int_4 _p_ lensav_, real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
10392 { // ** body not listed **
10427 }
10428
10429 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
10430 _p_ wsave_, int_4 _p_ lensav_, real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
10431 { // ** body not listed **
10466 }
10467
10468 int_4 _dsintmi (int_4 _p_ n_, real_8 _p_ wsave_, int_4 _p_ lensav_, int_4 _p_ ier_)
10469 { // ** body not listed **
10501 }
10502
10503 int_4 _dtables (int_4 _p_ ido_, int_4 _p_ ip_, real_8 _p_ wa_)
10504 { // ** body not listed **
10527 }
10528
10529 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_)
10530 { // ** body not listed **
10539 }
10540
10541 logical_4 _xercon (int_4 _p_ inc_, int_4 _p_ jump_, int_4 _p_ n_, int_4 _p_ lot_)
10542 { // ** body not listed **
10563 }
10564
10565 int_4 _xerfft (char _p_ srname_, int_4 _p_ info_)
10566 { // ** body not listed **
11090 }
11091
11092 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_
11093 in2_, real_4 _p_ wa_)
11094 { // ** body not listed **
11146 }
11147
11148 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_
11149 in2_, real_4 _p_ wa_)
11150 { // ** body not listed **
11215 }
11216
11217 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_
11218 in2_, real_4 _p_ wa_)
11219 { // ** body not listed **
11320 }
11321
11322 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_
11323 in2_, real_4 _p_ wa_)
11324 { // ** body not listed **
11448 }
11449
11450 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_
11451 in2_, real_4 _p_ wa_)
11452 { // ** body not listed **
11558 }
11559
11560 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_
11561 in2_, real_4 _p_ wa_)
11562 { // ** body not listed **
11697 }
11698
11699 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_
11700 in2_, real_4 _p_ wa_)
11701 { // ** body not listed **
11875 }
11876
11877 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_
11878 in2_, real_4 _p_ wa_)
11879 { // ** body not listed **
12094 }
12095
12096 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_
12097 cc1_, int_4 _p_ in1_, real_4 _p_ ch_, real_4 _p_ ch1_, int_4 _p_ in2_, real_4 _p_ wa_)
12098 { // ** body not listed **
12230 }
12231
12232 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_
12233 cc1_, int_4 _p_ in1_, real_4 _p_ ch_, real_4 _p_ ch1_, int_4 _p_ in2_, real_4 _p_ wa_)
12234 { // ** body not listed **
12390 }
12391
12392 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
12393 _p_ fac_)
12394 { // ** body not listed **
12459 }
12460
12461 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
12462 _p_ fac_)
12463 { // ** body not listed **
12528 }
12529
12530 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_,
12531 real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
12532 { // ** body not listed **
12557 }
12558
12559 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_,
12560 real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
12561 { // ** body not listed **
12586 }
12587
12588 int_4 _cfft1i (int_4 _p_ n_, real_4 _p_ wsave_, int_4 _p_ lensav_, int_4 _p_ ier_)
12589 { // ** body not listed **
12606 }
12607
12608 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_,
12609 real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
12610 { // ** body not listed **
12654 }
12655
12656 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_,
12657 real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
12658 { // ** body not listed **
12702 }
12703
12704 int_4 _cfft2i (int_4 _p_ l_, int_4 _p_ m_, real_4 _p_ wsave_, int_4 _p_ lensav_, int_4 _p_ ier_)
12705 { // ** body not listed **
12734 }
12735
12736 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
12737 _p_ wsave_, int_4 _p_ lensav_, real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
12738 { // ** body not listed **
12767 }
12768
12769 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
12770 _p_ wsave_, int_4 _p_ lensav_, real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
12771 { // ** body not listed **
12800 }
12801
12802 int_4 _cfftmi (int_4 _p_ n_, real_4 _p_ wsave_, int_4 _p_ lensav_, int_4 _p_ ier_)
12803 { // ** body not listed **
12820 }
12821
12822 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_
12823 in1_, real_4 _p_ ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_4 _p_ wa_)
12824 { // ** body not listed **
12896 }
12897
12898 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_
12899 in1_, real_4 _p_ ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_4 _p_ wa_)
12900 { // ** body not listed **
12993 }
12994
12995 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_
12996 in1_, real_4 _p_ ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_4 _p_ wa_)
12997 { // ** body not listed **
13110 }
13111
13112 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_
13113 in1_, real_4 _p_ ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_4 _p_ wa_)
13114 { // ** body not listed **
13254 }
13255
13256 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_
13257 in1_, real_4 _p_ ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_4 _p_ wa_)
13258 { // ** body not listed **
13376 }
13377
13378 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_
13379 in1_, real_4 _p_ ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_4 _p_ wa_)
13380 { // ** body not listed **
13531 }
13532
13533 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_
13534 in1_, real_4 _p_ ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_4 _p_ wa_)
13535 { // ** body not listed **
13733 }
13734
13735 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_
13736 in1_, real_4 _p_ ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_4 _p_ wa_)
13737 { // ** body not listed **
13986 }
13987
13988 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_
13989 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_,
13990 real_4 _p_ wa_)
13991 { // ** body not listed **
14187 }
14188 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_
14189 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_,
14190 real_4 _p_ wa_)
14191 { // ** body not listed **
14431 }
14432
14433 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
14434 _p_ wa_, real_4 _p_ fnf_, real_4 _p_ fac_)
14435 { // ** body not listed **
14498 }
14499
14500 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
14501 _p_ wa_, real_4 _p_ fnf_, real_4 _p_ fac_)
14502 { // ** body not listed **
14565 }
14566
14567 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_,
14568 real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
14569 { // ** body not listed **
14614 }
14615
14616 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_,
14617 real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
14618 { // ** body not listed **
14664 }
14665
14666 int_4 _cosq1i (int_4 _p_ n_, real_4 _p_ wsave_, int_4 _p_ lensav_, int_4 _p_ ier_)
14667 { // ** body not listed **
14695 }
14696
14697 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_)
14698 { // ** body not listed **
14749 }
14750
14751 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_)
14752 { // ** body not listed **
14798 }
14799
14800 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
14801 _p_ wsave_, int_4 _p_ lensav_, real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
14802 { // ** body not listed **
14860 }
14861
14862 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
14863 _p_ wsave_, int_4 _p_ lensav_, real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
14864 { // ** body not listed **
14918 }
14919
14920 int_4 _cosqmi (int_4 _p_ n_, real_4 _p_ wsave_, int_4 _p_ lensav_, int_4 _p_ ier_)
14921 { // ** body not listed **
14949 }
14950
14951 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_,
14952 real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
14953 { // ** body not listed **
14985 }
14986
14987 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_,
14988 real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
14989 { // ** body not listed **
15021 }
15022
15023 int_4 _cost1i (int_4 _p_ n_, real_4 _p_ wsave_, int_4 _p_ lensav_, int_4 _p_ ier_)
15024 { // ** body not listed **
15061 }
15062
15063 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_)
15064 { // ** body not listed **
15149 }
15150
15151 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_)
15152 { // ** body not listed **
15235 }
15236
15237 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
15238 _p_ wsave_, int_4 _p_ lensav_, real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
15239 { // ** body not listed **
15273 }
15274
15275 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
15276 _p_ wsave_, int_4 _p_ lensav_, real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
15277 { // ** body not listed **
15311 }
15312
15313 int_4 _costmi (int_4 _p_ n_, real_4 _p_ wsave_, int_4 _p_ lensav_, int_4 _p_ ier_)
15314 { // ** body not listed **
15351 }
15352
15353 int_4 _factor (int_4 _p_ n_, int_4 _p_ nf_, real_4 _p_ fac_)
15354 { // ** body not listed **
15421 }
15422
15423 int_4 _mcfti1 (int_4 _p_ n_, real_4 _p_ wa_, real_4 _p_ fnf_, real_4 _p_ fac_)
15424 { // ** body not listed **
15440 }
15441
15442 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
15443 _p_ work_, int_4 _p_ ier_)
15444 { // ** body not listed **
15517 }
15518
15519 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
15520 _p_ work_, int_4 _p_ ier_)
15521 { // ** body not listed **
15590 }
15591
15592 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
15593 _p_ dsum_, real_4 _p_ work_, int_4 _p_ ier_)
15594 { // ** body not listed **
15711 }
15712
15713 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
15714 _p_ dsum_, real_4 _p_ work_, int_4 _p_ ier_)
15715 { // ** body not listed **
15827 }
15828
15829 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_
15830 ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_4 _p_ wa1_)
15831 { // ** body not listed **
15901 }
15902
15903 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_
15904 ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_4 _p_ wa1_, real_4 _p_ wa2_)
15905 { // ** body not listed **
15986 }
15987
15988 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_
15989 ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_4 _p_ wa1_, real_4 _p_ wa2_, real_4 _p_ wa3_)
15990 { // ** body not listed **
16118 }
16119
16120 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_
16121 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_)
16122 { // ** body not listed **
16307 }
16308
16309 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_
16310 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_,
16311 real_4 _p_ wa_)
16312 { // ** body not listed **
16612 }
16613
16614 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_
16615 ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_4 _p_ wa1_)
16616 { // ** body not listed **
16685 }
16686
16687 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_
16688 ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_4 _p_ wa1_, real_4 _p_ wa2_)
16689 { // ** body not listed **
16775 }
16776
16777 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_
16778 ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_4 _p_ wa1_, real_4 _p_ wa2_, real_4 _p_ wa3_)
16779 { // ** body not listed **
16910 }
16911
16912 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_
16913 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_)
16914 { // ** body not listed **
17123 }
17124
17125 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_
17126 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_,
17127 real_4 _p_ wa_)
17128 { // ** body not listed **
17434 }
17435
17436 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_,
17437 real_4 _p_ fac_)
17438 { // ** body not listed **
17578 }
17579
17580 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_,
17581 real_4 _p_ fac_)
17582 { // ** body not listed **
17726 }
17727
17728 int_4 _mrfti1 (int_4 _p_ n_, real_4 _p_ wa_, real_4 _p_ fac_)
17729 { // ** body not listed **
17843 }
17844
17845 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
17846 _p_ dsum_, real_4 _p_ xh_, real_4 _p_ work_, int_4 _p_ ier_)
17847 { // ** body not listed **
17941 }
17942
17943 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
17944 _p_ dsum_, real_4 _p_ xh_, real_4 _p_ work_, int_4 _p_ ier_)
17945 { // ** body not listed **
18040 }
18041
18042 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
18043 _p_ wa1_)
18044 { // ** body not listed **
18094 }
18095
18096 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
18097 _p_ wa1_)
18098 { // ** body not listed **
18150 }
18151
18152 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
18153 _p_ wa1_, real_4 _p_ wa2_)
18154 { // ** body not listed **
18220 }
18221
18222 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
18223 _p_ wa1_, real_4 _p_ wa2_)
18224 { // ** body not listed **
18298 }
18299
18300 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
18301 _p_ wa1_, real_4 _p_ wa2_, real_4 _p_ wa3_)
18302 { // ** body not listed **
18414 }
18415
18416 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
18417 _p_ wa1_, real_4 _p_ wa2_, real_4 _p_ wa3_)
18418 { // ** body not listed **
18530 }
18531
18532 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
18533 _p_ wa1_, real_4 _p_ wa2_, real_4 _p_ wa3_, real_4 _p_ wa4_)
18534 { // ** body not listed **
18699 }
18700
18701 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
18702 _p_ wa1_, real_4 _p_ wa2_, real_4 _p_ wa3_, real_4 _p_ wa4_)
18703 { // ** body not listed **
18891 }
18892
18893 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
18894 _p_ c2_, int_4 _p_ in1_, real_4 _p_ ch_, real_4 _p_ ch2_, int_4 _p_ in2_, real_4 _p_ wa_)
18895 { // ** body not listed **
19130 }
19131
19132 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
19133 _p_ c2_, int_4 _p_ in1_, real_4 _p_ ch_, real_4 _p_ ch2_, int_4 _p_ in2_, real_4 _p_ wa_)
19134 { // ** body not listed **
19370 }
19371
19372 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_)
19373 { // ** body not listed **
19382 }
19383
19384 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_,
19385 real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
19386 { // ** body not listed **
19409 }
19410
19411 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_,
19412 real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
19413 { // ** body not listed **
19436 }
19437
19438 int_4 _rfft1i (int_4 _p_ n_, real_4 _p_ wsave_, int_4 _p_ lensav_, int_4 _p_ ier_)
19439 { // ** body not listed **
19454 }
19455
19456 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
19457 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
19458 { // ** body not listed **
19544 }
19545
19546 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
19547 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
19548 { // ** body not listed **
19633 }
19634
19635 int_4 _rfft2i (int_4 _p_ l_, int_4 _p_ m_, real_4 _p_ wsave_, int_4 _p_ lensav_, int_4 _p_ ier_)
19636 { // ** body not listed **
19672 }
19673
19674 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_)
19675 { // ** body not listed **
19801 }
19802
19803 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_)
19804 { // ** body not listed **
19922 }
19923
19924 int_4 _rffti1 (int_4 _p_ n_, real_4 _p_ wa_, real_4 _p_ fac_)
19925 { // ** body not listed **
20039 }
20040
20041 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
20042 _p_ wsave_, int_4 _p_ lensav_, real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
20043 { // ** body not listed **
20070 }
20071
20072 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
20073 _p_ wsave_, int_4 _p_ lensav_, real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
20074 { // ** body not listed **
20101 }
20102
20103 int_4 _rfftmi (int_4 _p_ n_, real_4 _p_ wsave_, int_4 _p_ lensav_, int_4 _p_ ier_)
20104 { // ** body not listed **
20119 }
20120
20121 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_,
20122 real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
20123 { // ** body not listed **
20166 }
20167
20168 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_,
20169 real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
20170 { // ** body not listed **
20214 }
20215
20216 int_4 _sinq1i (int_4 _p_ n_, real_4 _p_ wsave_, int_4 _p_ lensav_, int_4 _p_ ier_)
20217 { // ** body not listed **
20235 }
20236
20237 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
20238 _p_ wsave_, int_4 _p_ lensav_, real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
20239 { // ** body not listed **
20294 }
20295
20296 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
20297 _p_ wsave_, int_4 _p_ lensav_, real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
20298 { // ** body not listed **
20352 }
20353
20354 int_4 _sinqmi (int_4 _p_ n_, real_4 _p_ wsave_, int_4 _p_ lensav_, int_4 _p_ ier_)
20355 { // ** body not listed **
20373 }
20374
20375 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_,
20376 real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
20377 { // ** body not listed **
20405 }
20406
20407 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_,
20408 real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
20409 { // ** body not listed **
20437 }
20438
20439 int_4 _sint1i (int_4 _p_ n_, real_4 _p_ wsave_, int_4 _p_ lensav_, int_4 _p_ ier_)
20440 { // ** body not listed **
20472 }
20473
20474 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
20475 _p_ ier_)
20476 { // ** body not listed **
20543 }
20544
20545 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
20546 _p_ ier_)
20547 { // ** body not listed **
20614 }
20615
20616 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
20617 _p_ wsave_, int_4 _p_ lensav_, real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
20618 { // ** body not listed **
20653 }
20654
20655 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
20656 _p_ wsave_, int_4 _p_ lensav_, real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
20657 { // ** body not listed **
20692 }
20693
20694 int_4 _sintmi (int_4 _p_ n_, real_4 _p_ wsave_, int_4 _p_ lensav_, int_4 _p_ ier_)
20695 { // ** body not listed **
20727 }
20728
20729 int_4 _tables (int_4 _p_ ido_, int_4 _p_ ip_, real_4 _p_ wa_)
20730 { // ** body not listed **
20753 }
20754
20755 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_)
20756 { // ** body not listed **
20765 }
20766
|
© 2002-2025 J.M. van der Veer (jmvdveer@xs4all.nl)
|
