mathlib-slatec-extended.c
1 //! @file mathlib-slatec-extended.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 SLATEC-EXTENDED
24
25 // Compiled from Fortran source code by VIF.
26
27 // The license for SLATEC Fortran source code is:
28 //
29 // The SLATEC Common Mathematical Library was developed at
30 // US government research laboratories and is in the public domain.
31 //
32 // Repository: http://www.netlib.org/slatec/
33 //
34 // The SLATEC common mathematical library is issued by the following
35 //
36 // Air Force Weapons Laboratory, Albuquerque
37 // Lawrence Livermore National Laboratory, Livermore
38 // Los Alamos National Laboratory, Los Alamos
39 // National Institute of Standards and Technology, Washington
40 // National Energy Research Supercomputer Center, Livermore
41 // Oak Ridge National Laboratory, Oak Ridge
42 // Sandia National Laboratories, Albuquerque
43 // Sandia National Laboratories, Livermore
44 //
45 // All questions concerning the distribution of the library should be
46 // directed to the NATIONAL ENERGY SOFTWARE CENTER, 9700 Cass Ave.,
47 // Argonne, Illinois 60439, and not to the authors of the subprograms.
48 //
49 // * * * * * Notice * * * * *
50 //
51 // This material was prepared as an account of work sponsored by the
52 // United States Government. Neither the United States, nor the
53 // Department of Energy, nor the Department of Defense, nor any of
54 // their employees, nor any of their contractors, subcontractors, or
55 // their employees, makes any warranty, expressed or implied, or
56 // assumes any legal liability or responsibility for the accuracy,
57 // completeness, or usefulness of any information, apparatus, product,
58 // or process disclosed, or represents that its use would not infringe
59 // upon privately owned rights.
60
61 // VIF THU 20 NOV 2025 22:19:26 ** MARCEL ** SLATEC EXTENDED PAGE 00001
62
63
64
65 // M M A RRRRRR CCCCC EEEEEEE L
66 // MM MM A A R R C C E L
67 // M M M M A A R R C E L
68 // M M M A A RRRRRR C EEEEE L
69 // M M AAAAAAA R R C E L
70 // M M A A R R C C E L
71 // M M A A R R CCCCC EEEEEEE LLLLLLL
72
73 // SSSSS L A TTTTTTT EEEEEEE CCCCC EEEEEEE X X TTTTTTT EEEEEEE N N
74 // S S L A A T E C C E X X T E NN N
75 // S L A A T E C E X X T E N N N
76 // SSSSS L A A T EEEEE C ***** EEEEE X T EEEEE N N N
77 // S L AAAAAAA T E C E X X T E N N N
78 // S S L A A T E C C E X X T E N NN
79 // SSSSS LLLLLLL A A T EEEEEEE CCCCC EEEEEEE X X T EEEEEEE N N
80
81
82
83
84 // VIF THU 20 NOV 2025 22:19:26 ** GLOBAL SCOPE ** DIAGNOSTICS PAGE 00002
85
86 // ** linker ** object size 211144 bytes
87 // ** statistics ** 22 subprograms, no errors, no warnings
88
89
90 // VIF THU 20 NOV 2025 22:19:26 ** GLOBAL SCOPE ** JOB CONTROL PAGE 00003
91
92
93 // Line JCL *...*....1....|....2....|....3....|....4....|....5....|....6....|....7..*.|....8
94
95
96
97 // VIF THU 20 NOV 2025 22:19:26 ** GLOBAL SCOPE ** DEFINITIONS PAGE 00004
98
99 /*
100 Generated by VIF - experimental VIntage Fortran compiler.
101 VIF release 1.4.1
102 */
103
104 #if defined (__GNUC__)
105 #pragma GCC diagnostic ignored "-Wimplicit-function-declaration"
106 #pragma GCC diagnostic ignored "-Wincompatible-pointer-types"
107 #if (__GNUC__ >= 14)
108 #pragma GCC diagnostic ignored "-Wdeclaration-missing-parameter-type"
109 #pragma GCC diagnostic ignored "-Wimplicit-int"
110 #pragma GCC diagnostic ignored "-Wint-conversion"
111 #pragma GCC diagnostic ignored "-Wreturn-mismatch"
112 #endif
113 #else
114 #error VIF requires GCC
115 #endif
116
117 #include <vif.h>
118
119 static int_4 _km1 = -1, _k0 = 0, _k1 = 1;
120
121
122 #define _dc_0 "SLATEC"
123 #define _dc_1 "DXLEGF"
124 #define _dc_2 "DNU1, NUDIFF, MU1, MU2, or ID not valid"
125 #define _dc_3 "THETA out of range"
126 #define _dc_4 "slatec"
127 #define _dc_5 "dxnrmp"
128 #define _dc_6 "nu, mu1, mu2 or mode not valid"
129 #define _dc_7 "darg out of range"
130 #define _dc_8 "dxset"
131 #define _dc_9 "improper value of irad"
132 #define _dc_10 "improper value of dzero"
133 #define _dc_11 "improper value of nbits"
134 #define _dc_12 "improper value of nradpl"
135 #define _dc_13 "nradpl .ge. l"
136 #define _dc_14 "6*l .gt. kmax"
137 #define _dc_15 "XLEGF"
138 #define _dc_16 "xnrmp"
139 #define _dc_17 "sarg out of range"
140 #define _dc_18 "xset"
141
142
143
144 // VIF THU 20 NOV 2025 22:19:26 ** GLOBAL SCOPE ** TYPEDEFS PAGE 00005
145
146 static FORMAT *__fmt_a = NULL;
147 typedef char char_7[8];
148 typedef char char_15[16];
149 typedef char char_31[32];
150 typedef char char_63[64];
151
152
153 // VIF THU 20 NOV 2025 22:19:26 ** GLOBAL SCOPE ** FREQUENCY TABLE PAGE 00006
154
155 #define __ncalls 23
156 static CALLS __calls[__ncalls] = {
157 { // ** body not listed **"dxadd", 0}, // subroutine
159 { // ** body not listed **"dxlegf", 0}, // subroutine
161 { // ** body not listed **"dxpmu", 0}, // subroutine
163 { // ** body not listed **"dxpnrm", 0}, // subroutine
165 { // ** body not listed **"dxqmu", 0}, // subroutine
167 { // ** body not listed **"dxset", 0}, // subroutine
169 { // ** body not listed **"xcon", 0}, // subroutine
171 { // ** body not listed **"xnrmp", 0}, // subroutine
173 { // ** body not listed **"xpmup", 0}, // subroutine
175 { // ** body not listed **"xpqnu", 0}, // subroutine
177 { // ** body not listed **"xqnu", 0}, // subroutine
179 { // ** body not listed **NULL, 0}
180 };
191 } dxblk2_;
192
193 // common /dxblk1_/
194 static struct {
195 int_4 nbitsf_;
196 } dxblk1_;
197
198 // common /dxblk3_/
199 static struct {
200 int_4 nlg102_, mlg102_, lg102_[21];
201 } dxblk3_;
202
203 // common /xblk2_/
204 static struct {
205 int_4 l_, l2_, kmax_;
206 real_4 radix_, radixl_, rad2l_, dlg10r_;
207 } xblk2_;
208
209 // common /xblk1_/
210 static struct {
211 int_4 nbitsf_;
212 } xblk1_;
213
214 // common /xblk3_/
215 static struct {
216 int_4 nlg102_, mlg102_, lg102_[21];
217 } xblk3_;
218
219
220 // VIF THU 20 NOV 2025 22:19:26 ** GLOBAL SCOPE ** PROTOTYPES PAGE 00008
221
222
223 prototype int_4 _dxadd (real_8 _p_ x_, int_4 _p_ ix_, real_8 _p_ y_, int_4 _p_ iy_, real_8 _p_ z_, int_4 _p_ iz_, int_4
224 _p_ ierror_);
225 prototype int_4 _dxcon (real_8 _p_ x_, int_4 _p_ ix_, int_4 _p_ ierror_);
226 prototype int_4 _dxlegf (real_8 _p_ dnu1_, int_4 _p_ nudiff_, int_4 _p_ mu1_, int_4 _p_ mu2_, real_8 _p_ theta_, int_4
227 _p_ id_, real_8 _p_ pqa_, int_4 _p_ ipqa_, int_4 _p_ ierror_);
228 prototype int_4 _dxnrmp (int_4 _p_ nu_, int_4 _p_ mu1_, int_4 _p_ mu2_, real_8 _p_ darg_, int_4 _p_ mode_, real_8 _p_
229 dpn_, int_4 _p_ ipn_, int_4 _p_ isig_, int_4 _p_ ierror_);
230 prototype int_4 _dxpmu (real_8 _p_ nu1_, real_8 _p_ nu2_, int_4 _p_ mu1_, int_4 _p_ mu2_, real_8 _p_ theta_, real_8 _p_
231 x_, real_8 _p_ sx_, int_4 _p_ id_, real_8 _p_ pqa_, int_4 _p_ ipqa_, int_4 _p_ ierror_);
232 prototype int_4 _dxpmup (real_8 _p_ nu1_, real_8 _p_ nu2_, int_4 _p_ mu1_, int_4 _p_ mu2_, real_8 _p_ pqa_, int_4 _p_
233 ipqa_, int_4 _p_ ierror_);
234 prototype int_4 _dxpnrm (real_8 _p_ nu1_, real_8 _p_ nu2_, int_4 _p_ mu1_, int_4 _p_ mu2_, real_8 _p_ pqa_, int_4 _p_
235 ipqa_, int_4 _p_ ierror_);
236 prototype int_4 _dxpqnu (real_8 _p_ nu1_, real_8 _p_ nu2_, int_4 _p_ mu_, real_8 _p_ theta_, int_4 _p_ id_, real_8 _p_
237 pqa_, int_4 _p_ ipqa_, int_4 _p_ ierror_);
238 prototype int_4 _dxqmu (real_8 _p_ nu1_, real_8 _p_ nu2_, int_4 _p_ mu1_, int_4 _p_ mu2_, real_8 _p_ theta_, real_8 _p_
239 x_, real_8 _p_ sx_, int_4 _p_ id_, real_8 _p_ pqa_, int_4 _p_ ipqa_, int_4 _p_ ierror_);
240 prototype int_4 _dxqnu (real_8 _p_ nu1_, real_8 _p_ nu2_, int_4 _p_ mu1_, real_8 _p_ theta_, real_8 _p_ x_, real_8 _p_
241 sx_, int_4 _p_ id_, real_8 _p_ pqa_, int_4 _p_ ipqa_, int_4 _p_ ierror_);
242 prototype int_4 _dxset (int_4 _p_ irad_, int_4 _p_ nradpl_, real_8 _p_ dzero_, int_4 _p_ nbits_, int_4 _p_ ierror_);
243 prototype int_4 _xadd (real_4 _p_ x_, int_4 _p_ ix_, real_4 _p_ y_, int_4 _p_ iy_, real_4 _p_ z_, int_4 _p_ iz_, int_4
244 _p_ ierror_);
245 prototype int_4 _xcon (real_4 _p_ x_, int_4 _p_ ix_, int_4 _p_ ierror_);
246 prototype int_4 _xlegf (real_4 _p_ dnu1_, int_4 _p_ nudiff_, int_4 _p_ mu1_, int_4 _p_ mu2_, real_4 _p_ theta_, int_4
247 _p_ id_, real_4 _p_ pqa_, int_4 _p_ ipqa_, int_4 _p_ ierror_);
248 prototype int_4 _xnrmp (int_4 _p_ nu_, int_4 _p_ mu1_, int_4 _p_ mu2_, real_4 _p_ sarg_, int_4 _p_ mode_, real_4 _p_
249 spn_, int_4 _p_ ipn_, int_4 _p_ isig_, int_4 _p_ ierror_);
250 prototype int_4 _xpmu (real_4 _p_ nu1_, real_4 _p_ nu2_, int_4 _p_ mu1_, int_4 _p_ mu2_, real_4 _p_ theta_, real_4 _p_
251 x_, real_4 _p_ sx_, int_4 _p_ id_, real_4 _p_ pqa_, int_4 _p_ ipqa_, int_4 _p_ ierror_);
252 prototype int_4 _xpmup (real_4 _p_ nu1_, real_4 _p_ nu2_, int_4 _p_ mu1_, int_4 _p_ mu2_, real_4 _p_ pqa_, int_4 _p_
253 ipqa_, int_4 _p_ ierror_);
254 prototype int_4 _xpnrm (real_4 _p_ nu1_, real_4 _p_ nu2_, int_4 _p_ mu1_, int_4 _p_ mu2_, real_4 _p_ pqa_, int_4 _p_
255 ipqa_, int_4 _p_ ierror_);
256 prototype int_4 _xpqnu (real_4 _p_ nu1_, real_4 _p_ nu2_, int_4 _p_ mu_, real_4 _p_ theta_, int_4 _p_ id_, real_4 _p_
257 pqa_, int_4 _p_ ipqa_, int_4 _p_ ierror_);
258 prototype int_4 _xqmu (real_4 _p_ nu1_, real_4 _p_ nu2_, int_4 _p_ mu1_, int_4 _p_ mu2_, real_4 _p_ theta_, real_4 _p_
259 x_, real_4 _p_ sx_, int_4 _p_ id_, real_4 _p_ pqa_, int_4 _p_ ipqa_, int_4 _p_ ierror_);
260 prototype int_4 _xqnu (real_4 _p_ nu1_, real_4 _p_ nu2_, int_4 _p_ mu1_, real_4 _p_ theta_, real_4 _p_ x_, real_4 _p_
261 sx_, int_4 _p_ id_, real_4 _p_ pqa_, int_4 _p_ ipqa_, int_4 _p_ ierror_);
262 prototype int_4 _xset (int_4 _p_ irad_, int_4 _p_ nradpl_, real_4 _p_ dzero_, int_4 _p_ nbits_, int_4 _p_ ierror_);
263
264
265
266
267
268
269
270
271
272 // VIF THU 20 NOV 2025 22:19:26 ** GLOBAL SCOPE ** PROTOTYPES PAGE 00009
273
274
275
276
277
278 // VIF THU 20 NOV 2025 22:19:26 ** DXADD ** DXADD PAGE 00010
279
280 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
281 // S S U U B B R R O O U U T I NN N E
282 // S U U B B R R O O U U T I N N N E
283 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
284 // S U U B B R R O O U U T I N N N E
285 // S S U U B B R R O O U U T I N NN E
286 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
287
288 // DDDDDD X X A DDDDDD DDDDDD
289 // D D X X A A D D D D
290 // D D X X A A D D D D
291 // D D X A A D D D D
292 // D D X X AAAAAAA D D D D
293 // D D X X A A D D D D
294 // DDDDDD X X A A DDDDDD DDDDDD
295
296
297 // VIF THU 20 NOV 2025 22:19:26 ** DXADD ** DIAGNOSTICS PAGE 00011
298
299
300 // VIF THU 20 NOV 2025 22:19:26 ** DXADD ** GENERATED CODE PAGE 00012
301
302 int_4 _dxadd (real_8 _p_ x_, int_4 _p_ ix_, real_8 _p_ y_, int_4 _p_ iy_, real_8 _p_ z_, int_4 _p_ iz_, int_4 _p_
303 ierror_)
304 { // ** body not listed **
485 }
486
487 // VIF THU 20 NOV 2025 22:19:26 ** DXCON ** DXCON PAGE 00016
488
489 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
490 // S S U U B B R R O O U U T I NN N E
491 // S U U B B R R O O U U T I N N N E
492 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
493 // S U U B B R R O O U U T I N N N E
494 // S S U U B B R R O O U U T I N NN E
495 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
496
497 // DDDDDD X X CCCCC OOOOO N N
498 // D D X X C C O O NN N
499 // D D X X C O O N N N
500 // D D X C O O N N N
501 // D D X X C O O N N N
502 // D D X X C C O O N NN
503 // DDDDDD X X CCCCC OOOOO N N
504
505
506 // VIF THU 20 NOV 2025 22:19:26 ** DXCON ** DIAGNOSTICS PAGE 00017
507
508
509 // VIF THU 20 NOV 2025 22:19:26 ** DXCON ** GENERATED CODE PAGE 00018
510
511 int_4 _dxcon (real_8 _p_ x_, int_4 _p_ ix_, int_4 _p_ ierror_)
512 { // ** body not listed **
672 }
673
674 // VIF THU 20 NOV 2025 22:19:26 ** DXLEGF ** DXLEGF PAGE 00022
675
676 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
677 // S S U U B B R R O O U U T I NN N E
678 // S U U B B R R O O U U T I N N N E
679 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
680 // S U U B B R R O O U U T I N N N E
681 // S S U U B B R R O O U U T I N NN E
682 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
683
684 // DDDDDD X X L EEEEEEE GGGGG FFFFFFF
685 // D D X X L E G G F
686 // D D X X L E G F
687 // D D X L EEEEE G GGGG FFFFF
688 // D D X X L E G G F
689 // D D X X L E G G F
690 // DDDDDD X X LLLLLLL EEEEEEE GGGGG F
691
692
693 // VIF THU 20 NOV 2025 22:19:26 ** DXLEGF ** DIAGNOSTICS PAGE 00023
694
695
696 // VIF THU 20 NOV 2025 22:19:26 ** DXLEGF ** GENERATED CODE PAGE 00024
697
698 int_4 _dxlegf (real_8 _p_ dnu1_, int_4 _p_ nudiff_, int_4 _p_ mu1_, int_4 _p_ mu2_, real_8 _p_ theta_, int_4 _p_ id_,
699 real_8 _p_ pqa_, int_4 _p_ ipqa_, int_4 _p_ ierror_)
700 { // ** body not listed **
816 }
817
818 // VIF THU 20 NOV 2025 22:19:26 ** DXNRMP ** DXNRMP PAGE 00027
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 // DDDDDD X X N N RRRRRR M M PPPPPP
829 // D D X X NN N R R MM MM P P
830 // D D X X N N N R R M M M M P P
831 // D D X N N N RRRRRR M M M PPPPPP
832 // D D X X N N N R R M M P
833 // D D X X N NN R R M M P
834 // DDDDDD X X N N R R M M P
835
836
837 // VIF THU 20 NOV 2025 22:19:26 ** DXNRMP ** DIAGNOSTICS PAGE 00028
838
839
840 // VIF THU 20 NOV 2025 22:19:26 ** DXNRMP ** GENERATED CODE PAGE 00029
841
842 int_4 _dxnrmp (int_4 _p_ nu_, int_4 _p_ mu1_, int_4 _p_ mu2_, real_8 _p_ darg_, int_4 _p_ mode_, real_8 _p_ dpn_, int_4
843 _p_ ipn_, int_4 _p_ isig_, int_4 _p_ ierror_)
844 { // ** body not listed **
1024 }
1025
1026 // VIF THU 20 NOV 2025 22:19:26 ** DXPMU ** DXPMU PAGE 00033
1027
1028 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
1029 // S S U U B B R R O O U U T I NN N E
1030 // S U U B B R R O O U U T I N N N E
1031 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
1032 // S U U B B R R O O U U T I N N N E
1033 // S S U U B B R R O O U U T I N NN E
1034 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
1035
1036 // DDDDDD X X PPPPPP M M U U
1037 // D D X X P P MM MM U U
1038 // D D X X P P M M M M U U
1039 // D D X PPPPPP M M M U U
1040 // D D X X P M M U U
1041 // D D X X P M M U U
1042 // DDDDDD X X P M M UUUUU
1043
1044
1045 // VIF THU 20 NOV 2025 22:19:26 ** DXPMU ** DIAGNOSTICS PAGE 00034
1046
1047
1048 // VIF THU 20 NOV 2025 22:19:26 ** DXPMU ** GENERATED CODE PAGE 00035
1049
1050 int_4 _dxpmu (real_8 _p_ nu1_, real_8 _p_ nu2_, int_4 _p_ mu1_, int_4 _p_ mu2_, real_8 _p_ theta_, real_8 _p_ x_,
1051 real_8 _p_ sx_, int_4 _p_ id_, real_8 _p_ pqa_, int_4 _p_ ipqa_, int_4 _p_ ierror_)
1052 { // ** body not listed **
1102 }
1103
1104 // VIF THU 20 NOV 2025 22:19:26 ** DXPMUP ** DXPMUP PAGE 00037
1105
1106 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
1107 // S S U U B B R R O O U U T I NN N E
1108 // S U U B B R R O O U U T I N N N E
1109 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
1110 // S U U B B R R O O U U T I N N N E
1111 // S S U U B B R R O O U U T I N NN E
1112 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
1113
1114 // DDDDDD X X PPPPPP M M U U PPPPPP
1115 // D D X X P P MM MM U U P P
1116 // D D X X P P M M M M U U P P
1117 // D D X PPPPPP M M M U U PPPPPP
1118 // D D X X P M M U U P
1119 // D D X X P M M U U P
1120 // DDDDDD X X P M M UUUUU P
1121
1122
1123 // VIF THU 20 NOV 2025 22:19:26 ** DXPMUP ** DIAGNOSTICS PAGE 00038
1124
1125
1126 // VIF THU 20 NOV 2025 22:19:26 ** DXPMUP ** GENERATED CODE PAGE 00039
1127
1128 int_4 _dxpmup (real_8 _p_ nu1_, real_8 _p_ nu2_, int_4 _p_ mu1_, int_4 _p_ mu2_, real_8 _p_ pqa_, int_4 _p_ ipqa_,
1129 int_4 _p_ ierror_)
1130 { // ** body not listed **
1210 }
1211
1212 // VIF THU 20 NOV 2025 22:19:26 ** DXPNRM ** DXPNRM PAGE 00041
1213
1214 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
1215 // S S U U B B R R O O U U T I NN N E
1216 // S U U B B R R O O U U T I N N N E
1217 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
1218 // S U U B B R R O O U U T I N N N E
1219 // S S U U B B R R O O U U T I N NN E
1220 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
1221
1222 // DDDDDD X X PPPPPP N N RRRRRR M M
1223 // D D X X P P NN N R R MM MM
1224 // D D X X P P N N N R R M M M M
1225 // D D X PPPPPP N N N RRRRRR M M M
1226 // D D X X P N N N R R M M
1227 // D D X X P N NN R R M M
1228 // DDDDDD X X P N N R R M M
1229
1230
1231 // VIF THU 20 NOV 2025 22:19:26 ** DXPNRM ** DIAGNOSTICS PAGE 00042
1232
1233
1234 // VIF THU 20 NOV 2025 22:19:26 ** DXPNRM ** GENERATED CODE PAGE 00043
1235
1236 int_4 _dxpnrm (real_8 _p_ nu1_, real_8 _p_ nu2_, int_4 _p_ mu1_, int_4 _p_ mu2_, real_8 _p_ pqa_, int_4 _p_ ipqa_,
1237 int_4 _p_ ierror_)
1238 { // ** body not listed **
1327 }
1328
1329 // VIF THU 20 NOV 2025 22:19:26 ** DXPQNU ** DXPQNU PAGE 00045
1330
1331 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
1332 // S S U U B B R R O O U U T I NN N E
1333 // S U U B B R R O O U U T I N N N E
1334 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
1335 // S U U B B R R O O U U T I N N N E
1336 // S S U U B B R R O O U U T I N NN E
1337 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
1338
1339 // DDDDDD X X PPPPPP QQQQQ N N U U
1340 // D D X X P P Q Q NN N U U
1341 // D D X X P P Q Q N N N U U
1342 // D D X PPPPPP Q Q N N N U U
1343 // D D X X P Q Q Q N N N U U
1344 // D D X X P Q Q N NN U U
1345 // DDDDDD X X P QQQQ Q N N UUUUU
1346
1347
1348 // VIF THU 20 NOV 2025 22:19:26 ** DXPQNU ** DIAGNOSTICS PAGE 00046
1349
1350
1351 // VIF THU 20 NOV 2025 22:19:26 ** DXPQNU ** GENERATED CODE PAGE 00047
1352
1353 int_4 _dxpqnu (real_8 _p_ nu1_, real_8 _p_ nu2_, int_4 _p_ mu_, real_8 _p_ theta_, int_4 _p_ id_, real_8 _p_ pqa_,
1354 int_4 _p_ ipqa_, int_4 _p_ ierror_)
1355 { // ** body not listed **
1552 }
1553
1554 // VIF THU 20 NOV 2025 22:19:26 ** DXQMU ** DXQMU PAGE 00051
1555
1556 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
1557 // S S U U B B R R O O U U T I NN N E
1558 // S U U B B R R O O U U T I N N N E
1559 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
1560 // S U U B B R R O O U U T I N N N E
1561 // S S U U B B R R O O U U T I N NN E
1562 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
1563
1564 // DDDDDD X X QQQQQ M M U U
1565 // D D X X Q Q MM MM U U
1566 // D D X X Q Q M M M M U U
1567 // D D X Q Q M M M U U
1568 // D D X X Q Q Q M M U U
1569 // D D X X Q Q M M U U
1570 // DDDDDD X X QQQQ Q M M UUUUU
1571
1572
1573 // VIF THU 20 NOV 2025 22:19:26 ** DXQMU ** DIAGNOSTICS PAGE 00052
1574
1575
1576 // VIF THU 20 NOV 2025 22:19:26 ** DXQMU ** GENERATED CODE PAGE 00053
1577
1578 int_4 _dxqmu (real_8 _p_ nu1_, real_8 _p_ nu2_, int_4 _p_ mu1_, int_4 _p_ mu2_, real_8 _p_ theta_, real_8 _p_ x_,
1579 real_8 _p_ sx_, int_4 _p_ id_, real_8 _p_ pqa_, int_4 _p_ ipqa_, int_4 _p_ ierror_)
1580 { // ** body not listed **
1654 }
1655
1656 // VIF THU 20 NOV 2025 22:19:26 ** DXQNU ** DXQNU PAGE 00055
1657
1658 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
1659 // S S U U B B R R O O U U T I NN N E
1660 // S U U B B R R O O U U T I N N N E
1661 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
1662 // S U U B B R R O O U U T I N N N E
1663 // S S U U B B R R O O U U T I N NN E
1664 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
1665
1666 // DDDDDD X X QQQQQ N N U U
1667 // D D X X Q Q NN N U U
1668 // D D X X Q Q N N N U U
1669 // D D X Q Q N N N U U
1670 // D D X X Q Q Q N N N U U
1671 // D D X X Q Q N NN U U
1672 // DDDDDD X X QQQQ Q N N UUUUU
1673
1674
1675 // VIF THU 20 NOV 2025 22:19:26 ** DXQNU ** DIAGNOSTICS PAGE 00056
1676
1677
1678 // VIF THU 20 NOV 2025 22:19:26 ** DXQNU ** GENERATED CODE PAGE 00057
1679
1680 int_4 _dxqnu (real_8 _p_ nu1_, real_8 _p_ nu2_, int_4 _p_ mu1_, real_8 _p_ theta_, real_8 _p_ x_, real_8 _p_ sx_, int_4
1681 _p_ id_, real_8 _p_ pqa_, int_4 _p_ ipqa_, int_4 _p_ ierror_)
1682 { // ** body not listed **
1795 }
1796
1797 // VIF THU 20 NOV 2025 22:19:26 ** DXSET ** DXSET PAGE 00060
1798
1799 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
1800 // S S U U B B R R O O U U T I NN N E
1801 // S U U B B R R O O U U T I N N N E
1802 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
1803 // S U U B B R R O O U U T I N N N E
1804 // S S U U B B R R O O U U T I N NN E
1805 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
1806
1807 // DDDDDD X X SSSSS EEEEEEE TTTTTTT
1808 // D D X X S S E T
1809 // D D X X S E T
1810 // D D X SSSSS EEEEE T
1811 // D D X X S E T
1812 // D D X X S S E T
1813 // DDDDDD X X SSSSS EEEEEEE T
1814
1815
1816 // VIF THU 20 NOV 2025 22:19:26 ** DXSET ** DIAGNOSTICS PAGE 00061
1817
1818
1819 // VIF THU 20 NOV 2025 22:19:26 ** DXSET ** GENERATED CODE PAGE 00062
1820
1821 int_4 _dxset (int_4 _p_ irad_, int_4 _p_ nradpl_, real_8 _p_ dzero_, int_4 _p_ nbits_, int_4 _p_ ierror_)
1822 { // ** body not listed **
2015 }
2016
2017 // VIF THU 20 NOV 2025 22:19:26 ** XADD ** XADD PAGE 00066
2018
2019 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
2020 // S S U U B B R R O O U U T I NN N E
2021 // S U U B B R R O O U U T I N N N E
2022 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
2023 // S U U B B R R O O U U T I N N N E
2024 // S S U U B B R R O O U U T I N NN E
2025 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
2026
2027 // X X A DDDDDD DDDDDD
2028 // X X A A D D D D
2029 // X X A A D D D D
2030 // X A A D D D D
2031 // X X AAAAAAA D D D D
2032 // X X A A D D D D
2033 // X X A A DDDDDD DDDDDD
2034
2035
2036 // VIF THU 20 NOV 2025 22:19:26 ** XADD ** DIAGNOSTICS PAGE 00067
2037
2038
2039 // VIF THU 20 NOV 2025 22:19:26 ** XADD ** GENERATED CODE PAGE 00068
2040
2041 int_4 _xadd (real_4 _p_ x_, int_4 _p_ ix_, real_4 _p_ y_, int_4 _p_ iy_, real_4 _p_ z_, int_4 _p_ iz_, int_4 _p_
2042 ierror_)
2043 { // ** body not listed **
2224 }
2225
2226 // VIF THU 20 NOV 2025 22:19:26 ** XCON ** XCON PAGE 00072
2227
2228 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
2229 // S S U U B B R R O O U U T I NN N E
2230 // S U U B B R R O O U U T I N N N E
2231 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
2232 // S U U B B R R O O U U T I N N N E
2233 // S S U U B B R R O O U U T I N NN E
2234 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
2235
2236 // X X CCCCC OOOOO N N
2237 // X X C C O O NN N
2238 // X X C O O N N N
2239 // X C O O N N N
2240 // X X C O O N N N
2241 // X X C C O O N NN
2242 // X X CCCCC OOOOO N N
2243
2244
2245 // VIF THU 20 NOV 2025 22:19:26 ** XCON ** DIAGNOSTICS PAGE 00073
2246
2247
2248 // VIF THU 20 NOV 2025 22:19:26 ** XCON ** GENERATED CODE PAGE 00074
2249
2250 int_4 _xcon (real_4 _p_ x_, int_4 _p_ ix_, int_4 _p_ ierror_)
2251 { // ** body not listed **
2411 }
2412
2413 // VIF THU 20 NOV 2025 22:19:26 ** XLEGF ** XLEGF PAGE 00078
2414
2415 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
2416 // S S U U B B R R O O U U T I NN N E
2417 // S U U B B R R O O U U T I N N N E
2418 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
2419 // S U U B B R R O O U U T I N N N E
2420 // S S U U B B R R O O U U T I N NN E
2421 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
2422
2423 // X X L EEEEEEE GGGGG FFFFFFF
2424 // X X L E G G F
2425 // X X L E G F
2426 // X L EEEEE G GGGG FFFFF
2427 // X X L E G G F
2428 // X X L E G G F
2429 // X X LLLLLLL EEEEEEE GGGGG F
2430
2431
2432 // VIF THU 20 NOV 2025 22:19:26 ** XLEGF ** DIAGNOSTICS PAGE 00079
2433
2434
2435 // VIF THU 20 NOV 2025 22:19:26 ** XLEGF ** GENERATED CODE PAGE 00080
2436
2437 int_4 _xlegf (real_4 _p_ dnu1_, int_4 _p_ nudiff_, int_4 _p_ mu1_, int_4 _p_ mu2_, real_4 _p_ theta_, int_4 _p_ id_,
2438 real_4 _p_ pqa_, int_4 _p_ ipqa_, int_4 _p_ ierror_)
2439 { // ** body not listed **
2555 }
2556
2557 // VIF THU 20 NOV 2025 22:19:26 ** XNRMP ** XNRMP PAGE 00083
2558
2559 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
2560 // S S U U B B R R O O U U T I NN N E
2561 // S U U B B R R O O U U T I N N N E
2562 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
2563 // S U U B B R R O O U U T I N N N E
2564 // S S U U B B R R O O U U T I N NN E
2565 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
2566
2567 // X X N N RRRRRR M M PPPPPP
2568 // X X NN N R R MM MM P P
2569 // X X N N N R R M M M M P P
2570 // X N N N RRRRRR M M M PPPPPP
2571 // X X N N N R R M M P
2572 // X X N NN R R M M P
2573 // X X N N R R M M P
2574
2575
2576 // VIF THU 20 NOV 2025 22:19:26 ** XNRMP ** DIAGNOSTICS PAGE 00084
2577
2578
2579 // VIF THU 20 NOV 2025 22:19:26 ** XNRMP ** GENERATED CODE PAGE 00085
2580
2581 int_4 _xnrmp (int_4 _p_ nu_, int_4 _p_ mu1_, int_4 _p_ mu2_, real_4 _p_ sarg_, int_4 _p_ mode_, real_4 _p_ spn_, int_4
2582 _p_ ipn_, int_4 _p_ isig_, int_4 _p_ ierror_)
2583 { // ** body not listed **
2763 }
2764
2765 // VIF THU 20 NOV 2025 22:19:26 ** XPMU ** XPMU PAGE 00089
2766
2767 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
2768 // S S U U B B R R O O U U T I NN N E
2769 // S U U B B R R O O U U T I N N N E
2770 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
2771 // S U U B B R R O O U U T I N N N E
2772 // S S U U B B R R O O U U T I N NN E
2773 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
2774
2775 // X X PPPPPP M M U U
2776 // X X P P MM MM U U
2777 // X X P P M M M M U U
2778 // X PPPPPP M M M U U
2779 // X X P M M U U
2780 // X X P M M U U
2781 // X X P M M UUUUU
2782
2783
2784 // VIF THU 20 NOV 2025 22:19:26 ** XPMU ** DIAGNOSTICS PAGE 00090
2785
2786
2787 // VIF THU 20 NOV 2025 22:19:26 ** XPMU ** GENERATED CODE PAGE 00091
2788
2789 int_4 _xpmu (real_4 _p_ nu1_, real_4 _p_ nu2_, int_4 _p_ mu1_, int_4 _p_ mu2_, real_4 _p_ theta_, real_4 _p_ x_, real_4
2790 _p_ sx_, int_4 _p_ id_, real_4 _p_ pqa_, int_4 _p_ ipqa_, int_4 _p_ ierror_)
2791 { // ** body not listed **
2841 }
2842
2843 // VIF THU 20 NOV 2025 22:19:26 ** XPMUP ** XPMUP PAGE 00093
2844
2845 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
2846 // S S U U B B R R O O U U T I NN N E
2847 // S U U B B R R O O U U T I N N N E
2848 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
2849 // S U U B B R R O O U U T I N N N E
2850 // S S U U B B R R O O U U T I N NN E
2851 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
2852
2853 // X X PPPPPP M M U U PPPPPP
2854 // X X P P MM MM U U P P
2855 // X X P P M M M M U U P P
2856 // X PPPPPP M M M U U PPPPPP
2857 // X X P M M U U P
2858 // X X P M M U U P
2859 // X X P M M UUUUU P
2860
2861
2862 // VIF THU 20 NOV 2025 22:19:26 ** XPMUP ** DIAGNOSTICS PAGE 00094
2863
2864
2865 // VIF THU 20 NOV 2025 22:19:26 ** XPMUP ** GENERATED CODE PAGE 00095
2866
2867 int_4 _xpmup (real_4 _p_ nu1_, real_4 _p_ nu2_, int_4 _p_ mu1_, int_4 _p_ mu2_, real_4 _p_ pqa_, int_4 _p_ ipqa_, int_4
2868 _p_ ierror_)
2869 { // ** body not listed **
2949 }
2950
2951 // VIF THU 20 NOV 2025 22:19:26 ** XPNRM ** XPNRM PAGE 00097
2952
2953 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
2954 // S S U U B B R R O O U U T I NN N E
2955 // S U U B B R R O O U U T I N N N E
2956 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
2957 // S U U B B R R O O U U T I N N N E
2958 // S S U U B B R R O O U U T I N NN E
2959 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
2960
2961 // X X PPPPPP N N RRRRRR M M
2962 // X X P P NN N R R MM MM
2963 // X X P P N N N R R M M M M
2964 // X PPPPPP N N N RRRRRR M M M
2965 // X X P N N N R R M M
2966 // X X P N NN R R M M
2967 // X X P N N R R M M
2968
2969
2970 // VIF THU 20 NOV 2025 22:19:26 ** XPNRM ** DIAGNOSTICS PAGE 00098
2971
2972
2973 // VIF THU 20 NOV 2025 22:19:26 ** XPNRM ** GENERATED CODE PAGE 00099
2974
2975 int_4 _xpnrm (real_4 _p_ nu1_, real_4 _p_ nu2_, int_4 _p_ mu1_, int_4 _p_ mu2_, real_4 _p_ pqa_, int_4 _p_ ipqa_, int_4
2976 _p_ ierror_)
2977 { // ** body not listed **
3066 }
3067
3068 // VIF THU 20 NOV 2025 22:19:26 ** XPQNU ** XPQNU PAGE 00101
3069
3070 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
3071 // S S U U B B R R O O U U T I NN N E
3072 // S U U B B R R O O U U T I N N N E
3073 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
3074 // S U U B B R R O O U U T I N N N E
3075 // S S U U B B R R O O U U T I N NN E
3076 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
3077
3078 // X X PPPPPP QQQQQ N N U U
3079 // X X P P Q Q NN N U U
3080 // X X P P Q Q N N N U U
3081 // X PPPPPP Q Q N N N U U
3082 // X X P Q Q Q N N N U U
3083 // X X P Q Q N NN U U
3084 // X X P QQQQ Q N N UUUUU
3085
3086
3087 // VIF THU 20 NOV 2025 22:19:26 ** XPQNU ** DIAGNOSTICS PAGE 00102
3088
3089
3090 // VIF THU 20 NOV 2025 22:19:26 ** XPQNU ** GENERATED CODE PAGE 00103
3091
3092 int_4 _xpqnu (real_4 _p_ nu1_, real_4 _p_ nu2_, int_4 _p_ mu_, real_4 _p_ theta_, int_4 _p_ id_, real_4 _p_ pqa_, int_4
3093 _p_ ipqa_, int_4 _p_ ierror_)
3094 { // ** body not listed **
3291 }
3292
3293 // VIF THU 20 NOV 2025 22:19:26 ** XQMU ** XQMU PAGE 00107
3294
3295 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
3296 // S S U U B B R R O O U U T I NN N E
3297 // S U U B B R R O O U U T I N N N E
3298 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
3299 // S U U B B R R O O U U T I N N N E
3300 // S S U U B B R R O O U U T I N NN E
3301 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
3302
3303 // X X QQQQQ M M U U
3304 // X X Q Q MM MM U U
3305 // X X Q Q M M M M U U
3306 // X Q Q M M M U U
3307 // X X Q Q Q M M U U
3308 // X X Q Q M M U U
3309 // X X QQQQ Q M M UUUUU
3310
3311
3312 // VIF THU 20 NOV 2025 22:19:26 ** XQMU ** DIAGNOSTICS PAGE 00108
3313
3314
3315 // VIF THU 20 NOV 2025 22:19:26 ** XQMU ** GENERATED CODE PAGE 00109
3316
3317 int_4 _xqmu (real_4 _p_ nu1_, real_4 _p_ nu2_, int_4 _p_ mu1_, int_4 _p_ mu2_, real_4 _p_ theta_, real_4 _p_ x_, real_4
3318 _p_ sx_, int_4 _p_ id_, real_4 _p_ pqa_, int_4 _p_ ipqa_, int_4 _p_ ierror_)
3319 { // ** body not listed **
3393 }
3394
3395 // VIF THU 20 NOV 2025 22:19:26 ** XQNU ** XQNU PAGE 00111
3396
3397 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
3398 // S S U U B B R R O O U U T I NN N E
3399 // S U U B B R R O O U U T I N N N E
3400 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
3401 // S U U B B R R O O U U T I N N N E
3402 // S S U U B B R R O O U U T I N NN E
3403 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
3404
3405 // X X QQQQQ N N U U
3406 // X X Q Q NN N U U
3407 // X X Q Q N N N U U
3408 // X Q Q N N N U U
3409 // X X Q Q Q N N N U U
3410 // X X Q Q N NN U U
3411 // X X QQQQ Q N N UUUUU
3412
3413
3414 // VIF THU 20 NOV 2025 22:19:26 ** XQNU ** DIAGNOSTICS PAGE 00112
3415
3416
3417 // VIF THU 20 NOV 2025 22:19:26 ** XQNU ** GENERATED CODE PAGE 00113
3418
3419 int_4 _xqnu (real_4 _p_ nu1_, real_4 _p_ nu2_, int_4 _p_ mu1_, real_4 _p_ theta_, real_4 _p_ x_, real_4 _p_ sx_, int_4
3420 _p_ id_, real_4 _p_ pqa_, int_4 _p_ ipqa_, int_4 _p_ ierror_)
3421 { // ** body not listed **
3534 }
3535
3536 // VIF THU 20 NOV 2025 22:19:26 ** XSET ** XSET PAGE 00116
3537
3538 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
3539 // S S U U B B R R O O U U T I NN N E
3540 // S U U B B R R O O U U T I N N N E
3541 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
3542 // S U U B B R R O O U U T I N N N E
3543 // S S U U B B R R O O U U T I N NN E
3544 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
3545
3546 // X X SSSSS EEEEEEE TTTTTTT
3547 // X X S S E T
3548 // X X S E T
3549 // X SSSSS EEEEE T
3550 // X X S E T
3551 // X X S S E T
3552 // X X SSSSS EEEEEEE T
3553
3554
3555 // VIF THU 20 NOV 2025 22:19:26 ** XSET ** DIAGNOSTICS PAGE 00117
3556
3557
3558 // VIF THU 20 NOV 2025 22:19:26 ** XSET ** GENERATED CODE PAGE 00118
3559
3560 int_4 _xset (int_4 _p_ irad_, int_4 _p_ nradpl_, real_4 _p_ dzero_, int_4 _p_ nbits_, int_4 _p_ ierror_)
3561 { // ** body not listed **
3754 }
|
© 2002-2025 J.M. van der Veer (jmvdveer@xs4all.nl)
|
