mathlib-slatec-harwell.c
1 //! @file mathlib-slatec-harwell.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-HARWELL
24
25 // Compiled from Fortran source code by VIF.
26
27 // Miscellaneous routines from SLATEC, not in other packages as BLAS,
28 // EISPACK, FISHPACK, FFTPACK, FNLIB, LINPACK etcetera.
29 //
30 // Source: netlib.org/slatec/
31 //
32 // For VIF, all source file have been formatted and labels have been renumbered.
33
34 // The license for SLATEC Fortran source code is:
35 //
36 // The SLATEC Common Mathematical Library was developed at
37 // US government research laboratories and is in the public domain.
38 //
39 // Repository: http://www.netlib.org/slatec/
40 //
41 // The SLATEC common mathematical library is issued by the following
42 //
43 // Air Force Weapons Laboratory, Albuquerque
44 // Lawrence Livermore National Laboratory, Livermore
45 // Los Alamos National Laboratory, Los Alamos
46 // National Institute of Standards and Technology, Washington
47 // National Energy Research Supercomputer Center, Livermore
48 // Oak Ridge National Laboratory, Oak Ridge
49 // Sandia National Laboratories, Albuquerque
50 // Sandia National Laboratories, Livermore
51 //
52 // All questions concerning the distribution of the library should be
53 // directed to the NATIONAL ENERGY SOFTWARE CENTER, 9700 Cass Ave.,
54 // Argonne, Illinois 60439, and not to the authors of the subprograms.
55 //
56 // * * * * * Notice * * * * *
57 //
58 // This material was prepared as an account of work sponsored by the
59 // United States Government. Neither the United States, nor the
60 // Department of Energy, nor the Department of Defense, nor any of
61 // their employees, nor any of their contractors, subcontractors, or
62 // their employees, makes any warranty, expressed or implied, or
63 // assumes any legal liability or responsibility for the accuracy,
64 // completeness, or usefulness of any information, apparatus, product,
65 // or process disclosed, or represents that its use would not infringe
66 // upon privately owned rights.
67
68 // VIF THU 20 NOV 2025 22:20:06 ** MARCEL ** SLATEC HARWELL PAGE 00001
69
70
71
72 // M M A RRRRRR CCCCC EEEEEEE L
73 // MM MM A A R R C C E L
74 // M M M M A A R R C E L
75 // M M M A A RRRRRR C EEEEE L
76 // M M AAAAAAA R R C E L
77 // M M A A R R C C E L
78 // M M A A R R CCCCC EEEEEEE LLLLLLL
79
80 // SSSSS L A TTTTTTT EEEEEEE CCCCC H H A RRRRRR W W EEEEEEE
81 // S S L A A T E C C H H A A R R W W E
82 // S L A A T E C H H A A R R W W E
83 // SSSSS L A A T EEEEE C ***** HHHHHHH A A RRRRRR W W W EEEEE
84 // S L AAAAAAA T E C H H AAAAAAA R R W W W E
85 // S S L A A T E C C H H A A R R W W W E
86 // SSSSS LLLLLLL A A T EEEEEEE CCCCC H H A A R R WW WW EEEEEEE
87
88
89
90
91 // VIF THU 20 NOV 2025 22:20:06 ** GLOBAL SCOPE ** DIAGNOSTICS PAGE 00002
92
93 // ** linker ** object size 205024 bytes
94 // ** statistics ** 10 subprograms, no errors, no warnings
95
96
97 // VIF THU 20 NOV 2025 22:20:06 ** GLOBAL SCOPE ** JOB CONTROL PAGE 00003
98
99
100 // Line JCL *...*....1....|....2....|....3....|....4....|....5....|....6....|....7..*.|....8
101
102
103
104 // VIF THU 20 NOV 2025 22:20:06 ** GLOBAL SCOPE ** DEFINITIONS PAGE 00004
105
106 /*
107 Generated by VIF - experimental VIntage Fortran compiler.
108 VIF release 1.4.1
109 */
110
111 #if defined (__GNUC__)
112 #pragma GCC diagnostic ignored "-Wimplicit-function-declaration"
113 #pragma GCC diagnostic ignored "-Wincompatible-pointer-types"
114 #if (__GNUC__ >= 14)
115 #pragma GCC diagnostic ignored "-Wdeclaration-missing-parameter-type"
116 #pragma GCC diagnostic ignored "-Wimplicit-int"
117 #pragma GCC diagnostic ignored "-Wint-conversion"
118 #pragma GCC diagnostic ignored "-Wreturn-mismatch"
119 #endif
120 #else
121 #error VIF requires GCC
122 #endif
123
124 #include <vif.h>
125
126 static int_4 _km1 = -1, _k0 = 0, _k1 = 1;
127
128
129 #define _dc_0 "slatec"
130 #define _dc_1 "la05ad"
131 #define _dc_2 "more than one matrix "
132 #define _dc_3 "entry. here row = "
133 #define _dc_4 " and col = "
134 #define _dc_5 "the order of the system, n, is not positive."
135 #define _dc_6 "element k = "
136 #define _dc_7 " is out of bounds.$$here row = "
137 #define _dc_8 "row or column has no "
138 #define _dc_9 "elements. here index = "
139 #define _dc_10 "lengths of arrays a(*) and ind(*,2) are too small."
140 #define _dc_11 "rows"
141 #define _dc_12 "columns"
142 #define _dc_13 "dependant "
143 #define _dc_14 " "
144 #define _dc_15 "dependent vector indices are "
145 #define _dc_16 " and "
146 #define _dc_17 "la05as"
147 #define _dc_18 "la05bd"
148 #define _dc_19 "earlier entry gave error return."
149 #define _dc_20 "la05bs"
150 #define _dc_21 "la05cd"
151 #define _dc_22 "singular matrix after "
152 #define _dc_23 "replacement of column. index = "
153 #define _dc_24 "la05cs"
154
155
156
157 // VIF THU 20 NOV 2025 22:20:06 ** GLOBAL SCOPE ** TYPEDEFS PAGE 00005
158
159 static FORMAT *__fmt_a = NULL;
160 typedef char char_1[2];
161 typedef char char_7[8];
162 typedef char char_15[16];
163 typedef char char_31[32];
164 typedef char char_63[64];
165 typedef char char_127[128];
166 typedef char char_255[256];
167 typedef char char_511[512];
168
169
170 // VIF THU 20 NOV 2025 22:20:06 ** GLOBAL SCOPE ** FREQUENCY TABLE PAGE 00006
171
172 #define __ncalls 11
173 static CALLS __calls[__ncalls] = {
174 { // ** body not listed **"la05ad", 0}, // subroutine
176 { // ** body not listed **"la05bd", 0}, // subroutine
178 { // ** body not listed **"la05cd", 0}, // subroutine
180 { // ** body not listed **"la05ed", 0}, // subroutine
182 { // ** body not listed **"mc20ad", 0}, // subroutine
184 { // ** body not listed **NULL, 0}
185 };
196 } la05dd_;
197
198 // common /la05ds_/
199 static struct {
200 int_4 lp_, lenl_, lenu_, ncp_, lrow_, lcol_;
201 real_4 small_;
202 } la05ds_;
203
204
205 // VIF THU 20 NOV 2025 22:20:06 ** GLOBAL SCOPE ** PROTOTYPES PAGE 00008
206
207
208 prototype int_4 _la05ad (real_8 _p_ a_, int_4 _p_ ind_, int_4 _p_ nz_, int_4 _p_ ia_, int_4 _p_ n_, int_4 _p_ ip_,
209 int_4 _p_ iw_, real_8 _p_ w_, real_8 _p_ g_, real_8 _p_ u_);
210 prototype int_4 _la05as (real_4 _p_ a_, int_4 _p_ ind_, int_4 _p_ nz_, int_4 _p_ ia_, int_4 _p_ n_, int_4 _p_ ip_,
211 int_4 _p_ iw_, real_4 _p_ w_, real_4 _p_ g_, real_4 _p_ u_);
212 prototype int_4 _la05bd (real_8 _p_ a_, int_4 _p_ ind_, int_4 _p_ ia_, int_4 _p_ n_, int_4 _p_ ip_, int_4 _p_ iw_,
213 real_8 _p_ w_, real_8 _p_ g_, real_8 _p_ b_, logical_4 _p_ trans_);
214 prototype int_4 _la05bs (real_4 _p_ a_, int_4 _p_ ind_, int_4 _p_ ia_, int_4 _p_ n_, int_4 _p_ ip_, int_4 _p_ iw_,
215 real_4 _p_ w_, real_4 _p_ g_, real_4 _p_ b_, logical_4 _p_ trans_);
216 prototype int_4 _la05cd (real_8 _p_ a_, int_4 _p_ ind_, int_4 _p_ ia_, int_4 _p_ n_, int_4 _p_ ip_, int_4 _p_ iw_,
217 real_8 _p_ w_, real_8 _p_ g_, real_8 _p_ u_, int_4 _p_ mm_);
218 prototype int_4 _la05cs (real_4 _p_ a_, int_4 _p_ ind_, int_4 _p_ ia_, int_4 _p_ n_, int_4 _p_ ip_, int_4 _p_ iw_,
219 real_4 _p_ w_, real_4 _p_ g_, real_4 _p_ u_, int_4 _p_ mm_);
220 prototype int_4 _la05ed (real_8 _p_ a_, int_4 _p_ irn_, int_4 _p_ ip_, int_4 _p_ n_, int_4 _p_ iw_, int_4 _p_ ia_,
221 logical_4 _p_ reals_);
222 prototype int_4 _la05es (real_4 _p_ a_, int_4 _p_ irn_, int_4 _p_ ip_, int_4 _p_ n_, int_4 _p_ iw_, int_4 _p_ ia_,
223 logical_4 _p_ reals_);
224 prototype int_4 _mc20ad (int_4 _p_ nc_, int_4 _p_ maxa_, real_8 _p_ a_, int_4 _p_ inum_, int_4 _p_ jptr_, int_4 _p_
225 jnum_, int_4 _p_ jdisp_);
226 prototype int_4 _mc20as (int_4 _p_ nc_, int_4 _p_ maxa_, real_4 _p_ a_, int_4 _p_ inum_, int_4 _p_ jptr_, int_4 _p_
227 jnum_, int_4 _p_ jdisp_);
228
229
230
231
232
233
234
235
236
237
238
239
240
241 // VIF THU 20 NOV 2025 22:20:06 ** LA05AD ** LA05AD PAGE 00009
242
243 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
244 // S S U U B B R R O O U U T I NN N E
245 // S U U B B R R O O U U T I N N N E
246 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
247 // S U U B B R R O O U U T I N N N E
248 // S S U U B B R R O O U U T I N NN E
249 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
250
251 // L A 000 5555555 A DDDDDD
252 // L A A 0 0 5 A A D D
253 // L A A 0 0 5 A A D D
254 // L A A 0 0 55555 A A D D
255 // L AAAAAAA 0 0 5 AAAAAAA D D
256 // L A A 0 0 5 5 A A D D
257 // LLLLLLL A A 000 55555 A A DDDDDD
258
259
260 // VIF THU 20 NOV 2025 22:20:06 ** LA05AD ** DIAGNOSTICS PAGE 00010
261
262
263 // VIF THU 20 NOV 2025 22:20:06 ** LA05AD ** GENERATED CODE PAGE 00011
264
265 int_4 _la05ad (real_8 _p_ a_, int_4 _p_ ind_, int_4 _p_ nz_, int_4 _p_ ia_, int_4 _p_ n_, int_4 _p_ ip_, int_4 _p_ iw_,
266 real_8 _p_ w_, real_8 _p_ g_, real_8 _p_ u_)
267 { // ** body not listed **
1136 }
1137
1138 // VIF THU 20 NOV 2025 22:20:06 ** LA05AS ** LA05AS PAGE 00028
1139
1140 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
1141 // S S U U B B R R O O U U T I NN N E
1142 // S U U B B R R O O U U T I N N N E
1143 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
1144 // S U U B B R R O O U U T I N N N E
1145 // S S U U B B R R O O U U T I N NN E
1146 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
1147
1148 // L A 000 5555555 A SSSSS
1149 // L A A 0 0 5 A A S S
1150 // L A A 0 0 5 A A S
1151 // L A A 0 0 55555 A A SSSSS
1152 // L AAAAAAA 0 0 5 AAAAAAA S
1153 // L A A 0 0 5 5 A A S S
1154 // LLLLLLL A A 000 55555 A A SSSSS
1155
1156
1157 // VIF THU 20 NOV 2025 22:20:06 ** LA05AS ** DIAGNOSTICS PAGE 00029
1158
1159
1160 // VIF THU 20 NOV 2025 22:20:06 ** LA05AS ** GENERATED CODE PAGE 00030
1161
1162 int_4 _la05as (real_4 _p_ a_, int_4 _p_ ind_, int_4 _p_ nz_, int_4 _p_ ia_, int_4 _p_ n_, int_4 _p_ ip_, int_4 _p_ iw_,
1163 real_4 _p_ w_, real_4 _p_ g_, real_4 _p_ u_)
1164 { // ** body not listed **
2033 }
2034
2035 // VIF THU 20 NOV 2025 22:20:06 ** LA05BD ** LA05BD PAGE 00047
2036
2037 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
2038 // S S U U B B R R O O U U T I NN N E
2039 // S U U B B R R O O U U T I N N N E
2040 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
2041 // S U U B B R R O O U U T I N N N E
2042 // S S U U B B R R O O U U T I N NN E
2043 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
2044
2045 // L A 000 5555555 BBBBBB DDDDDD
2046 // L A A 0 0 5 B B D D
2047 // L A A 0 0 5 B B D D
2048 // L A A 0 0 55555 BBBBBB D D
2049 // L AAAAAAA 0 0 5 B B D D
2050 // L A A 0 0 5 5 B B D D
2051 // LLLLLLL A A 000 55555 BBBBBB DDDDDD
2052
2053
2054 // VIF THU 20 NOV 2025 22:20:06 ** LA05BD ** DIAGNOSTICS PAGE 00048
2055
2056
2057 // VIF THU 20 NOV 2025 22:20:06 ** LA05BD ** GENERATED CODE PAGE 00049
2058
2059 int_4 _la05bd (real_8 _p_ a_, int_4 _p_ ind_, int_4 _p_ ia_, int_4 _p_ n_, int_4 _p_ ip_, int_4 _p_ iw_, real_8 _p_ w_,
2060 real_8 _p_ g_, real_8 _p_ b_, logical_4 _p_ trans_)
2061 { // ** body not listed **
2180 }
2181
2182 // VIF THU 20 NOV 2025 22:20:06 ** LA05BS ** LA05BS PAGE 00052
2183
2184 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
2185 // S S U U B B R R O O U U T I NN N E
2186 // S U U B B R R O O U U T I N N N E
2187 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
2188 // S U U B B R R O O U U T I N N N E
2189 // S S U U B B R R O O U U T I N NN E
2190 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
2191
2192 // L A 000 5555555 BBBBBB SSSSS
2193 // L A A 0 0 5 B B S S
2194 // L A A 0 0 5 B B S
2195 // L A A 0 0 55555 BBBBBB SSSSS
2196 // L AAAAAAA 0 0 5 B B S
2197 // L A A 0 0 5 5 B B S S
2198 // LLLLLLL A A 000 55555 BBBBBB SSSSS
2199
2200
2201 // VIF THU 20 NOV 2025 22:20:06 ** LA05BS ** DIAGNOSTICS PAGE 00053
2202
2203
2204 // VIF THU 20 NOV 2025 22:20:06 ** LA05BS ** GENERATED CODE PAGE 00054
2205
2206 int_4 _la05bs (real_4 _p_ a_, int_4 _p_ ind_, int_4 _p_ ia_, int_4 _p_ n_, int_4 _p_ ip_, int_4 _p_ iw_, real_4 _p_ w_,
2207 real_4 _p_ g_, real_4 _p_ b_, logical_4 _p_ trans_)
2208 { // ** body not listed **
2327 }
2328
2329 // VIF THU 20 NOV 2025 22:20:06 ** LA05CD ** LA05CD PAGE 00057
2330
2331 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
2332 // S S U U B B R R O O U U T I NN N E
2333 // S U U B B R R O O U U T I N N N E
2334 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
2335 // S U U B B R R O O U U T I N N N E
2336 // S S U U B B R R O O U U T I N NN E
2337 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
2338
2339 // L A 000 5555555 CCCCC DDDDDD
2340 // L A A 0 0 5 C C D D
2341 // L A A 0 0 5 C D D
2342 // L A A 0 0 55555 C D D
2343 // L AAAAAAA 0 0 5 C D D
2344 // L A A 0 0 5 5 C C D D
2345 // LLLLLLL A A 000 55555 CCCCC DDDDDD
2346
2347
2348 // VIF THU 20 NOV 2025 22:20:06 ** LA05CD ** DIAGNOSTICS PAGE 00058
2349
2350
2351 // VIF THU 20 NOV 2025 22:20:06 ** LA05CD ** GENERATED CODE PAGE 00059
2352
2353 int_4 _la05cd (real_8 _p_ a_, int_4 _p_ ind_, int_4 _p_ ia_, int_4 _p_ n_, int_4 _p_ ip_, int_4 _p_ iw_, real_8 _p_ w_,
2354 real_8 _p_ g_, real_8 _p_ u_, int_4 _p_ mm_)
2355 { // ** body not listed **
2879 }
2880
2881 // VIF THU 20 NOV 2025 22:20:06 ** LA05CS ** LA05CS PAGE 00070
2882
2883 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
2884 // S S U U B B R R O O U U T I NN N E
2885 // S U U B B R R O O U U T I N N N E
2886 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
2887 // S U U B B R R O O U U T I N N N E
2888 // S S U U B B R R O O U U T I N NN E
2889 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
2890
2891 // L A 000 5555555 CCCCC SSSSS
2892 // L A A 0 0 5 C C S S
2893 // L A A 0 0 5 C S
2894 // L A A 0 0 55555 C SSSSS
2895 // L AAAAAAA 0 0 5 C S
2896 // L A A 0 0 5 5 C C S S
2897 // LLLLLLL A A 000 55555 CCCCC SSSSS
2898
2899
2900 // VIF THU 20 NOV 2025 22:20:06 ** LA05CS ** DIAGNOSTICS PAGE 00071
2901
2902
2903 // VIF THU 20 NOV 2025 22:20:06 ** LA05CS ** GENERATED CODE PAGE 00072
2904
2905 int_4 _la05cs (real_4 _p_ a_, int_4 _p_ ind_, int_4 _p_ ia_, int_4 _p_ n_, int_4 _p_ ip_, int_4 _p_ iw_, real_4 _p_ w_,
2906 real_4 _p_ g_, real_4 _p_ u_, int_4 _p_ mm_)
2907 { // ** body not listed **
3431 }
3432
3433 // VIF THU 20 NOV 2025 22:20:06 ** LA05ED ** LA05ED PAGE 00083
3434
3435 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
3436 // S S U U B B R R O O U U T I NN N E
3437 // S U U B B R R O O U U T I N N N E
3438 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
3439 // S U U B B R R O O U U T I N N N E
3440 // S S U U B B R R O O U U T I N NN E
3441 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
3442
3443 // L A 000 5555555 EEEEEEE DDDDDD
3444 // L A A 0 0 5 E D D
3445 // L A A 0 0 5 E D D
3446 // L A A 0 0 55555 EEEEE D D
3447 // L AAAAAAA 0 0 5 E D D
3448 // L A A 0 0 5 5 E D D
3449 // LLLLLLL A A 000 55555 EEEEEEE DDDDDD
3450
3451
3452 // VIF THU 20 NOV 2025 22:20:06 ** LA05ED ** DIAGNOSTICS PAGE 00084
3453
3454
3455 // VIF THU 20 NOV 2025 22:20:06 ** LA05ED ** GENERATED CODE PAGE 00085
3456
3457 int_4 _la05ed (real_8 _p_ a_, int_4 _p_ irn_, int_4 _p_ ip_, int_4 _p_ n_, int_4 _p_ iw_, int_4 _p_ ia_, logical_4 _p_
3458 reals_)
3459 { // ** body not listed **
3506 }
3507 // VIF THU 20 NOV 2025 22:20:06 ** LA05ED ** GENERATED CODE PAGE 00086
3508
3509
3510 // VIF THU 20 NOV 2025 22:20:06 ** LA05ES ** LA05ES PAGE 00087
3511
3512 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
3513 // S S U U B B R R O O U U T I NN N E
3514 // S U U B B R R O O U U T I N N N E
3515 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
3516 // S U U B B R R O O U U T I N N N E
3517 // S S U U B B R R O O U U T I N NN E
3518 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
3519
3520 // L A 000 5555555 EEEEEEE SSSSS
3521 // L A A 0 0 5 E S S
3522 // L A A 0 0 5 E S
3523 // L A A 0 0 55555 EEEEE SSSSS
3524 // L AAAAAAA 0 0 5 E S
3525 // L A A 0 0 5 5 E S S
3526 // LLLLLLL A A 000 55555 EEEEEEE SSSSS
3527
3528
3529 // VIF THU 20 NOV 2025 22:20:06 ** LA05ES ** DIAGNOSTICS PAGE 00088
3530
3531
3532 // VIF THU 20 NOV 2025 22:20:06 ** LA05ES ** GENERATED CODE PAGE 00089
3533
3534 int_4 _la05es (real_4 _p_ a_, int_4 _p_ irn_, int_4 _p_ ip_, int_4 _p_ n_, int_4 _p_ iw_, int_4 _p_ ia_, logical_4 _p_
3535 reals_)
3536 { // ** body not listed **
3583 }
3584 // VIF THU 20 NOV 2025 22:20:06 ** LA05ES ** GENERATED CODE PAGE 00090
3585
3586
3587 // VIF THU 20 NOV 2025 22:20:06 ** MC20AD ** MC20AD PAGE 00091
3588
3589 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
3590 // S S U U B B R R O O U U T I NN N E
3591 // S U U B B R R O O U U T I N N N E
3592 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
3593 // S U U B B R R O O U U T I N N N E
3594 // S S U U B B R R O O U U T I N NN E
3595 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
3596
3597 // M M CCCCC 22222 000 A DDDDDD
3598 // MM MM C C 2 2 0 0 A A D D
3599 // M M M M C 2 0 0 A A D D
3600 // M M M C 22222 0 0 A A D D
3601 // M M C 2 0 0 AAAAAAA D D
3602 // M M C C 2 0 0 A A D D
3603 // M M CCCCC 2222222 000 A A DDDDDD
3604
3605
3606 // VIF THU 20 NOV 2025 22:20:06 ** MC20AD ** DIAGNOSTICS PAGE 00092
3607
3608
3609 // VIF THU 20 NOV 2025 22:20:06 ** MC20AD ** GENERATED CODE PAGE 00093
3610
3611 int_4 _mc20ad (int_4 _p_ nc_, int_4 _p_ maxa_, real_8 _p_ a_, int_4 _p_ inum_, int_4 _p_ jptr_, int_4 _p_ jnum_, int_4
3612 _p_ jdisp_)
3613 { // ** body not listed **
3666 }
3667
3668 // VIF THU 20 NOV 2025 22:20:06 ** MC20AS ** MC20AS PAGE 00095
3669
3670 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
3671 // S S U U B B R R O O U U T I NN N E
3672 // S U U B B R R O O U U T I N N N E
3673 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
3674 // S U U B B R R O O U U T I N N N E
3675 // S S U U B B R R O O U U T I N NN E
3676 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
3677
3678 // M M CCCCC 22222 000 A SSSSS
3679 // MM MM C C 2 2 0 0 A A S S
3680 // M M M M C 2 0 0 A A S
3681 // M M M C 22222 0 0 A A SSSSS
3682 // M M C 2 0 0 AAAAAAA S
3683 // M M C C 2 0 0 A A S S
3684 // M M CCCCC 2222222 000 A A SSSSS
3685
3686
3687 // VIF THU 20 NOV 2025 22:20:06 ** MC20AS ** DIAGNOSTICS PAGE 00096
3688
3689
3690 // VIF THU 20 NOV 2025 22:20:06 ** MC20AS ** GENERATED CODE PAGE 00097
3691
3692 int_4 _mc20as (int_4 _p_ nc_, int_4 _p_ maxa_, real_4 _p_ a_, int_4 _p_ inum_, int_4 _p_ jptr_, int_4 _p_ jnum_, int_4
3693 _p_ jdisp_)
3694 { // ** body not listed **
3747 }
|
© 2002-2025 J.M. van der Veer (jmvdveer@xs4all.nl)
|
