 |
1 //! @file mathlib-fftpack4.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 //! Subprograms from FFTPACK4
24
25 // Compiled from Fortran source code by VIF.
26
27 // Source: netlib.org/fftpack
28 //
29 // DFFTPACK is a Double precision clone by Hugh C. Pumphrey of
30 // FFTPACK version 4 april 1985.
31 //
32 // The original FFTPACK was public domain, so dfftpack is public domain
33 // too. It is released in the hope it will be useful to someone. There is
34 // no warranty of any sort covering this software.
35
36 // The license for FFTPACK4 Fortran source code is:
37 //
38 // The SLATEC Common Mathematical Library was developed at
39 // US government research laboratories and is in the public domain.
40 //
41 // Repository: http://www.netlib.org/slatec/
42 //
43 // The SLATEC common mathematical library is issued by the following
44 //
45 // Air Force Weapons Laboratory, Albuquerque
46 // Lawrence Livermore National Laboratory, Livermore
47 // Los Alamos National Laboratory, Los Alamos
48 // National Institute of Standards and Technology, Washington
49 // National Energy Research Supercomputer Center, Livermore
50 // Oak Ridge National Laboratory, Oak Ridge
51 // Sandia National Laboratories, Albuquerque
52 // Sandia National Laboratories, Livermore
53 //
54 // All questions concerning the distribution of the library should be
55 // directed to the NATIONAL ENERGY SOFTWARE CENTER, 9700 Cass Ave.,
56 // Argonne, Illinois 60439, and not to the authors of the subprograms.
57 //
58 // * * * * * Notice * * * * *
59 //
60 // This material was prepared as an account of work sponsored by the
61 // United States Government. Neither the United States, nor the
62 // Department of Energy, nor the Department of Defense, nor any of
63 // their employees, nor any of their contractors, subcontractors, or
64 // their employees, makes any warranty, expressed or implied, or
65 // assumes any legal liability or responsibility for the accuracy,
66 // completeness, or usefulness of any information, apparatus, product,
67 // or process disclosed, or represents that its use would not infringe
68 // upon privately owned rights.
69
70 // VIF THU 20 NOV 2025 22:19:27 ** MARCEL ** FFTPACK4 PAGE 00001
71
72
73
74 // M M A RRRRRR CCCCC EEEEEEE L
75 // MM MM A A R R C C E L
76 // M M M M A A R R C E L
77 // M M M A A RRRRRR C EEEEE L
78 // M M AAAAAAA R R C E L
79 // M M A A R R C C E L
80 // M M A A R R CCCCC EEEEEEE LLLLLLL
81
82 // FFFFFFF FFFFFFF TTTTTTT PPPPPP A CCCCC K K 4
83 // F F T P P A A C C K K 4 4
84 // F F T P P A A C K K 4 4
85 // FFFFF FFFFF T PPPPPP A A C KKK 4444444
86 // F F T P AAAAAAA C K K 4
87 // F F T P A A C C K K 4
88 // F F T P A A CCCCC K K 4
89
90
91
92
93 // VIF THU 20 NOV 2025 22:19:27 ** GLOBAL SCOPE ** DIAGNOSTICS PAGE 00002
94
95 // ** linker ** object size 242288 bytes
96 // ** statistics ** 68 subprograms, no errors, no warnings
97
98
99 // VIF THU 20 NOV 2025 22:19:27 ** GLOBAL SCOPE ** JOB CONTROL PAGE 00003
100
101
102 // Line JCL *...*....1....|....2....|....3....|....4....|....5....|....6....|....7..*.|....8
103
104
105
106 // VIF THU 20 NOV 2025 22:19:27 ** GLOBAL SCOPE ** DEFINITIONS PAGE 00004
107
108 /*
109 Generated by VIF - experimental VIntage Fortran compiler.
110 VIF release 1.4.1
111 */
112
113 #if defined (__GNUC__)
114 #pragma GCC diagnostic ignored "-Wimplicit-function-declaration"
115 #pragma GCC diagnostic ignored "-Wincompatible-pointer-types"
116 #if (__GNUC__ >= 14)
117 #pragma GCC diagnostic ignored "-Wdeclaration-missing-parameter-type"
118 #pragma GCC diagnostic ignored "-Wimplicit-int"
119 #pragma GCC diagnostic ignored "-Wint-conversion"
120 #pragma GCC diagnostic ignored "-Wreturn-mismatch"
121 #endif
122 #else
123 #error VIF requires GCC
124 #endif
125
126 #include <vif.h>
127
128 static int_4 _km1 = -1, _k0 = 0, _k1 = 1;
129
130
131
132
133
134 // VIF THU 20 NOV 2025 22:19:27 ** GLOBAL SCOPE ** TYPEDEFS PAGE 00005
135
136 static FORMAT *__fmt_a = NULL;
137
138
139 // VIF THU 20 NOV 2025 22:19:27 ** GLOBAL SCOPE ** FREQUENCY TABLE PAGE 00006
140
141 #define __ncalls 69
142 static CALLS __calls[__ncalls] = {
143 { // ** body not listed **"cfftb1", 0}, // subroutine
145 { // ** body not listed **"cfftf1", 0}, // subroutine
147 { // ** body not listed **"cffti1", 0}, // subroutine
149 { // ** body not listed **"cosqb1", 0}, // subroutine
151 { // ** body not listed **"cosqf1", 0}, // subroutine
153 { // ** body not listed **"cosqi", 0}, // subroutine
155 { // ** body not listed **"costi", 0}, // subroutine
157 { // ** body not listed **"dcosqf", 0}, // subroutine
159 { // ** body not listed **"dcost", 0}, // subroutine
161 { // ** body not listed **"dfftb", 0}, // subroutine
163 { // ** body not listed **"dffti", 0}, // subroutine
165 { // ** body not listed **"dsinqf", 0}, // subroutine
167 { // ** body not listed **"dsint", 0}, // subroutine
169 { // ** body not listed **"dzfftb", 0}, // subroutine
171 { // ** body not listed **"dzffti", 0}, // subroutine
173 { // ** body not listed **"ezfftb", 0}, // subroutine
175 { // ** body not listed **"ezffti", 0}, // subroutine
177 { // ** body not listed **"passb3", 0}, // subroutine
179 { // ** body not listed **"passb5", 0}, // subroutine
181 { // ** body not listed **"passf2", 0}, // subroutine
183 { // ** body not listed **"passf4", 0}, // subroutine
185 { // ** body not listed **"passf", 0}, // subroutine
187 { // ** body not listed **"radb3", 0}, // subroutine
189 { // ** body not listed **"radb5", 0}, // subroutine
193 { // ** body not listed **"radf2", 0}, // subroutine
195 { // ** body not listed **"radf4", 0}, // subroutine
197 { // ** body not listed **"radfg", 0}, // subroutine
199 { // ** body not listed **"rfftb", 0}, // subroutine
201 { // ** body not listed **"rfftf", 0}, // subroutine
203 { // ** body not listed **"rffti", 0}, // subroutine
205 { // ** body not listed **"sinqf", 0}, // subroutine
207 { // ** body not listed **"sint1", 0}, // subroutine
209 { // ** body not listed **"sinti", 0}, // subroutine
211 { // ** body not listed **"zfftf", 0}, // subroutine
213 { // ** body not listed **NULL, 0}
214 };
356 { // ** body not listed **
459 }
460
461 // VIF THU 20 NOV 2025 22:19:27 ** CFFTB ** CFFTB PAGE 00017
462
463 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
464 // S S U U B B R R O O U U T I NN N E
465 // S U U B B R R O O U U T I N N N E
466 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
467 // S U U B B R R O O U U T I N N N E
468 // S S U U B B R R O O U U T I N NN E
469 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
470
471 // CCCCC FFFFFFF FFFFFFF TTTTTTT BBBBBB
472 // C C F F T B B
473 // C F F T B B
474 // C FFFFF FFFFF T BBBBBB
475 // C F F T B B
476 // C C F F T B B
477 // CCCCC F F T BBBBBB
478
479
480 // VIF THU 20 NOV 2025 22:19:27 ** CFFTB ** DIAGNOSTICS PAGE 00018
481
482
483 // VIF THU 20 NOV 2025 22:19:27 ** CFFTB ** GENERATED CODE PAGE 00019
484
485 int_4 _cfftb (int_4 _p_ n_, complex_8 _p_ c_, real_4 _p_ wsave_)
486 { // ** body not listed **
497 }
498
499 // VIF THU 20 NOV 2025 22:19:27 ** CFFTF1 ** CFFTF1 PAGE 00020
500
501 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
502 // S S U U B B R R O O U U T I NN N E
503 // S U U B B R R O O U U T I N N N E
504 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
505 // S U U B B R R O O U U T I N N N E
506 // S S U U B B R R O O U U T I N NN E
507 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
508
509 // CCCCC FFFFFFF FFFFFFF TTTTTTT FFFFFFF 1
510 // C C F F T F 11
511 // C F F T F 1 1
512 // C FFFFF FFFFF T FFFFF 1
513 // C F F T F 1
514 // C C F F T F 1
515 // CCCCC F F T F 11111
516
517
518 // VIF THU 20 NOV 2025 22:19:27 ** CFFTF1 ** DIAGNOSTICS PAGE 00021
519
520
521 // VIF THU 20 NOV 2025 22:19:27 ** CFFTF1 ** GENERATED CODE PAGE 00022
522
523 int_4 _cfftf1 (int_4 _p_ n_, real_8 _p_ c_, real_8 _p_ ch_, real_8 _p_ wa_, int_4 _p_ ifac_)
524 { // ** body not listed **
627 }
628
629 // VIF THU 20 NOV 2025 22:19:27 ** CFFTF ** CFFTF PAGE 00025
630
631 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
632 // S S U U B B R R O O U U T I NN N E
633 // S U U B B R R O O U U T I N N N E
634 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
635 // S U U B B R R O O U U T I N N N E
636 // S S U U B B R R O O U U T I N NN E
637 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
638
639 // CCCCC FFFFFFF FFFFFFF TTTTTTT FFFFFFF
640 // C C F F T F
641 // C F F T F
642 // C FFFFF FFFFF T FFFFF
643 // C F F T F
644 // C C F F T F
645 // CCCCC F F T F
646
647
648 // VIF THU 20 NOV 2025 22:19:27 ** CFFTF ** DIAGNOSTICS PAGE 00026
649
650
651 // VIF THU 20 NOV 2025 22:19:27 ** CFFTF ** GENERATED CODE PAGE 00027
652
653 int_4 _cfftf (int_4 _p_ n_, complex_8 _p_ c_, real_4 _p_ wsave_)
654 { // ** body not listed **
665 }
666
667 // VIF THU 20 NOV 2025 22:19:27 ** CFFTI1 ** CFFTI1 PAGE 00028
668
669 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
670 // S S U U B B R R O O U U T I NN N E
671 // S U U B B R R O O U U T I N N N E
672 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
673 // S U U B B R R O O U U T I N N N E
674 // S S U U B B R R O O U U T I N NN E
675 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
676
677 // CCCCC FFFFFFF FFFFFFF TTTTTTT III 1
678 // C C F F T I 11
679 // C F F T I 1 1
680 // C FFFFF FFFFF T I 1
681 // C F F T I 1
682 // C C F F T I 1
683 // CCCCC F F T III 11111
684
685
686 // VIF THU 20 NOV 2025 22:19:27 ** CFFTI1 ** DIAGNOSTICS PAGE 00029
687
688
689 // VIF THU 20 NOV 2025 22:19:27 ** CFFTI1 ** GENERATED CODE PAGE 00030
690
691 int_4 _cffti1 (int_4 _p_ n_, real_8 _p_ wa_, int_4 _p_ ifac_)
692 { // ** body not listed **
816 }
817
818 // VIF THU 20 NOV 2025 22:19:27 ** CFFTI ** CFFTI PAGE 00033
819
820 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
821 // S S U U B B R R O O U U T I NN N E
822 // S U U B B R R O O U U T I N N N E
823 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
824 // S U U B B R R O O U U T I N N N E
825 // S S U U B B R R O O U U T I N NN E
826 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
827
828 // CCCCC FFFFFFF FFFFFFF TTTTTTT III
829 // C C F F T I
830 // C F F T I
831 // C FFFFF FFFFF T I
832 // C F F T I
833 // C C F F T I
834 // CCCCC F F T III
835
836
837 // VIF THU 20 NOV 2025 22:19:27 ** CFFTI ** DIAGNOSTICS PAGE 00034
838
839
840 // VIF THU 20 NOV 2025 22:19:27 ** CFFTI ** GENERATED CODE PAGE 00035
841
842 int_4 _cffti (int_4 _p_ n_, real_4 _p_ wsave_)
843 { // ** body not listed **
854 }
855
856 // VIF THU 20 NOV 2025 22:19:27 ** COSQB1 ** COSQB1 PAGE 00036
857
858 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
859 // S S U U B B R R O O U U T I NN N E
860 // S U U B B R R O O U U T I N N N E
861 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
862 // S U U B B R R O O U U T I N N N E
863 // S S U U B B R R O O U U T I N NN E
864 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
865
866 // CCCCC OOOOO SSSSS QQQQQ BBBBBB 1
867 // C C O O S S Q Q B B 11
868 // C O O S Q Q B B 1 1
869 // C O O SSSSS Q Q BBBBBB 1
870 // C O O S Q Q Q B B 1
871 // C C O O S S Q Q B B 1
872 // CCCCC OOOOO SSSSS QQQQ Q BBBBBB 11111
873
874
875 // VIF THU 20 NOV 2025 22:19:27 ** COSQB1 ** DIAGNOSTICS PAGE 00037
876
877
878 // VIF THU 20 NOV 2025 22:19:27 ** COSQB1 ** GENERATED CODE PAGE 00038
879
880 int_4 _cosqb1 (int_4 _p_ n_, real_8 _p_ x_, real_8 _p_ w_, real_8 _p_ xh_)
881 { // ** body not listed **
913 }
914
915 // VIF THU 20 NOV 2025 22:19:27 ** COSQB ** COSQB PAGE 00039
916
917 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
918 // S S U U B B R R O O U U T I NN N E
919 // S U U B B R R O O U U T I N N N E
920 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
921 // S U U B B R R O O U U T I N N N E
922 // S S U U B B R R O O U U T I N NN E
923 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
924
925 // CCCCC OOOOO SSSSS QQQQQ BBBBBB
926 // C C O O S S Q Q B B
927 // C O O S Q Q B B
928 // C O O SSSSS Q Q BBBBBB
929 // C O O S Q Q Q B B
930 // C C O O S S Q Q B B
931 // CCCCC OOOOO SSSSS QQQQ Q BBBBBB
932
933
934 // VIF THU 20 NOV 2025 22:19:27 ** COSQB ** DIAGNOSTICS PAGE 00040
935
936
937 // VIF THU 20 NOV 2025 22:19:27 ** COSQB ** GENERATED CODE PAGE 00041
938
939 int_4 _cosqb (int_4 _p_ n_, real_4 _p_ x_, real_4 _p_ wsave_)
940 { // ** body not listed **
965 }
966
967 // VIF THU 20 NOV 2025 22:19:27 ** COSQF1 ** COSQF1 PAGE 00042
968
969 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
970 // S S U U B B R R O O U U T I NN N E
971 // S U U B B R R O O U U T I N N N E
972 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
973 // S U U B B R R O O U U T I N N N E
974 // S S U U B B R R O O U U T I N NN E
975 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
976
977 // CCCCC OOOOO SSSSS QQQQQ FFFFFFF 1
978 // C C O O S S Q Q F 11
979 // C O O S Q Q F 1 1
980 // C O O SSSSS Q Q FFFFF 1
981 // C O O S Q Q Q F 1
982 // C C O O S S Q Q F 1
983 // CCCCC OOOOO SSSSS QQQQ Q F 11111
984
985
986 // VIF THU 20 NOV 2025 22:19:27 ** COSQF1 ** DIAGNOSTICS PAGE 00043
987
988
989 // VIF THU 20 NOV 2025 22:19:27 ** COSQF1 ** GENERATED CODE PAGE 00044
990
991 int_4 _cosqf1 (int_4 _p_ n_, real_8 _p_ x_, real_8 _p_ w_, real_8 _p_ xh_)
992 { // ** body not listed **
1022 }
1023
1024 // VIF THU 20 NOV 2025 22:19:27 ** COSQF ** COSQF PAGE 00045
1025
1026 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
1027 // S S U U B B R R O O U U T I NN N E
1028 // S U U B B R R O O U U T I N N N E
1029 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
1030 // S U U B B R R O O U U T I N N N E
1031 // S S U U B B R R O O U U T I N NN E
1032 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
1033
1034 // CCCCC OOOOO SSSSS QQQQQ FFFFFFF
1035 // C C O O S S Q Q F
1036 // C O O S Q Q F
1037 // C O O SSSSS Q Q FFFFF
1038 // C O O S Q Q Q F
1039 // C C O O S S Q Q F
1040 // CCCCC OOOOO SSSSS QQQQ Q F
1041
1042
1043 // VIF THU 20 NOV 2025 22:19:27 ** COSQF ** DIAGNOSTICS PAGE 00046
1044
1045
1046 // VIF THU 20 NOV 2025 22:19:27 ** COSQF ** GENERATED CODE PAGE 00047
1047
1048 int_4 _cosqf (int_4 _p_ n_, real_4 _p_ x_, real_4 _p_ wsave_)
1049 { // ** body not listed **
1072 }
1073
1074 // VIF THU 20 NOV 2025 22:19:27 ** COSQI ** COSQI PAGE 00048
1075
1076 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
1077 // S S U U B B R R O O U U T I NN N E
1078 // S U U B B R R O O U U T I N N N E
1079 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
1080 // S U U B B R R O O U U T I N N N E
1081 // S S U U B B R R O O U U T I N NN E
1082 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
1083
1084 // CCCCC OOOOO SSSSS QQQQQ III
1085 // C C O O S S Q Q I
1086 // C O O S Q Q I
1087 // C O O SSSSS Q Q I
1088 // C O O S Q Q Q I
1089 // C C O O S S Q Q I
1090 // CCCCC OOOOO SSSSS QQQQ Q III
1091
1092
1093 // VIF THU 20 NOV 2025 22:19:27 ** COSQI ** DIAGNOSTICS PAGE 00049
1094
1095
1096 // VIF THU 20 NOV 2025 22:19:27 ** COSQI ** GENERATED CODE PAGE 00050
1097
1098 int_4 _cosqi (int_4 _p_ n_, real_4 _p_ wsave_)
1099 { // ** body not listed **
1112 }
1113
1114 // VIF THU 20 NOV 2025 22:19:27 ** COST ** COST PAGE 00051
1115
1116 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
1117 // S S U U B B R R O O U U T I NN N E
1118 // S U U B B R R O O U U T I N N N E
1119 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
1120 // S U U B B R R O O U U T I N N N E
1121 // S S U U B B R R O O U U T I N NN E
1122 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
1123
1124 // CCCCC OOOOO SSSSS TTTTTTT
1125 // C C O O S S T
1126 // C O O S T
1127 // C O O SSSSS T
1128 // C O O S T
1129 // C C O O S S T
1130 // CCCCC OOOOO SSSSS T
1131
1132
1133 // VIF THU 20 NOV 2025 22:19:27 ** COST ** DIAGNOSTICS PAGE 00052
1134
1135
1136 // VIF THU 20 NOV 2025 22:19:27 ** COST ** GENERATED CODE PAGE 00053
1137
1138 int_4 _cost (int_4 _p_ n_, real_4 _p_ x_, real_4 _p_ wsave_)
1139 { // ** body not listed **
1203 }
1204
1205 // VIF THU 20 NOV 2025 22:19:27 ** COSTI ** COSTI PAGE 00055
1206
1207 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
1208 // S S U U B B R R O O U U T I NN N E
1209 // S U U B B R R O O U U T I N N N E
1210 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
1211 // S U U B B R R O O U U T I N N N E
1212 // S S U U B B R R O O U U T I N NN E
1213 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
1214
1215 // CCCCC OOOOO SSSSS TTTTTTT III
1216 // C C O O S S T I
1217 // C O O S T I
1218 // C O O SSSSS T I
1219 // C O O S T I
1220 // C C O O S S T I
1221 // CCCCC OOOOO SSSSS T III
1222
1223
1224 // VIF THU 20 NOV 2025 22:19:27 ** COSTI ** DIAGNOSTICS PAGE 00056
1225
1226
1227 // VIF THU 20 NOV 2025 22:19:27 ** COSTI ** GENERATED CODE PAGE 00057
1228
1229 int_4 _costi (int_4 _p_ n_, real_4 _p_ wsave_)
1230 { // ** body not listed **
1252 }
1253
1254 // VIF THU 20 NOV 2025 22:19:27 ** DCOSQB ** DCOSQB PAGE 00058
1255
1256 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
1257 // S S U U B B R R O O U U T I NN N E
1258 // S U U B B R R O O U U T I N N N E
1259 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
1260 // S U U B B R R O O U U T I N N N E
1261 // S S U U B B R R O O U U T I N NN E
1262 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
1263
1264 // DDDDDD CCCCC OOOOO SSSSS QQQQQ BBBBBB
1265 // D D C C O O S S Q Q B B
1266 // D D C O O S Q Q B B
1267 // D D C O O SSSSS Q Q BBBBBB
1268 // D D C O O S Q Q Q B B
1269 // D D C C O O S S Q Q B B
1270 // DDDDDD CCCCC OOOOO SSSSS QQQQ Q BBBBBB
1271
1272
1273 // VIF THU 20 NOV 2025 22:19:27 ** DCOSQB ** DIAGNOSTICS PAGE 00059
1274
1275
1276 // VIF THU 20 NOV 2025 22:19:27 ** DCOSQB ** GENERATED CODE PAGE 00060
1277
1278 int_4 _dcosqb (int_4 _p_ n_, real_8 _p_ x_, real_8 _p_ wsave_)
1279 { // ** body not listed **
1315 }
1316
1317 // VIF THU 20 NOV 2025 22:19:27 ** DCOSQF ** DCOSQF PAGE 00061
1318
1319 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
1320 // S S U U B B R R O O U U T I NN N E
1321 // S U U B B R R O O U U T I N N N E
1322 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
1323 // S U U B B R R O O U U T I N N N E
1324 // S S U U B B R R O O U U T I N NN E
1325 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
1326
1327 // DDDDDD CCCCC OOOOO SSSSS QQQQQ FFFFFFF
1328 // D D C C O O S S Q Q F
1329 // D D C O O S Q Q F
1330 // D D C O O SSSSS Q Q FFFFF
1331 // D D C O O S Q Q Q F
1332 // D D C C O O S S Q Q F
1333 // DDDDDD CCCCC OOOOO SSSSS QQQQ Q F
1334
1335
1336 // VIF THU 20 NOV 2025 22:19:27 ** DCOSQF ** DIAGNOSTICS PAGE 00062
1337
1338
1339 // VIF THU 20 NOV 2025 22:19:27 ** DCOSQF ** GENERATED CODE PAGE 00063
1340
1341 int_4 _dcosqf (int_4 _p_ n_, real_8 _p_ x_, real_8 _p_ wsave_)
1342 { // ** body not listed **
1376 }
1377
1378 // VIF THU 20 NOV 2025 22:19:27 ** DCOSQI ** DCOSQI PAGE 00064
1379
1380 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
1381 // S S U U B B R R O O U U T I NN N E
1382 // S U U B B R R O O U U T I N N N E
1383 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
1384 // S U U B B R R O O U U T I N N N E
1385 // S S U U B B R R O O U U T I N NN E
1386 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
1387
1388 // DDDDDD CCCCC OOOOO SSSSS QQQQQ III
1389 // D D C C O O S S Q Q I
1390 // D D C O O S Q Q I
1391 // D D C O O SSSSS Q Q I
1392 // D D C O O S Q Q Q I
1393 // D D C C O O S S Q Q I
1394 // DDDDDD CCCCC OOOOO SSSSS QQQQ Q III
1395
1396
1397 // VIF THU 20 NOV 2025 22:19:27 ** DCOSQI ** DIAGNOSTICS PAGE 00065
1398
1399
1400 // VIF THU 20 NOV 2025 22:19:27 ** DCOSQI ** GENERATED CODE PAGE 00066
1401
1402 int_4 _dcosqi (int_4 _p_ n_, real_8 _p_ wsave_)
1403 { // ** body not listed **
1428 }
1429
1430 // VIF THU 20 NOV 2025 22:19:27 ** DCOST ** DCOST PAGE 00067
1431
1432 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
1433 // S S U U B B R R O O U U T I NN N E
1434 // S U U B B R R O O U U T I N N N E
1435 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
1436 // S U U B B R R O O U U T I N N N E
1437 // S S U U B B R R O O U U T I N NN E
1438 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
1439
1440 // DDDDDD CCCCC OOOOO SSSSS TTTTTTT
1441 // D D C C O O S S T
1442 // D D C O O S T
1443 // D D C O O SSSSS T
1444 // D D C O O S T
1445 // D D C C O O S S T
1446 // DDDDDD CCCCC OOOOO SSSSS T
1447
1448
1449 // VIF THU 20 NOV 2025 22:19:27 ** DCOST ** DIAGNOSTICS PAGE 00068
1450
1451
1452 // VIF THU 20 NOV 2025 22:19:27 ** DCOST ** GENERATED CODE PAGE 00069
1453
1454 int_4 _dcost (int_4 _p_ n_, real_8 _p_ x_, real_8 _p_ wsave_)
1455 { // ** body not listed **
1519 }
1520
1521 // VIF THU 20 NOV 2025 22:19:27 ** DCOSTI ** DCOSTI PAGE 00071
1522
1523 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
1524 // S S U U B B R R O O U U T I NN N E
1525 // S U U B B R R O O U U T I N N N E
1526 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
1527 // S U U B B R R O O U U T I N N N E
1528 // S S U U B B R R O O U U T I N NN E
1529 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
1530
1531 // DDDDDD CCCCC OOOOO SSSSS TTTTTTT III
1532 // D D C C O O S S T I
1533 // D D C O O S T I
1534 // D D C O O SSSSS T I
1535 // D D C O O S T I
1536 // D D C C O O S S T I
1537 // DDDDDD CCCCC OOOOO SSSSS T III
1538
1539
1540 // VIF THU 20 NOV 2025 22:19:27 ** DCOSTI ** DIAGNOSTICS PAGE 00072
1541
1542
1543 // VIF THU 20 NOV 2025 22:19:27 ** DCOSTI ** GENERATED CODE PAGE 00073
1544
1545 int_4 _dcosti (int_4 _p_ n_, real_8 _p_ wsave_)
1546 { // ** body not listed **
1580 }
1581
1582 // VIF THU 20 NOV 2025 22:19:27 ** DFFTB ** DFFTB PAGE 00074
1583
1584 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
1585 // S S U U B B R R O O U U T I NN N E
1586 // S U U B B R R O O U U T I N N N E
1587 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
1588 // S U U B B R R O O U U T I N N N E
1589 // S S U U B B R R O O U U T I N NN E
1590 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
1591
1592 // DDDDDD FFFFFFF FFFFFFF TTTTTTT BBBBBB
1593 // D D F F T B B
1594 // D D F F T B B
1595 // D D FFFFF FFFFF T BBBBBB
1596 // D D F F T B B
1597 // D D F F T B B
1598 // DDDDDD F F T BBBBBB
1599
1600
1601 // VIF THU 20 NOV 2025 22:19:27 ** DFFTB ** DIAGNOSTICS PAGE 00075
1602
1603
1604 // VIF THU 20 NOV 2025 22:19:27 ** DFFTB ** GENERATED CODE PAGE 00076
1605
1606 int_4 _dfftb (int_4 _p_ n_, real_8 _p_ r_, real_8 _p_ wsave_)
1607 { // ** body not listed **
1615 }
1616
1617 // VIF THU 20 NOV 2025 22:19:27 ** DFFTF ** DFFTF PAGE 00077
1618
1619 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
1620 // S S U U B B R R O O U U T I NN N E
1621 // S U U B B R R O O U U T I N N N E
1622 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
1623 // S U U B B R R O O U U T I N N N E
1624 // S S U U B B R R O O U U T I N NN E
1625 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
1626
1627 // DDDDDD FFFFFFF FFFFFFF TTTTTTT FFFFFFF
1628 // D D F F T F
1629 // D D F F T F
1630 // D D FFFFF FFFFF T FFFFF
1631 // D D F F T F
1632 // D D F F T F
1633 // DDDDDD F F T F
1634
1635
1636 // VIF THU 20 NOV 2025 22:19:27 ** DFFTF ** DIAGNOSTICS PAGE 00078
1637
1638
1639 // VIF THU 20 NOV 2025 22:19:27 ** DFFTF ** GENERATED CODE PAGE 00079
1640
1641 int_4 _dfftf (int_4 _p_ n_, real_8 _p_ r_, real_8 _p_ wsave_)
1642 { // ** body not listed **
1650 }
1651
1652 // VIF THU 20 NOV 2025 22:19:27 ** DFFTI ** DFFTI PAGE 00080
1653
1654 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
1655 // S S U U B B R R O O U U T I NN N E
1656 // S U U B B R R O O U U T I N N N E
1657 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
1658 // S U U B B R R O O U U T I N N N E
1659 // S S U U B B R R O O U U T I N NN E
1660 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
1661
1662 // DDDDDD FFFFFFF FFFFFFF TTTTTTT III
1663 // D D F F T I
1664 // D D F F T I
1665 // D D FFFFF FFFFF T I
1666 // D D F F T I
1667 // D D F F T I
1668 // DDDDDD F F T III
1669
1670
1671 // VIF THU 20 NOV 2025 22:19:27 ** DFFTI ** DIAGNOSTICS PAGE 00081
1672
1673
1674 // VIF THU 20 NOV 2025 22:19:27 ** DFFTI ** GENERATED CODE PAGE 00082
1675
1676 int_4 _dffti (int_4 _p_ n_, real_8 _p_ wsave_)
1677 { // ** body not listed **
1685 }
1686
1687 // VIF THU 20 NOV 2025 22:19:27 ** DSINQB ** DSINQB PAGE 00083
1688
1689 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
1690 // S S U U B B R R O O U U T I NN N E
1691 // S U U B B R R O O U U T I N N N E
1692 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
1693 // S U U B B R R O O U U T I N N N E
1694 // S S U U B B R R O O U U T I N NN E
1695 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
1696
1697 // DDDDDD SSSSS III N N QQQQQ BBBBBB
1698 // D D S S I NN N Q Q B B
1699 // D D S I N N N Q Q B B
1700 // D D SSSSS I N N N Q Q BBBBBB
1701 // D D S I N N N Q Q Q B B
1702 // D D S S I N NN Q Q B B
1703 // DDDDDD SSSSS III N N QQQQ Q BBBBBB
1704
1705
1706 // VIF THU 20 NOV 2025 22:19:27 ** DSINQB ** DIAGNOSTICS PAGE 00084
1707
1708
1709 // VIF THU 20 NOV 2025 22:19:27 ** DSINQB ** GENERATED CODE PAGE 00085
1710
1711 int_4 _dsinqb (int_4 _p_ n_, real_8 _p_ x_, real_8 _p_ wsave_)
1712 { // ** body not listed **
1735 }
1736
1737 // VIF THU 20 NOV 2025 22:19:27 ** DSINQF ** DSINQF PAGE 00086
1738
1739 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
1740 // S S U U B B R R O O U U T I NN N E
1741 // S U U B B R R O O U U T I N N N E
1742 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
1743 // S U U B B R R O O U U T I N N N E
1744 // S S U U B B R R O O U U T I N NN E
1745 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
1746
1747 // DDDDDD SSSSS III N N QQQQQ FFFFFFF
1748 // D D S S I NN N Q Q F
1749 // D D S I N N N Q Q F
1750 // D D SSSSS I N N N Q Q FFFFF
1751 // D D S I N N N Q Q Q F
1752 // D D S S I N NN Q Q F
1753 // DDDDDD SSSSS III N N QQQQ Q F
1754
1755
1756 // VIF THU 20 NOV 2025 22:19:27 ** DSINQF ** DIAGNOSTICS PAGE 00087
1757
1758
1759 // VIF THU 20 NOV 2025 22:19:27 ** DSINQF ** GENERATED CODE PAGE 00088
1760
1761 int_4 _dsinqf (int_4 _p_ n_, real_8 _p_ x_, real_8 _p_ wsave_)
1762 { // ** body not listed **
1782 }
1783
1784 // VIF THU 20 NOV 2025 22:19:27 ** DSINQI ** DSINQI PAGE 00089
1785
1786 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
1787 // S S U U B B R R O O U U T I NN N E
1788 // S U U B B R R O O U U T I N N N E
1789 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
1790 // S U U B B R R O O U U T I N N N E
1791 // S S U U B B R R O O U U T I N NN E
1792 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
1793
1794 // DDDDDD SSSSS III N N QQQQQ III
1795 // D D S S I NN N Q Q I
1796 // D D S I N N N Q Q I
1797 // D D SSSSS I N N N Q Q I
1798 // D D S I N N N Q Q Q I
1799 // D D S S I N NN Q Q I
1800 // DDDDDD SSSSS III N N QQQQ Q III
1801
1802
1803 // VIF THU 20 NOV 2025 22:19:27 ** DSINQI ** DIAGNOSTICS PAGE 00090
1804
1805
1806 // VIF THU 20 NOV 2025 22:19:27 ** DSINQI ** GENERATED CODE PAGE 00091
1807
1808 int_4 _dsinqi (int_4 _p_ n_, real_8 _p_ wsave_)
1809 { // ** body not listed **
1813 }
1814
1815 // VIF THU 20 NOV 2025 22:19:27 ** DSINT ** DSINT PAGE 00092
1816
1817 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
1818 // S S U U B B R R O O U U T I NN N E
1819 // S U U B B R R O O U U T I N N N E
1820 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
1821 // S U U B B R R O O U U T I N N N E
1822 // S S U U B B R R O O U U T I N NN E
1823 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
1824
1825 // DDDDDD SSSSS III N N TTTTTTT
1826 // D D S S I NN N T
1827 // D D S I N N N T
1828 // D D SSSSS I N N N T
1829 // D D S I N N N T
1830 // D D S S I N NN T
1831 // DDDDDD SSSSS III N N T
1832
1833
1834 // VIF THU 20 NOV 2025 22:19:27 ** DSINT ** DIAGNOSTICS PAGE 00093
1835
1836
1837 // VIF THU 20 NOV 2025 22:19:27 ** DSINT ** GENERATED CODE PAGE 00094
1838
1839 int_4 _dsint (int_4 _p_ n_, real_8 _p_ x_, real_8 _p_ wsave_)
1840 { // ** body not listed **
1849 }
1850
1851 // VIF THU 20 NOV 2025 22:19:27 ** DSINTI ** DSINTI PAGE 00095
1852
1853 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
1854 // S S U U B B R R O O U U T I NN N E
1855 // S U U B B R R O O U U T I N N N E
1856 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
1857 // S U U B B R R O O U U T I N N N E
1858 // S S U U B B R R O O U U T I N NN E
1859 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
1860
1861 // DDDDDD SSSSS III N N TTTTTTT III
1862 // D D S S I NN N T I
1863 // D D S I N N N T I
1864 // D D SSSSS I N N N T I
1865 // D D S I N N N T I
1866 // D D S S I N NN T I
1867 // DDDDDD SSSSS III N N T III
1868
1869
1870 // VIF THU 20 NOV 2025 22:19:27 ** DSINTI ** DIAGNOSTICS PAGE 00096
1871
1872
1873 // VIF THU 20 NOV 2025 22:19:27 ** DSINTI ** GENERATED CODE PAGE 00097
1874
1875 int_4 _dsinti (int_4 _p_ n_, real_8 _p_ wsave_)
1876 { // ** body not listed **
1905 }
1906
1907 // VIF THU 20 NOV 2025 22:19:27 ** DZFFTB ** DZFFTB PAGE 00098
1908
1909 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
1910 // S S U U B B R R O O U U T I NN N E
1911 // S U U B B R R O O U U T I N N N E
1912 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
1913 // S U U B B R R O O U U T I N N N E
1914 // S S U U B B R R O O U U T I N NN E
1915 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
1916
1917 // DDDDDD ZZZZZZZ FFFFFFF FFFFFFF TTTTTTT BBBBBB
1918 // D D Z F F T B B
1919 // D D Z F F T B B
1920 // D D Z FFFFF FFFFF T BBBBBB
1921 // D D Z F F T B B
1922 // D D * F F T B B
1923 // DDDDDD ZZZZZZZ F F T BBBBBB
1924
1925
1926 // VIF THU 20 NOV 2025 22:19:27 ** DZFFTB ** DIAGNOSTICS PAGE 00099
1927
1928
1929 // VIF THU 20 NOV 2025 22:19:27 ** DZFFTB ** GENERATED CODE PAGE 00100
1930
1931 int_4 _dzfftb (int_4 _p_ n_, real_8 _p_ r_, real_8 _p_ azero_, real_8 _p_ a_, real_8 _p_ b_, real_8 _p_ wsave_)
1932 { // ** body not listed **
1964 }
1965
1966 // VIF THU 20 NOV 2025 22:19:27 ** DZFFTF ** DZFFTF PAGE 00101
1967
1968 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
1969 // S S U U B B R R O O U U T I NN N E
1970 // S U U B B R R O O U U T I N N N E
1971 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
1972 // S U U B B R R O O U U T I N N N E
1973 // S S U U B B R R O O U U T I N NN E
1974 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
1975
1976 // DDDDDD ZZZZZZZ FFFFFFF FFFFFFF TTTTTTT FFFFFFF
1977 // D D Z F F T F
1978 // D D Z F F T F
1979 // D D Z FFFFF FFFFF T FFFFF
1980 // D D Z F F T F
1981 // D D * F F T F
1982 // DDDDDD ZZZZZZZ F F T F
1983
1984
1985 // VIF THU 20 NOV 2025 22:19:27 ** DZFFTF ** DIAGNOSTICS PAGE 00102
1986
1987
1988 // VIF THU 20 NOV 2025 22:19:27 ** DZFFTF ** GENERATED CODE PAGE 00103
1989
1990 int_4 _dzfftf (int_4 _p_ n_, real_8 _p_ r_, real_8 _p_ azero_, real_8 _p_ a_, real_8 _p_ b_, real_8 _p_ wsave_)
1991 { // ** body not listed **
2032 }
2033
2034 // VIF THU 20 NOV 2025 22:19:27 ** DZFFTI ** DZFFTI PAGE 00104
2035
2036 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
2037 // S S U U B B R R O O U U T I NN N E
2038 // S U U B B R R O O U U T I N N N E
2039 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
2040 // S U U B B R R O O U U T I N N N E
2041 // S S U U B B R R O O U U T I N NN E
2042 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
2043
2044 // DDDDDD ZZZZZZZ FFFFFFF FFFFFFF TTTTTTT III
2045 // D D Z F F T I
2046 // D D Z F F T I
2047 // D D Z FFFFF FFFFF T I
2048 // D D Z F F T I
2049 // D D * F F T I
2050 // DDDDDD ZZZZZZZ F F T III
2051
2052
2053 // VIF THU 20 NOV 2025 22:19:27 ** DZFFTI ** DIAGNOSTICS PAGE 00105
2054
2055
2056 // VIF THU 20 NOV 2025 22:19:27 ** DZFFTI ** GENERATED CODE PAGE 00106
2057
2058 int_4 _dzffti (int_4 _p_ n_, real_8 _p_ wsave_)
2059 { // ** body not listed **
2067 }
2068
2069 // VIF THU 20 NOV 2025 22:19:27 ** EZFFT1 ** EZFFT1 PAGE 00107
2070
2071 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
2072 // S S U U B B R R O O U U T I NN N E
2073 // S U U B B R R O O U U T I N N N E
2074 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
2075 // S U U B B R R O O U U T I N N N E
2076 // S S U U B B R R O O U U T I N NN E
2077 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
2078
2079 // EEEEEEE ZZZZZZZ FFFFFFF FFFFFFF TTTTTTT 1
2080 // E Z F F T 11
2081 // E Z F F T 1 1
2082 // EEEEE Z FFFFF FFFFF T 1
2083 // E Z F F T 1
2084 // E * F F T 1
2085 // EEEEEEE ZZZZZZZ F F T 11111
2086
2087
2088 // VIF THU 20 NOV 2025 22:19:27 ** EZFFT1 ** DIAGNOSTICS PAGE 00108
2089
2090
2091 // VIF THU 20 NOV 2025 22:19:27 ** EZFFT1 ** GENERATED CODE PAGE 00109
2092
2093 int_4 _ezfft1 (int_4 _p_ n_, real_8 _p_ wa_, int_4 _p_ ifac_)
2094 { // ** body not listed **
2232 }
2233
2234 // VIF THU 20 NOV 2025 22:19:27 ** EZFFTB ** EZFFTB PAGE 00112
2235
2236 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
2237 // S S U U B B R R O O U U T I NN N E
2238 // S U U B B R R O O U U T I N N N E
2239 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
2240 // S U U B B R R O O U U T I N N N E
2241 // S S U U B B R R O O U U T I N NN E
2242 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
2243
2244 // EEEEEEE ZZZZZZZ FFFFFFF FFFFFFF TTTTTTT BBBBBB
2245 // E Z F F T B B
2246 // E Z F F T B B
2247 // EEEEE Z FFFFF FFFFF T BBBBBB
2248 // E Z F F T B B
2249 // E * F F T B B
2250 // EEEEEEE ZZZZZZZ F F T BBBBBB
2251
2252
2253 // VIF THU 20 NOV 2025 22:19:27 ** EZFFTB ** DIAGNOSTICS PAGE 00113
2254
2255
2256 // VIF THU 20 NOV 2025 22:19:27 ** EZFFTB ** GENERATED CODE PAGE 00114
2257
2258 int_4 _ezfftb (int_4 _p_ n_, real_4 _p_ r_, real_4 _p_ azero_, real_4 _p_ a_, real_4 _p_ b_, real_4 _p_ wsave_)
2259 { // ** body not listed **
2291 }
2292
2293 // VIF THU 20 NOV 2025 22:19:27 ** EZFFTF ** EZFFTF PAGE 00115
2294
2295 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
2296 // S S U U B B R R O O U U T I NN N E
2297 // S U U B B R R O O U U T I N N N E
2298 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
2299 // S U U B B R R O O U U T I N N N E
2300 // S S U U B B R R O O U U T I N NN E
2301 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
2302
2303 // EEEEEEE ZZZZZZZ FFFFFFF FFFFFFF TTTTTTT FFFFFFF
2304 // E Z F F T F
2305 // E Z F F T F
2306 // EEEEE Z FFFFF FFFFF T FFFFF
2307 // E Z F F T F
2308 // E * F F T F
2309 // EEEEEEE ZZZZZZZ F F T F
2310
2311
2312 // VIF THU 20 NOV 2025 22:19:27 ** EZFFTF ** DIAGNOSTICS PAGE 00116
2313
2314
2315 // VIF THU 20 NOV 2025 22:19:27 ** EZFFTF ** GENERATED CODE PAGE 00117
2316
2317 int_4 _ezfftf (int_4 _p_ n_, real_4 _p_ r_, real_4 _p_ azero_, real_4 _p_ a_, real_4 _p_ b_, real_4 _p_ wsave_)
2318 { // ** body not listed **
2357 }
2358
2359 // VIF THU 20 NOV 2025 22:19:27 ** EZFFTI ** EZFFTI PAGE 00118
2360
2361 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
2362 // S S U U B B R R O O U U T I NN N E
2363 // S U U B B R R O O U U T I N N N E
2364 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
2365 // S U U B B R R O O U U T I N N N E
2366 // S S U U B B R R O O U U T I N NN E
2367 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
2368
2369 // EEEEEEE ZZZZZZZ FFFFFFF FFFFFFF TTTTTTT III
2370 // E Z F F T I
2371 // E Z F F T I
2372 // EEEEE Z FFFFF FFFFF T I
2373 // E Z F F T I
2374 // E * F F T I
2375 // EEEEEEE ZZZZZZZ F F T III
2376
2377
2378 // VIF THU 20 NOV 2025 22:19:27 ** EZFFTI ** DIAGNOSTICS PAGE 00119
2379
2380
2381 // VIF THU 20 NOV 2025 22:19:27 ** EZFFTI ** GENERATED CODE PAGE 00120
2382
2383 int_4 _ezffti (int_4 _p_ n_, real_4 _p_ wsave_)
2384 { // ** body not listed **
2392 }
2393
2394 // VIF THU 20 NOV 2025 22:19:27 ** PASSB2 ** PASSB2 PAGE 00121
2395
2396 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
2397 // S S U U B B R R O O U U T I NN N E
2398 // S U U B B R R O O U U T I N N N E
2399 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
2400 // S U U B B R R O O U U T I N N N E
2401 // S S U U B B R R O O U U T I N NN E
2402 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
2403
2404 // PPPPPP A SSSSS SSSSS BBBBBB 22222
2405 // P P A A S S S S B B 2 2
2406 // P P A A S S B B 2
2407 // PPPPPP A A SSSSS SSSSS BBBBBB 22222
2408 // P AAAAAAA S S B B 2
2409 // P A A S S S S B B 2
2410 // P A A SSSSS SSSSS BBBBBB 2222222
2411
2412
2413 // VIF THU 20 NOV 2025 22:19:27 ** PASSB2 ** DIAGNOSTICS PAGE 00122
2414
2415
2416 // VIF THU 20 NOV 2025 22:19:27 ** PASSB2 ** GENERATED CODE PAGE 00123
2417
2418 int_4 _passb2 (int_4 _p_ ido_, int_4 _p_ l1_, real_8 _p_ cc_, real_8 _p_ ch_, real_8 _p_ wa1_)
2419 { // ** body not listed **
2453 }
2454
2455 // VIF THU 20 NOV 2025 22:19:27 ** PASSB3 ** PASSB3 PAGE 00124
2456
2457 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
2458 // S S U U B B R R O O U U T I NN N E
2459 // S U U B B R R O O U U T I N N N E
2460 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
2461 // S U U B B R R O O U U T I N N N E
2462 // S S U U B B R R O O U U T I N NN E
2463 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
2464
2465 // PPPPPP A SSSSS SSSSS BBBBBB 33333
2466 // P P A A S S S S B B 3 3
2467 // P P A A S S B B 3
2468 // PPPPPP A A SSSSS SSSSS BBBBBB 33333
2469 // P AAAAAAA S S B B 3
2470 // P A A S S S S B B 3 3
2471 // P A A SSSSS SSSSS BBBBBB 33333
2472
2473
2474 // VIF THU 20 NOV 2025 22:19:27 ** PASSB3 ** DIAGNOSTICS PAGE 00125
2475
2476
2477 // VIF THU 20 NOV 2025 22:19:27 ** PASSB3 ** GENERATED CODE PAGE 00126
2478
2479 int_4 _passb3 (int_4 _p_ ido_, int_4 _p_ l1_, real_8 _p_ cc_, real_8 _p_ ch_, real_8 _p_ wa1_, real_8 _p_ wa2_)
2480 { // ** body not listed **
2550 }
2551
2552 // VIF THU 20 NOV 2025 22:19:27 ** PASSB4 ** PASSB4 PAGE 00128
2553
2554 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
2555 // S S U U B B R R O O U U T I NN N E
2556 // S U U B B R R O O U U T I N N N E
2557 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
2558 // S U U B B R R O O U U T I N N N E
2559 // S S U U B B R R O O U U T I N NN E
2560 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
2561
2562 // PPPPPP A SSSSS SSSSS BBBBBB 4
2563 // P P A A S S S S B B 4 4
2564 // P P A A S S B B 4 4
2565 // PPPPPP A A SSSSS SSSSS BBBBBB 4444444
2566 // P AAAAAAA S S B B 4
2567 // P A A S S S S B B 4
2568 // P A A SSSSS SSSSS BBBBBB 4
2569
2570
2571 // VIF THU 20 NOV 2025 22:19:27 ** PASSB4 ** DIAGNOSTICS PAGE 00129
2572
2573
2574 // VIF THU 20 NOV 2025 22:19:27 ** PASSB4 ** GENERATED CODE PAGE 00130
2575
2576 int_4 _passb4 (int_4 _p_ ido_, int_4 _p_ l1_, real_8 _p_ cc_, real_8 _p_ ch_, real_8 _p_ wa1_, real_8 _p_ wa2_, real_8
2577 _p_ wa3_)
2578 { // ** body not listed **
2639 }
2640
2641 // VIF THU 20 NOV 2025 22:19:27 ** PASSB5 ** PASSB5 PAGE 00132
2642
2643 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
2644 // S S U U B B R R O O U U T I NN N E
2645 // S U U B B R R O O U U T I N N N E
2646 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
2647 // S U U B B R R O O U U T I N N N E
2648 // S S U U B B R R O O U U T I N NN E
2649 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
2650
2651 // PPPPPP A SSSSS SSSSS BBBBBB 5555555
2652 // P P A A S S S S B B 5
2653 // P P A A S S B B 5
2654 // PPPPPP A A SSSSS SSSSS BBBBBB 55555
2655 // P AAAAAAA S S B B 5
2656 // P A A S S S S B B 5 5
2657 // P A A SSSSS SSSSS BBBBBB 55555
2658
2659
2660 // VIF THU 20 NOV 2025 22:19:27 ** PASSB5 ** DIAGNOSTICS PAGE 00133
2661
2662
2663 // VIF THU 20 NOV 2025 22:19:27 ** PASSB5 ** GENERATED CODE PAGE 00134
2664
2665 int_4 _passb5 (int_4 _p_ ido_, int_4 _p_ l1_, real_8 _p_ cc_, real_8 _p_ ch_, real_8 _p_ wa1_, real_8 _p_ wa2_, real_8
2666 _p_ wa3_, real_8 _p_ wa4_)
2667 { // ** body not listed **
2786 }
2787
2788 // VIF THU 20 NOV 2025 22:19:27 ** PASSB ** PASSB PAGE 00137
2789
2790 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
2791 // S S U U B B R R O O U U T I NN N E
2792 // S U U B B R R O O U U T I N N N E
2793 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
2794 // S U U B B R R O O U U T I N N N E
2795 // S S U U B B R R O O U U T I N NN E
2796 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
2797
2798 // PPPPPP A SSSSS SSSSS BBBBBB
2799 // P P A A S S S S B B
2800 // P P A A S S B B
2801 // PPPPPP A A SSSSS SSSSS BBBBBB
2802 // P AAAAAAA S S B B
2803 // P A A S S S S B B
2804 // P A A SSSSS SSSSS BBBBBB
2805
2806
2807 // VIF THU 20 NOV 2025 22:19:27 ** PASSB ** DIAGNOSTICS PAGE 00138
2808
2809
2810 // VIF THU 20 NOV 2025 22:19:27 ** PASSB ** GENERATED CODE PAGE 00139
2811
2812 int_4 _passb (int_4 _p_ nac_, int_4 _p_ ido_, int_4 _p_ ip_, int_4 _p_ l1_, int_4 _p_ idl1_, real_8 _p_ cc_, real_8 _p_
2813 c1_, real_8 _p_ c2_, real_8 _p_ ch_, real_8 _p_ ch2_, real_8 _p_ wa_)
2814 { // ** body not listed **
2959 }
2960
2961 // VIF THU 20 NOV 2025 22:19:27 ** PASSF2 ** PASSF2 PAGE 00142
2962
2963 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
2964 // S S U U B B R R O O U U T I NN N E
2965 // S U U B B R R O O U U T I N N N E
2966 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
2967 // S U U B B R R O O U U T I N N N E
2968 // S S U U B B R R O O U U T I N NN E
2969 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
2970
2971 // PPPPPP A SSSSS SSSSS FFFFFFF 22222
2972 // P P A A S S S S F 2 2
2973 // P P A A S S F 2
2974 // PPPPPP A A SSSSS SSSSS FFFFF 22222
2975 // P AAAAAAA S S F 2
2976 // P A A S S S S F 2
2977 // P A A SSSSS SSSSS F 2222222
2978
2979
2980 // VIF THU 20 NOV 2025 22:19:27 ** PASSF2 ** DIAGNOSTICS PAGE 00143
2981
2982
2983 // VIF THU 20 NOV 2025 22:19:27 ** PASSF2 ** GENERATED CODE PAGE 00144
2984
2985 int_4 _passf2 (int_4 _p_ ido_, int_4 _p_ l1_, real_8 _p_ cc_, real_8 _p_ ch_, real_8 _p_ wa1_)
2986 { // ** body not listed **
3020 }
3021
3022 // VIF THU 20 NOV 2025 22:19:27 ** PASSF3 ** PASSF3 PAGE 00145
3023
3024 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
3025 // S S U U B B R R O O U U T I NN N E
3026 // S U U B B R R O O U U T I N N N E
3027 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
3028 // S U U B B R R O O U U T I N N N E
3029 // S S U U B B R R O O U U T I N NN E
3030 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
3031
3032 // PPPPPP A SSSSS SSSSS FFFFFFF 33333
3033 // P P A A S S S S F 3 3
3034 // P P A A S S F 3
3035 // PPPPPP A A SSSSS SSSSS FFFFF 33333
3036 // P AAAAAAA S S F 3
3037 // P A A S S S S F 3 3
3038 // P A A SSSSS SSSSS F 33333
3039
3040
3041 // VIF THU 20 NOV 2025 22:19:27 ** PASSF3 ** DIAGNOSTICS PAGE 00146
3042
3043
3044 // VIF THU 20 NOV 2025 22:19:27 ** PASSF3 ** GENERATED CODE PAGE 00147
3045
3046 int_4 _passf3 (int_4 _p_ ido_, int_4 _p_ l1_, real_8 _p_ cc_, real_8 _p_ ch_, real_8 _p_ wa1_, real_8 _p_ wa2_)
3047 { // ** body not listed **
3117 }
3118
3119 // VIF THU 20 NOV 2025 22:19:27 ** PASSF4 ** PASSF4 PAGE 00149
3120
3121 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
3122 // S S U U B B R R O O U U T I NN N E
3123 // S U U B B R R O O U U T I N N N E
3124 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
3125 // S U U B B R R O O U U T I N N N E
3126 // S S U U B B R R O O U U T I N NN E
3127 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
3128
3129 // PPPPPP A SSSSS SSSSS FFFFFFF 4
3130 // P P A A S S S S F 4 4
3131 // P P A A S S F 4 4
3132 // PPPPPP A A SSSSS SSSSS FFFFF 4444444
3133 // P AAAAAAA S S F 4
3134 // P A A S S S S F 4
3135 // P A A SSSSS SSSSS F 4
3136
3137
3138 // VIF THU 20 NOV 2025 22:19:27 ** PASSF4 ** DIAGNOSTICS PAGE 00150
3139
3140
3141 // VIF THU 20 NOV 2025 22:19:27 ** PASSF4 ** GENERATED CODE PAGE 00151
3142
3143 int_4 _passf4 (int_4 _p_ ido_, int_4 _p_ l1_, real_8 _p_ cc_, real_8 _p_ ch_, real_8 _p_ wa1_, real_8 _p_ wa2_, real_8
3144 _p_ wa3_)
3145 { // ** body not listed **
3206 }
3207
3208 // VIF THU 20 NOV 2025 22:19:27 ** PASSF5 ** PASSF5 PAGE 00153
3209
3210 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
3211 // S S U U B B R R O O U U T I NN N E
3212 // S U U B B R R O O U U T I N N N E
3213 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
3214 // S U U B B R R O O U U T I N N N E
3215 // S S U U B B R R O O U U T I N NN E
3216 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
3217
3218 // PPPPPP A SSSSS SSSSS FFFFFFF 5555555
3219 // P P A A S S S S F 5
3220 // P P A A S S F 5
3221 // PPPPPP A A SSSSS SSSSS FFFFF 55555
3222 // P AAAAAAA S S F 5
3223 // P A A S S S S F 5 5
3224 // P A A SSSSS SSSSS F 55555
3225
3226
3227 // VIF THU 20 NOV 2025 22:19:27 ** PASSF5 ** DIAGNOSTICS PAGE 00154
3228
3229
3230 // VIF THU 20 NOV 2025 22:19:27 ** PASSF5 ** GENERATED CODE PAGE 00155
3231
3232 int_4 _passf5 (int_4 _p_ ido_, int_4 _p_ l1_, real_8 _p_ cc_, real_8 _p_ ch_, real_8 _p_ wa1_, real_8 _p_ wa2_, real_8
3233 _p_ wa3_, real_8 _p_ wa4_)
3234 { // ** body not listed **
3353 }
3354
3355 // VIF THU 20 NOV 2025 22:19:27 ** PASSF ** PASSF PAGE 00158
3356
3357 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
3358 // S S U U B B R R O O U U T I NN N E
3359 // S U U B B R R O O U U T I N N N E
3360 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
3361 // S U U B B R R O O U U T I N N N E
3362 // S S U U B B R R O O U U T I N NN E
3363 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
3364
3365 // PPPPPP A SSSSS SSSSS FFFFFFF
3366 // P P A A S S S S F
3367 // P P A A S S F
3368 // PPPPPP A A SSSSS SSSSS FFFFF
3369 // P AAAAAAA S S F
3370 // P A A S S S S F
3371 // P A A SSSSS SSSSS F
3372
3373
3374 // VIF THU 20 NOV 2025 22:19:27 ** PASSF ** DIAGNOSTICS PAGE 00159
3375
3376
3377 // VIF THU 20 NOV 2025 22:19:27 ** PASSF ** GENERATED CODE PAGE 00160
3378
3379 int_4 _passf (int_4 _p_ nac_, int_4 _p_ ido_, int_4 _p_ ip_, int_4 _p_ l1_, int_4 _p_ idl1_, real_8 _p_ cc_, real_8 _p_
3380 c1_, real_8 _p_ c2_, real_8 _p_ ch_, real_8 _p_ ch2_, real_8 _p_ wa_)
3381 { // ** body not listed **
3526 }
3527
3528 // VIF THU 20 NOV 2025 22:19:27 ** RADB2 ** RADB2 PAGE 00163
3529
3530 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
3531 // S S U U B B R R O O U U T I NN N E
3532 // S U U B B R R O O U U T I N N N E
3533 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
3534 // S U U B B R R O O U U T I N N N E
3535 // S S U U B B R R O O U U T I N NN E
3536 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
3537
3538 // RRRRRR A DDDDDD BBBBBB 22222
3539 // R R A A D D B B 2 2
3540 // R R A A D D B B 2
3541 // RRRRRR A A D D BBBBBB 22222
3542 // R R AAAAAAA D D B B 2
3543 // R R A A D D B B 2
3544 // R R A A DDDDDD BBBBBB 2222222
3545
3546
3547 // VIF THU 20 NOV 2025 22:19:27 ** RADB2 ** DIAGNOSTICS PAGE 00164
3548
3549
3550 // VIF THU 20 NOV 2025 22:19:27 ** RADB2 ** GENERATED CODE PAGE 00165
3551
3552 int_4 _radb2 (int_4 _p_ ido_, int_4 _p_ l1_, real_8 _p_ cc_, real_8 _p_ ch_, real_8 _p_ wa1_)
3553 { // ** body not listed **
3601 }
3602 // VIF THU 20 NOV 2025 22:19:27 ** RADB2 ** GENERATED CODE PAGE 00166
3603
3604
3605 // VIF THU 20 NOV 2025 22:19:27 ** RADB3 ** RADB3 PAGE 00167
3606
3607 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
3608 // S S U U B B R R O O U U T I NN N E
3609 // S U U B B R R O O U U T I N N N E
3610 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
3611 // S U U B B R R O O U U T I N N N E
3612 // S S U U B B R R O O U U T I N NN E
3613 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
3614
3615 // RRRRRR A DDDDDD BBBBBB 33333
3616 // R R A A D D B B 3 3
3617 // R R A A D D B B 3
3618 // RRRRRR A A D D BBBBBB 33333
3619 // R R AAAAAAA D D B B 3
3620 // R R A A D D B B 3 3
3621 // R R A A DDDDDD BBBBBB 33333
3622
3623
3624 // VIF THU 20 NOV 2025 22:19:27 ** RADB3 ** DIAGNOSTICS PAGE 00168
3625
3626
3627 // VIF THU 20 NOV 2025 22:19:27 ** RADB3 ** GENERATED CODE PAGE 00169
3628
3629 int_4 _radb3 (int_4 _p_ ido_, int_4 _p_ l1_, real_8 _p_ cc_, real_8 _p_ ch_, real_8 _p_ wa1_, real_8 _p_ wa2_)
3630 { // ** body not listed **
3695 }
3696
3697 // VIF THU 20 NOV 2025 22:19:27 ** RADB4 ** RADB4 PAGE 00171
3698
3699 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
3700 // S S U U B B R R O O U U T I NN N E
3701 // S U U B B R R O O U U T I N N N E
3702 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
3703 // S U U B B R R O O U U T I N N N E
3704 // S S U U B B R R O O U U T I N NN E
3705 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
3706
3707 // RRRRRR A DDDDDD BBBBBB 4
3708 // R R A A D D B B 4 4
3709 // R R A A D D B B 4 4
3710 // RRRRRR A A D D BBBBBB 4444444
3711 // R R AAAAAAA D D B B 4
3712 // R R A A D D B B 4
3713 // R R A A DDDDDD BBBBBB 4
3714
3715
3716 // VIF THU 20 NOV 2025 22:19:27 ** RADB4 ** DIAGNOSTICS PAGE 00172
3717
3718
3719 // VIF THU 20 NOV 2025 22:19:27 ** RADB4 ** GENERATED CODE PAGE 00173
3720
3721 int_4 _radb4 (int_4 _p_ ido_, int_4 _p_ l1_, real_8 _p_ cc_, real_8 _p_ ch_, real_8 _p_ wa1_, real_8 _p_ wa2_, real_8
3722 _p_ wa3_)
3723 { // ** body not listed **
3813 }
3814
3815 // VIF THU 20 NOV 2025 22:19:27 ** RADB5 ** RADB5 PAGE 00175
3816
3817 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
3818 // S S U U B B R R O O U U T I NN N E
3819 // S U U B B R R O O U U T I N N N E
3820 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
3821 // S U U B B R R O O U U T I N N N E
3822 // S S U U B B R R O O U U T I N NN E
3823 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
3824
3825 // RRRRRR A DDDDDD BBBBBB 5555555
3826 // R R A A D D B B 5
3827 // R R A A D D B B 5
3828 // RRRRRR A A D D BBBBBB 55555
3829 // R R AAAAAAA D D B B 5
3830 // R R A A D D B B 5 5
3831 // R R A A DDDDDD BBBBBB 55555
3832
3833
3834 // VIF THU 20 NOV 2025 22:19:27 ** RADB5 ** DIAGNOSTICS PAGE 00176
3835
3836
3837 // VIF THU 20 NOV 2025 22:19:27 ** RADB5 ** GENERATED CODE PAGE 00177
3838
3839 int_4 _radb5 (int_4 _p_ ido_, int_4 _p_ l1_, real_8 _p_ cc_, real_8 _p_ ch_, real_8 _p_ wa1_, real_8 _p_ wa2_, real_8
3840 _p_ wa3_, real_8 _p_ wa4_)
3841 { // ** body not listed **
3949 }
3950
3951 // VIF THU 20 NOV 2025 22:19:27 ** RADBG ** RADBG PAGE 00180
3952
3953 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
3954 // S S U U B B R R O O U U T I NN N E
3955 // S U U B B R R O O U U T I N N N E
3956 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
3957 // S U U B B R R O O U U T I N N N E
3958 // S S U U B B R R O O U U T I N NN E
3959 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
3960
3961 // RRRRRR A DDDDDD BBBBBB GGGGG
3962 // R R A A D D B B G G
3963 // R R A A D D B B G
3964 // RRRRRR A A D D BBBBBB G GGGG
3965 // R R AAAAAAA D D B B G G
3966 // R R A A D D B B G G
3967 // R R A A DDDDDD BBBBBB GGGGG
3968
3969
3970 // VIF THU 20 NOV 2025 22:19:27 ** RADBG ** DIAGNOSTICS PAGE 00181
3971
3972
3973 // VIF THU 20 NOV 2025 22:19:27 ** RADBG ** GENERATED CODE PAGE 00182
3974
3975 int_4 _radbg (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 _p_
3976 c2_, real_8 _p_ ch_, real_8 _p_ ch2_, real_8 _p_ wa_)
3977 { // ** body not listed **
4205 }
4206
4207 // VIF THU 20 NOV 2025 22:19:27 ** RADF2 ** RADF2 PAGE 00187
4208
4209 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
4210 // S S U U B B R R O O U U T I NN N E
4211 // S U U B B R R O O U U T I N N N E
4212 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
4213 // S U U B B R R O O U U T I N N N E
4214 // S S U U B B R R O O U U T I N NN E
4215 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
4216
4217 // RRRRRR A DDDDDD FFFFFFF 22222
4218 // R R A A D D F 2 2
4219 // R R A A D D F 2
4220 // RRRRRR A A D D FFFFF 22222
4221 // R R AAAAAAA D D F 2
4222 // R R A A D D F 2
4223 // R R A A DDDDDD F 2222222
4224
4225
4226 // VIF THU 20 NOV 2025 22:19:27 ** RADF2 ** DIAGNOSTICS PAGE 00188
4227
4228
4229 // VIF THU 20 NOV 2025 22:19:27 ** RADF2 ** GENERATED CODE PAGE 00189
4230
4231 int_4 _radf2 (int_4 _p_ ido_, int_4 _p_ l1_, real_8 _p_ cc_, real_8 _p_ ch_, real_8 _p_ wa1_)
4232 { // ** body not listed **
4280 }
4281 // VIF THU 20 NOV 2025 22:19:27 ** RADF2 ** GENERATED CODE PAGE 00190
4282
4283
4284 // VIF THU 20 NOV 2025 22:19:27 ** RADF3 ** RADF3 PAGE 00191
4285
4286 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
4287 // S S U U B B R R O O U U T I NN N E
4288 // S U U B B R R O O U U T I N N N E
4289 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
4290 // S U U B B R R O O U U T I N N N E
4291 // S S U U B B R R O O U U T I N NN E
4292 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
4293
4294 // RRRRRR A DDDDDD FFFFFFF 33333
4295 // R R A A D D F 3 3
4296 // R R A A D D F 3
4297 // RRRRRR A A D D FFFFF 33333
4298 // R R AAAAAAA D D F 3
4299 // R R A A D D F 3 3
4300 // R R A A DDDDDD F 33333
4301
4302
4303 // VIF THU 20 NOV 2025 22:19:27 ** RADF3 ** DIAGNOSTICS PAGE 00192
4304
4305
4306 // VIF THU 20 NOV 2025 22:19:27 ** RADF3 ** GENERATED CODE PAGE 00193
4307
4308 int_4 _radf3 (int_4 _p_ ido_, int_4 _p_ l1_, real_8 _p_ cc_, real_8 _p_ ch_, real_8 _p_ wa1_, real_8 _p_ wa2_)
4309 { // ** body not listed **
4374 }
4375
4376 // VIF THU 20 NOV 2025 22:19:27 ** RADF4 ** RADF4 PAGE 00195
4377
4378 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
4379 // S S U U B B R R O O U U T I NN N E
4380 // S U U B B R R O O U U T I N N N E
4381 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
4382 // S U U B B R R O O U U T I N N N E
4383 // S S U U B B R R O O U U T I N NN E
4384 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
4385
4386 // RRRRRR A DDDDDD FFFFFFF 4
4387 // R R A A D D F 4 4
4388 // R R A A D D F 4 4
4389 // RRRRRR A A D D FFFFF 4444444
4390 // R R AAAAAAA D D F 4
4391 // R R A A D D F 4
4392 // R R A A DDDDDD F 4
4393
4394
4395 // VIF THU 20 NOV 2025 22:19:27 ** RADF4 ** DIAGNOSTICS PAGE 00196
4396
4397
4398 // VIF THU 20 NOV 2025 22:19:27 ** RADF4 ** GENERATED CODE PAGE 00197
4399
4400 int_4 _radf4 (int_4 _p_ ido_, int_4 _p_ l1_, real_8 _p_ cc_, real_8 _p_ ch_, real_8 _p_ wa1_, real_8 _p_ wa2_, real_8
4401 _p_ wa3_)
4402 { // ** body not listed **
4493 }
4494
4495 // VIF THU 20 NOV 2025 22:19:27 ** RADF5 ** RADF5 PAGE 00199
4496
4497 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
4498 // S S U U B B R R O O U U T I NN N E
4499 // S U U B B R R O O U U T I N N N E
4500 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
4501 // S U U B B R R O O U U T I N N N E
4502 // S S U U B B R R O O U U T I N NN E
4503 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
4504
4505 // RRRRRR A DDDDDD FFFFFFF 5555555
4506 // R R A A D D F 5
4507 // R R A A D D F 5
4508 // RRRRRR A A D D FFFFF 55555
4509 // R R AAAAAAA D D F 5
4510 // R R A A D D F 5 5
4511 // R R A A DDDDDD F 55555
4512
4513
4514 // VIF THU 20 NOV 2025 22:19:27 ** RADF5 ** DIAGNOSTICS PAGE 00200
4515
4516
4517 // VIF THU 20 NOV 2025 22:19:27 ** RADF5 ** GENERATED CODE PAGE 00201
4518
4519 int_4 _radf5 (int_4 _p_ ido_, int_4 _p_ l1_, real_8 _p_ cc_, real_8 _p_ ch_, real_8 _p_ wa1_, real_8 _p_ wa2_, real_8
4520 _p_ wa3_, real_8 _p_ wa4_)
4521 { // ** body not listed **
4629 }
4630
4631 // VIF THU 20 NOV 2025 22:19:27 ** RADFG ** RADFG PAGE 00204
4632
4633 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
4634 // S S U U B B R R O O U U T I NN N E
4635 // S U U B B R R O O U U T I N N N E
4636 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
4637 // S U U B B R R O O U U T I N N N E
4638 // S S U U B B R R O O U U T I N NN E
4639 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
4640
4641 // RRRRRR A DDDDDD FFFFFFF GGGGG
4642 // R R A A D D F G G
4643 // R R A A D D F G
4644 // RRRRRR A A D D FFFFF G GGGG
4645 // R R AAAAAAA D D F G G
4646 // R R A A D D F G G
4647 // R R A A DDDDDD F GGGGG
4648
4649
4650 // VIF THU 20 NOV 2025 22:19:27 ** RADFG ** DIAGNOSTICS PAGE 00205
4651
4652
4653 // VIF THU 20 NOV 2025 22:19:27 ** RADFG ** GENERATED CODE PAGE 00206
4654
4655 int_4 _radfg (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 _p_
4656 c2_, real_8 _p_ ch_, real_8 _p_ ch2_, real_8 _p_ wa_)
4657 { // ** body not listed **
4888 }
4889
4890 // VIF THU 20 NOV 2025 22:19:27 ** RFFTB1 ** RFFTB1 PAGE 00211
4891
4892 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
4893 // S S U U B B R R O O U U T I NN N E
4894 // S U U B B R R O O U U T I N N N E
4895 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
4896 // S U U B B R R O O U U T I N N N E
4897 // S S U U B B R R O O U U T I N NN E
4898 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
4899
4900 // RRRRRR FFFFFFF FFFFFFF TTTTTTT BBBBBB 1
4901 // R R F F T B B 11
4902 // R R F F T B B 1 1
4903 // RRRRRR FFFFF FFFFF T BBBBBB 1
4904 // R R F F T B B 1
4905 // R R F F T B B 1
4906 // R R F F T BBBBBB 11111
4907
4908
4909 // VIF THU 20 NOV 2025 22:19:27 ** RFFTB1 ** DIAGNOSTICS PAGE 00212
4910
4911
4912 // VIF THU 20 NOV 2025 22:19:27 ** RFFTB1 ** GENERATED CODE PAGE 00213
4913
4914 int_4 _rfftb1 (int_4 _p_ n_, real_8 _p_ c_, real_8 _p_ ch_, real_8 _p_ wa_, int_4 _p_ ifac_)
4915 { // ** body not listed **
5014 }
5015
5016 // VIF THU 20 NOV 2025 22:19:27 ** RFFTB ** RFFTB PAGE 00215
5017
5018 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
5019 // S S U U B B R R O O U U T I NN N E
5020 // S U U B B R R O O U U T I N N N E
5021 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
5022 // S U U B B R R O O U U T I N N N E
5023 // S S U U B B R R O O U U T I N NN E
5024 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
5025
5026 // RRRRRR FFFFFFF FFFFFFF TTTTTTT BBBBBB
5027 // R R F F T B B
5028 // R R F F T B B
5029 // RRRRRR FFFFF FFFFF T BBBBBB
5030 // R R F F T B B
5031 // R R F F T B B
5032 // R R F F T BBBBBB
5033
5034
5035 // VIF THU 20 NOV 2025 22:19:27 ** RFFTB ** DIAGNOSTICS PAGE 00216
5036
5037
5038 // VIF THU 20 NOV 2025 22:19:27 ** RFFTB ** GENERATED CODE PAGE 00217
5039
5040 int_4 _rfftb (int_4 _p_ n_, real_4 _p_ r_, real_4 _p_ wsave_)
5041 { // ** body not listed **
5049 }
5050
5051 // VIF THU 20 NOV 2025 22:19:27 ** RFFTF1 ** RFFTF1 PAGE 00218
5052
5053 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
5054 // S S U U B B R R O O U U T I NN N E
5055 // S U U B B R R O O U U T I N N N E
5056 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
5057 // S U U B B R R O O U U T I N N N E
5058 // S S U U B B R R O O U U T I N NN E
5059 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
5060
5061 // RRRRRR FFFFFFF FFFFFFF TTTTTTT FFFFFFF 1
5062 // R R F F T F 11
5063 // R R F F T F 1 1
5064 // RRRRRR FFFFF FFFFF T FFFFF 1
5065 // R R F F T F 1
5066 // R R F F T F 1
5067 // R R F F T F 11111
5068
5069
5070 // VIF THU 20 NOV 2025 22:19:27 ** RFFTF1 ** DIAGNOSTICS PAGE 00219
5071
5072
5073 // VIF THU 20 NOV 2025 22:19:27 ** RFFTF1 ** GENERATED CODE PAGE 00220
5074
5075 int_4 _rfftf1 (int_4 _p_ n_, real_8 _p_ c_, real_8 _p_ ch_, real_8 _p_ wa_, int_4 _p_ ifac_)
5076 { // ** body not listed **
5170 }
5171
5172 // VIF THU 20 NOV 2025 22:19:27 ** RFFTF ** RFFTF PAGE 00222
5173
5174 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
5175 // S S U U B B R R O O U U T I NN N E
5176 // S U U B B R R O O U U T I N N N E
5177 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
5178 // S U U B B R R O O U U T I N N N E
5179 // S S U U B B R R O O U U T I N NN E
5180 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
5181
5182 // RRRRRR FFFFFFF FFFFFFF TTTTTTT FFFFFFF
5183 // R R F F T F
5184 // R R F F T F
5185 // RRRRRR FFFFF FFFFF T FFFFF
5186 // R R F F T F
5187 // R R F F T F
5188 // R R F F T F
5189
5190
5191 // VIF THU 20 NOV 2025 22:19:27 ** RFFTF ** DIAGNOSTICS PAGE 00223
5192
5193
5194 // VIF THU 20 NOV 2025 22:19:27 ** RFFTF ** GENERATED CODE PAGE 00224
5195
5196 int_4 _rfftf (int_4 _p_ n_, real_4 _p_ r_, real_4 _p_ wsave_)
5197 { // ** body not listed **
5205 }
5206
5207 // VIF THU 20 NOV 2025 22:19:27 ** RFFTI1 ** RFFTI1 PAGE 00225
5208
5209 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
5210 // S S U U B B R R O O U U T I NN N E
5211 // S U U B B R R O O U U T I N N N E
5212 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
5213 // S U U B B R R O O U U T I N N N E
5214 // S S U U B B R R O O U U T I N NN E
5215 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
5216
5217 // RRRRRR FFFFFFF FFFFFFF TTTTTTT III 1
5218 // R R F F T I 11
5219 // R R F F T I 1 1
5220 // RRRRRR FFFFF FFFFF T I 1
5221 // R R F F T I 1
5222 // R R F F T I 1
5223 // R R F F T III 11111
5224
5225
5226 // VIF THU 20 NOV 2025 22:19:27 ** RFFTI1 ** DIAGNOSTICS PAGE 00226
5227
5228
5229 // VIF THU 20 NOV 2025 22:19:27 ** RFFTI1 ** GENERATED CODE PAGE 00227
5230
5231 int_4 _rffti1 (int_4 _p_ n_, real_8 _p_ wa_, int_4 _p_ ifac_)
5232 { // ** body not listed **
5353 }
5354
5355 // VIF THU 20 NOV 2025 22:19:27 ** RFFTI ** RFFTI PAGE 00230
5356
5357 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
5358 // S S U U B B R R O O U U T I NN N E
5359 // S U U B B R R O O U U T I N N N E
5360 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
5361 // S U U B B R R O O U U T I N N N E
5362 // S S U U B B R R O O U U T I N NN E
5363 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
5364
5365 // RRRRRR FFFFFFF FFFFFFF TTTTTTT III
5366 // R R F F T I
5367 // R R F F T I
5368 // RRRRRR FFFFF FFFFF T I
5369 // R R F F T I
5370 // R R F F T I
5371 // R R F F T III
5372
5373
5374 // VIF THU 20 NOV 2025 22:19:27 ** RFFTI ** DIAGNOSTICS PAGE 00231
5375
5376
5377 // VIF THU 20 NOV 2025 22:19:27 ** RFFTI ** GENERATED CODE PAGE 00232
5378
5379 int_4 _rffti (int_4 _p_ n_, real_4 _p_ wsave_)
5380 { // ** body not listed **
5388 }
5389
5390 // VIF THU 20 NOV 2025 22:19:27 ** SINQB ** SINQB PAGE 00233
5391
5392 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
5393 // S S U U B B R R O O U U T I NN N E
5394 // S U U B B R R O O U U T I N N N E
5395 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
5396 // S U U B B R R O O U U T I N N N E
5397 // S S U U B B R R O O U U T I N NN E
5398 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
5399
5400 // SSSSS III N N QQQQQ BBBBBB
5401 // S S I NN N Q Q B B
5402 // S I N N N Q Q B B
5403 // SSSSS I N N N Q Q BBBBBB
5404 // S I N N N Q Q Q B B
5405 // S S I N NN Q Q B B
5406 // SSSSS III N N QQQQ Q BBBBBB
5407
5408
5409 // VIF THU 20 NOV 2025 22:19:27 ** SINQB ** DIAGNOSTICS PAGE 00234
5410
5411
5412 // VIF THU 20 NOV 2025 22:19:27 ** SINQB ** GENERATED CODE PAGE 00235
5413
5414 int_4 _sinqb (int_4 _p_ n_, real_4 _p_ x_, real_4 _p_ wsave_)
5415 { // ** body not listed **
5438 }
5439
5440 // VIF THU 20 NOV 2025 22:19:27 ** SINQF ** SINQF PAGE 00236
5441
5442 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
5443 // S S U U B B R R O O U U T I NN N E
5444 // S U U B B R R O O U U T I N N N E
5445 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
5446 // S U U B B R R O O U U T I N N N E
5447 // S S U U B B R R O O U U T I N NN E
5448 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
5449
5450 // SSSSS III N N QQQQQ FFFFFFF
5451 // S S I NN N Q Q F
5452 // S I N N N Q Q F
5453 // SSSSS I N N N Q Q FFFFF
5454 // S I N N N Q Q Q F
5455 // S S I N NN Q Q F
5456 // SSSSS III N N QQQQ Q F
5457
5458
5459 // VIF THU 20 NOV 2025 22:19:27 ** SINQF ** DIAGNOSTICS PAGE 00237
5460
5461
5462 // VIF THU 20 NOV 2025 22:19:27 ** SINQF ** GENERATED CODE PAGE 00238
5463
5464 int_4 _sinqf (int_4 _p_ n_, real_4 _p_ x_, real_4 _p_ wsave_)
5465 { // ** body not listed **
5485 }
5486
5487 // VIF THU 20 NOV 2025 22:19:27 ** SINQI ** SINQI PAGE 00239
5488
5489 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
5490 // S S U U B B R R O O U U T I NN N E
5491 // S U U B B R R O O U U T I N N N E
5492 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
5493 // S U U B B R R O O U U T I N N N E
5494 // S S U U B B R R O O U U T I N NN E
5495 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
5496
5497 // SSSSS III N N QQQQQ III
5498 // S S I NN N Q Q I
5499 // S I N N N Q Q I
5500 // SSSSS I N N N Q Q I
5501 // S I N N N Q Q Q I
5502 // S S I N NN Q Q I
5503 // SSSSS III N N QQQQ Q III
5504
5505
5506 // VIF THU 20 NOV 2025 22:19:27 ** SINQI ** DIAGNOSTICS PAGE 00240
5507
5508
5509 // VIF THU 20 NOV 2025 22:19:27 ** SINQI ** GENERATED CODE PAGE 00241
5510
5511 int_4 _sinqi (int_4 _p_ n_, real_4 _p_ wsave_)
5512 { // ** body not listed **
5516 }
5517
5518 // VIF THU 20 NOV 2025 22:19:27 ** SINT1 ** SINT1 PAGE 00242
5519
5520 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
5521 // S S U U B B R R O O U U T I NN N E
5522 // S U U B B R R O O U U T I N N N E
5523 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
5524 // S U U B B R R O O U U T I N N N E
5525 // S S U U B B R R O O U U T I N NN E
5526 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
5527
5528 // SSSSS III N N TTTTTTT 1
5529 // S S I NN N T 11
5530 // S I N N N T 1 1
5531 // SSSSS I N N N T 1
5532 // S I N N N T 1
5533 // S S I N NN T 1
5534 // SSSSS III N N T 11111
5535
5536
5537 // VIF THU 20 NOV 2025 22:19:27 ** SINT1 ** DIAGNOSTICS PAGE 00243
5538
5539
5540 // VIF THU 20 NOV 2025 22:19:27 ** SINT1 ** GENERATED CODE PAGE 00244
5541
5542 int_4 _sint1 (int_4 _p_ n_, real_8 _p_ war_, real_8 _p_ was_, real_8 _p_ xh_, real_8 _p_ x_, int_4 _p_ ifac_)
5543 { // ** body not listed **
5613 }
5614
5615 // VIF THU 20 NOV 2025 22:19:27 ** SINT ** SINT PAGE 00246
5616
5617 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
5618 // S S U U B B R R O O U U T I NN N E
5619 // S U U B B R R O O U U T I N N N E
5620 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
5621 // S U U B B R R O O U U T I N N N E
5622 // S S U U B B R R O O U U T I N NN E
5623 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
5624
5625 // SSSSS III N N TTTTTTT
5626 // S S I NN N T
5627 // S I N N N T
5628 // SSSSS I N N N T
5629 // S I N N N T
5630 // S S I N NN T
5631 // SSSSS III N N T
5632
5633
5634 // VIF THU 20 NOV 2025 22:19:27 ** SINT ** DIAGNOSTICS PAGE 00247
5635
5636
5637 // VIF THU 20 NOV 2025 22:19:27 ** SINT ** GENERATED CODE PAGE 00248
5638
5639 int_4 _sint (int_4 _p_ n_, real_4 _p_ x_, real_4 _p_ wsave_)
5640 { // ** body not listed **
5694 }
5695
5696 // VIF THU 20 NOV 2025 22:19:27 ** SINTI ** SINTI PAGE 00250
5697
5698 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
5699 // S S U U B B R R O O U U T I NN N E
5700 // S U U B B R R O O U U T I N N N E
5701 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
5702 // S U U B B R R O O U U T I N N N E
5703 // S S U U B B R R O O U U T I N NN E
5704 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
5705
5706 // SSSSS III N N TTTTTTT III
5707 // S S I NN N T I
5708 // S I N N N T I
5709 // SSSSS I N N N T I
5710 // S I N N N T I
5711 // S S I N NN T I
5712 // SSSSS III N N T III
5713
5714
5715 // VIF THU 20 NOV 2025 22:19:27 ** SINTI ** DIAGNOSTICS PAGE 00251
5716
5717
5718 // VIF THU 20 NOV 2025 22:19:27 ** SINTI ** GENERATED CODE PAGE 00252
5719
5720 int_4 _sinti (int_4 _p_ n_, real_4 _p_ wsave_)
5721 { // ** body not listed **
5742 }
5743
5744 // VIF THU 20 NOV 2025 22:19:27 ** ZFFTB ** ZFFTB PAGE 00253
5745
5746 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
5747 // S S U U B B R R O O U U T I NN N E
5748 // S U U B B R R O O U U T I N N N E
5749 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
5750 // S U U B B R R O O U U T I N N N E
5751 // S S U U B B R R O O U U T I N NN E
5752 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
5753
5754 // ZZZZZZZ FFFFFFF FFFFFFF TTTTTTT BBBBBB
5755 // Z F F T B B
5756 // Z F F T B B
5757 // Z FFFFF FFFFF T BBBBBB
5758 // Z F F T B B
5759 // * F F T B B
5760 // ZZZZZZZ F F T BBBBBB
5761
5762
5763 // VIF THU 20 NOV 2025 22:19:27 ** ZFFTB ** DIAGNOSTICS PAGE 00254
5764
5765
5766 // VIF THU 20 NOV 2025 22:19:27 ** ZFFTB ** GENERATED CODE PAGE 00255
5767
5768 int_4 _zfftb (int_4 _p_ n_, real_8 _p_ c_, real_8 _p_ wsave_)
5769 { // ** body not listed **
5780 }
5781
5782 // VIF THU 20 NOV 2025 22:19:27 ** ZFFTF ** ZFFTF PAGE 00256
5783
5784 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
5785 // S S U U B B R R O O U U T I NN N E
5786 // S U U B B R R O O U U T I N N N E
5787 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
5788 // S U U B B R R O O U U T I N N N E
5789 // S S U U B B R R O O U U T I N NN E
5790 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
5791
5792 // ZZZZZZZ FFFFFFF FFFFFFF TTTTTTT FFFFFFF
5793 // Z F F T F
5794 // Z F F T F
5795 // Z FFFFF FFFFF T FFFFF
5796 // Z F F T F
5797 // * F F T F
5798 // ZZZZZZZ F F T F
5799
5800
5801 // VIF THU 20 NOV 2025 22:19:27 ** ZFFTF ** DIAGNOSTICS PAGE 00257
5802
5803
5804 // VIF THU 20 NOV 2025 22:19:27 ** ZFFTF ** GENERATED CODE PAGE 00258
5805
5806 int_4 _zfftf (int_4 _p_ n_, real_8 _p_ c_, real_8 _p_ wsave_)
5807 { // ** body not listed **
5818 }
5819
5820 // VIF THU 20 NOV 2025 22:19:27 ** ZFFTI ** ZFFTI PAGE 00259
5821
5822 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
5823 // S S U U B B R R O O U U T I NN N E
5824 // S U U B B R R O O U U T I N N N E
5825 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
5826 // S U U B B R R O O U U T I N N N E
5827 // S S U U B B R R O O U U T I N NN E
5828 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
5829
5830 // ZZZZZZZ FFFFFFF FFFFFFF TTTTTTT III
5831 // Z F F T I
5832 // Z F F T I
5833 // Z FFFFF FFFFF T I
5834 // Z F F T I
5835 // * F F T I
5836 // ZZZZZZZ F F T III
5837
5838
5839 // VIF THU 20 NOV 2025 22:19:27 ** ZFFTI ** DIAGNOSTICS PAGE 00260
5840
5841
5842 // VIF THU 20 NOV 2025 22:19:27 ** ZFFTI ** GENERATED CODE PAGE 00261
5843
5844 int_4 _zffti (int_4 _p_ n_, real_8 _p_ wsave_)
5845 { // ** body not listed **
5856 }
|
|
© 2002-2025 J.M. van der Veer (jmvdveer@xs4all.nl)
|