mathlib-slatec-sdrive.c
1 //! @file mathlib-slatec-sdrive.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-SDRIVE
24
25 // Compiled from Fortran source code by VIF.
26
27 // SDRIVE routines from SLATEC.
28 //
29 // Source: netlib.org/slatec/
30
31 // The license for SLATEC Fortran source code is:
32 //
33 // The SLATEC Common Mathematical Library was developed at
34 // US government research laboratories and is in the public domain.
35 //
36 // Repository: http://www.netlib.org/slatec/
37 //
38 // The SLATEC common mathematical library is issued by the following
39 //
40 // Air Force Weapons Laboratory, Albuquerque
41 // Lawrence Livermore National Laboratory, Livermore
42 // Los Alamos National Laboratory, Los Alamos
43 // National Institute of Standards and Technology, Washington
44 // National Energy Research Supercomputer Center, Livermore
45 // Oak Ridge National Laboratory, Oak Ridge
46 // Sandia National Laboratories, Albuquerque
47 // Sandia National Laboratories, Livermore
48 //
49 // All questions concerning the distribution of the library should be
50 // directed to the NATIONAL ENERGY SOFTWARE CENTER, 9700 Cass Ave.,
51 // Argonne, Illinois 60439, and not to the authors of the subprograms.
52 //
53 // * * * * * Notice * * * * *
54 //
55 // This material was prepared as an account of work sponsored by the
56 // United States Government. Neither the United States, nor the
57 // Department of Energy, nor the Department of Defense, nor any of
58 // their employees, nor any of their contractors, subcontractors, or
59 // their employees, makes any warranty, expressed or implied, or
60 // assumes any legal liability or responsibility for the accuracy,
61 // completeness, or usefulness of any information, apparatus, product,
62 // or process disclosed, or represents that its use would not infringe
63 // upon privately owned rights.
64
65 // VIF THU 20 NOV 2025 22:21:16 ** MARCEL ** SLATEC SDRIVE PAGE 00001
66
67
68
69 // M M A RRRRRR CCCCC EEEEEEE L
70 // MM MM A A R R C C E L
71 // M M M M A A R R C E L
72 // M M M A A RRRRRR C EEEEE L
73 // M M AAAAAAA R R C E L
74 // M M A A R R C C E L
75 // M M A A R R CCCCC EEEEEEE LLLLLLL
76
77 // SSSSS L A TTTTTTT EEEEEEE CCCCC SSSSS DDDDDD RRRRRR III V V
78 // S S L A A T E C C S S D D R R I V V
79 // S L A A T E C S D D R R I V V
80 // SSSSS L A A T EEEEE C ***** SSSSS D D RRRRRR I V V
81 // S L AAAAAAA T E C S D D R R I V V
82 // S S L A A T E C C S S D D R R I V V
83 // SSSSS LLLLLLL A A T EEEEEEE CCCCC SSSSS DDDDDD R R III V
84
85
86
87
88 // VIF THU 20 NOV 2025 22:21:16 ** GLOBAL SCOPE ** DIAGNOSTICS PAGE 00002
89
90 // ** linker ** object size 773584 bytes
91 // ** statistics ** 36 subprograms, no errors, no warnings
92
93
94 // VIF THU 20 NOV 2025 22:21:16 ** GLOBAL SCOPE ** JOB CONTROL PAGE 00003
95
96
97 // Line JCL *...*....1....|....2....|....3....|....4....|....5....|....6....|....7..*.|....8
98
99
100
101 // VIF THU 20 NOV 2025 22:21:16 ** GLOBAL SCOPE ** DEFINITIONS PAGE 00004
102
103 /*
104 Generated by VIF - experimental VIntage Fortran compiler.
105 VIF release 1.4.1
106 */
107
108 #if defined (__GNUC__)
109 #pragma GCC diagnostic ignored "-Wimplicit-function-declaration"
110 #pragma GCC diagnostic ignored "-Wincompatible-pointer-types"
111 #if (__GNUC__ >= 14)
112 #pragma GCC diagnostic ignored "-Wdeclaration-missing-parameter-type"
113 #pragma GCC diagnostic ignored "-Wimplicit-int"
114 #pragma GCC diagnostic ignored "-Wint-conversion"
115 #pragma GCC diagnostic ignored "-Wreturn-mismatch"
116 #endif
117 #else
118 #error VIF requires GCC
119 #endif
120
121 #include <vif.h>
122
123 static int_4 _km1 = -1, _k0 = 0, _k1 = 1;
124
125
126 #define _dc_0 "SLATEC"
127 #define _dc_1 "CDRIV1"
128 #define _dc_2 "Illegal input. The magnitude of MSTATE, "
129 #define _dc_3 ", is not in the range 1 to 6 ."
130 #define _dc_4 "Illegal input. The magnitude of MSTATE is 7 ."
131 #define _dc_5 "Illegal input. The number of equations, "
132 #define _dc_6 ", is greater than the maximum allowed: 200 ."
133 #define _dc_7 "Insufficient storage allocated for the work array. "
134 #define _dc_8 "The required storage is at least "
135 #define _dc_9 " ."
136 #define _dc_10 "CDRIV2"
137 #define _dc_11 "Illegal input. The magnitude of MSTATE IS 9 ."
138 #define _dc_12 " is not in the range 1 to 8 ."
139 #define _dc_13 "Illegal input. Improper value for the integration method "
140 #define _dc_14 "flag, "
141 #define _dc_15 "CDRIV3"
142 #define _dc_16 "Illegal input. The value of NSTATE is 12 ."
143 #define _dc_17 "Illegal input. Improper value for NSTATE(= "
144 #define _dc_18 ")."
145 #define _dc_19 "Illegal input. EPS, "
146 #define _dc_20 ", is negative."
147 #define _dc_21 "Illegal input. Number of equations, "
148 #define _dc_22 ", is not positive."
149 #define _dc_23 "Illegal input. Maximum order, "
150 #define _dc_24 "Illegal input. Improper value for MITER(= "
151 #define _dc_25 "Illegal input. Improper value for IMPL(= "
152 #define _dc_26 "Illegal input. For MINT = 3, the value of MITER, "
153 #define _dc_27 ", and/or IMPL, "
154 #define _dc_28 ", is not allowed."
155 #define _dc_29 "Illegal input. For MITER = 0, the value of IMPL, "
156 // VIF THU 20 NOV 2025 22:21:16 ** GLOBAL SCOPE ** DEFINITIONS PAGE 00005
157
158 #define _dc_30 "Illegal input. For MINT = 1, the value of IMPL, "
159 #define _dc_31 "Illegal input. Insufficient storage allocated for the "
160 #define _dc_32 "IWORK array. Based on the value of the input parameters "
161 #define _dc_33 "involved, the required storage is "
162 #define _dc_34 "WORK array. Based on the value of the input parameters "
163 #define _dc_35 "While integrating exactly to TOUT, T, "
164 #define _dc_36 ", was beyond TOUT, "
165 #define _dc_37 " . Solution obtained by "
166 #define _dc_38 "interpolation."
167 #define _dc_39 "At T, "
168 #define _dc_40 ", the requested accuracy, EPS, was not "
169 #define _dc_41 "obtainable with the machine precision. EPS has been "
170 #define _dc_42 "increased to "
171 #define _dc_43 ", the step size, "
172 #define _dc_44 ", is smaller "
173 #define _dc_45 "than the roundoff level of T. This may occur if there is "
174 #define _dc_46 "an abrupt change in the right hand side of the "
175 #define _dc_47 "differential equations."
176 #define _dc_48 ", "
177 #define _dc_49 " steps have been taken "
178 #define _dc_50 "without reaching TOUT, "
179 #define _dc_51 ", the attempted step size has gone to "
180 #define _dc_52 "zero. Often this occurs if the problem setup is incorrect."
181 #define _dc_53 ", the step size has been reduced about 50 "
182 #define _dc_54 "times without advancing the solution. Often this occurs "
183 #define _dc_55 "if the problem setup is incorrect."
184 #define _dc_56 ", while solving A*YDOT = F, A is singular."
185 #define _dc_57 "DDRIV1"
186 #define _dc_58 "DDRIV2"
187 #define _dc_59 "DDRIV3"
188 #define _dc_60 "SDRIV1"
189 #define _dc_61 "SDRIV2"
190 #define _dc_62 "SDRIV3"
191
192
193
194 // VIF THU 20 NOV 2025 22:21:16 ** GLOBAL SCOPE ** TYPEDEFS PAGE 00006
195
196 static FORMAT *__fmt_a = NULL;
197 typedef char char_3[4];
198 typedef char char_7[8];
199 typedef char char_15[16];
200 typedef char char_31[32];
201 typedef char char_63[64];
202 typedef char char_127[128];
203 typedef char char_255[256];
204 typedef char char_511[512];
205 typedef char char_1023[1024];
206 typedef char char_2047[2048];
207 typedef char char_4095[4096];
208
209
210 // VIF THU 20 NOV 2025 22:21:16 ** GLOBAL SCOPE ** FREQUENCY TABLE PAGE 00007
211
212 #define __ncalls 37
213 static CALLS __calls[__ncalls] = {
214 { // ** body not listed **"cdcor", 0}, // subroutine
216 { // ** body not listed **"cdntl", 0}, // subroutine
218 { // ** body not listed **"cdpsc", 0}, // subroutine
220 { // ** body not listed **"cdriv1", 0}, // subroutine
222 { // ** body not listed **"cdriv3", 0}, // subroutine
224 { // ** body not listed **"cdstp", 0}, // subroutine
226 { // ** body not listed **"ddcor", 0}, // subroutine
228 { // ** body not listed **"ddntl", 0}, // subroutine
230 { // ** body not listed **"ddpsc", 0}, // subroutine
232 { // ** body not listed **"ddriv1", 0}, // subroutine
234 { // ** body not listed **"ddriv3", 0}, // subroutine
236 { // ** body not listed **"ddstp", 0}, // subroutine
238 { // ** body not listed **"sdcor", 0}, // subroutine
240 { // ** body not listed **"sdntl", 0}, // subroutine
242 { // ** body not listed **"sdpsc", 0}, // subroutine
244 { // ** body not listed **"sdriv1", 0}, // subroutine
246 { // ** body not listed **"sdriv3", 0}, // subroutine
248 { // ** body not listed **"sdstp", 0}, // subroutine
250 { // ** body not listed **NULL, 0}
251 };
437 { // ** body not listed **
650 }
651
652 // VIF THU 20 NOV 2025 22:21:16 ** CDCST ** CDCST PAGE 00019
653
654 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
655 // S S U U B B R R O O U U T I NN N E
656 // S U U B B R R O O U U T I N N N E
657 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
658 // S U U B B R R O O U U T I N N N E
659 // S S U U B B R R O O U U T I N NN E
660 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
661
662 // CCCCC DDDDDD CCCCC SSSSS TTTTTTT
663 // C C D D C C S S T
664 // C D D C S T
665 // C D D C SSSSS T
666 // C D D C S T
667 // C C D D C C S S T
668 // CCCCC DDDDDD CCCCC SSSSS T
669
670
671 // VIF THU 20 NOV 2025 22:21:16 ** CDCST ** DIAGNOSTICS PAGE 00020
672
673
674 // VIF THU 20 NOV 2025 22:21:16 ** CDCST ** GENERATED CODE PAGE 00021
675
676 int_4 _cdcst (int_4 _p_ maxord_, int_4 _p_ mint_, int_4 _p_ iswflg_, real_4 _p_ el_, real_4 _p_ tq_)
677 { // ** body not listed **
765 }
766
767 // VIF THU 20 NOV 2025 22:21:16 ** CDNTL ** CDNTL PAGE 00023
768
769 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
770 // S S U U B B R R O O U U T I NN N E
771 // S U U B B R R O O U U T I N N N E
772 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
773 // S U U B B R R O O U U T I N N N E
774 // S S U U B B R R O O U U T I N NN E
775 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
776
777 // CCCCC DDDDDD N N TTTTTTT L
778 // C C D D NN N T L
779 // C D D N N N T L
780 // C D D N N N T L
781 // C D D N N N T L
782 // C C D D N NN T L
783 // CCCCC DDDDDD N N T LLLLLLL
784
785
786 // VIF THU 20 NOV 2025 22:21:16 ** CDNTL ** DIAGNOSTICS PAGE 00024
787
788
789 // VIF THU 20 NOV 2025 22:21:16 ** CDNTL ** GENERATED CODE PAGE 00025
790
791 int_4 _cdntl (real_4 _p_ eps_, int_4 (*_f)(), int_4 (*_fa)(), real_4 _p_ hmax_, real_4 _p_ hold_, int_4 _p_ impl_,
792 int_4 _p_ jtask_, int_4 _p_ matdim_, int_4 _p_ maxord_, int_4 _p_ mint_, int_4 _p_ miter_, int_4 _p_ ml_, int_4 _p_ mu_
793 , int_4 _p_ n_, int_4 _p_ nde_, complex_8 _p_ save1_, real_4 _p_ t_, real_4 _p_ uround_, int_4 (*_users)(), complex_8
794 _p_ y_, complex_8 _p_ ywt_, real_4 _p_ h_, int_4 _p_ mntold_, int_4 _p_ mtrold_, int_4 _p_ nfe_, real_4 _p_ rc_,
795 complex_8 _p_ yh_, complex_8 _p_ a_, logical_4 _p_ convrg_, real_4 _p_ el_, complex_8 _p_ fac_, logical_4 _p_ ier_,
796 int_4 _p_ ipvt_, int_4 _p_ nq_, int_4 _p_ nwait_, real_4 _p_ rh_, real_4 _p_ rmax_, complex_8 _p_ save2_, real_4 _p_
797 tq_, real_4 _p_ trend_, int_4 _p_ iswflg_, int_4 _p_ jstate_)
798 { // ** body not listed **
952 }
953
954 // VIF THU 20 NOV 2025 22:21:16 ** CDNTP ** CDNTP PAGE 00029
955
956 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
957 // S S U U B B R R O O U U T I NN N E
958 // S U U B B R R O O U U T I N N N E
959 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
960 // S U U B B R R O O U U T I N N N E
961 // S S U U B B R R O O U U T I N NN E
962 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
963
964 // CCCCC DDDDDD N N TTTTTTT PPPPPP
965 // C C D D NN N T P P
966 // C D D N N N T P P
967 // C D D N N N T PPPPPP
968 // C D D N N N T P
969 // C C D D N NN T P
970 // CCCCC DDDDDD N N T P
971
972
973 // VIF THU 20 NOV 2025 22:21:16 ** CDNTP ** DIAGNOSTICS PAGE 00030
974
975
976 // VIF THU 20 NOV 2025 22:21:16 ** CDNTP ** GENERATED CODE PAGE 00031
977
978 int_4 _cdntp (real_4 _p_ h_, int_4 _p_ k_, int_4 _p_ n_, int_4 _p_ nq_, real_4 _p_ t_, real_4 _p_ tout_, complex_8 _p_
979 yh_, complex_8 _p_ y_)
980 { // ** body not listed **
1021 }
1022
1023 // VIF THU 20 NOV 2025 22:21:16 ** CDPSC ** CDPSC PAGE 00032
1024
1025 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
1026 // S S U U B B R R O O U U T I NN N E
1027 // S U U B B R R O O U U T I N N N E
1028 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
1029 // S U U B B R R O O U U T I N N N E
1030 // S S U U B B R R O O U U T I N NN E
1031 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
1032
1033 // CCCCC DDDDDD PPPPPP SSSSS CCCCC
1034 // C C D D P P S S C C
1035 // C D D P P S C
1036 // C D D PPPPPP SSSSS C
1037 // C D D P S C
1038 // C C D D P S S C C
1039 // CCCCC DDDDDD P SSSSS CCCCC
1040
1041
1042 // VIF THU 20 NOV 2025 22:21:16 ** CDPSC ** DIAGNOSTICS PAGE 00033
1043
1044
1045 // VIF THU 20 NOV 2025 22:21:16 ** CDPSC ** GENERATED CODE PAGE 00034
1046
1047 int_4 _cdpsc (int_4 _p_ ksgn_, int_4 _p_ n_, int_4 _p_ nq_, complex_8 _p_ yh_)
1048 { // ** body not listed **
1072 }
1073
1074 // VIF THU 20 NOV 2025 22:21:16 ** CDPST ** CDPST PAGE 00035
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 DDDDDD PPPPPP SSSSS TTTTTTT
1085 // C C D D P P S S T
1086 // C D D P P S T
1087 // C D D PPPPPP SSSSS T
1088 // C D D P S T
1089 // C C D D P S S T
1090 // CCCCC DDDDDD P SSSSS T
1091
1092
1093 // VIF THU 20 NOV 2025 22:21:16 ** CDPST ** DIAGNOSTICS PAGE 00036
1094
1095
1096 // VIF THU 20 NOV 2025 22:21:16 ** CDPST ** GENERATED CODE PAGE 00037
1097
1098 int_4 _cdpst (real_4 _p_ el_, int_4 (*_f)(), int_4 (*_fa)(), real_4 _p_ h_, int_4 _p_ impl_, int_4 (*_jacobn)(), int_4
1099 _p_ matdim_, int_4 _p_ miter_, int_4 _p_ ml_, int_4 _p_ mu_, int_4 _p_ n_, int_4 _p_ nde_, int_4 _p_ nq_, complex_8 _p_
1100 save2_, real_4 _p_ t_, int_4 (*_users)(), complex_8 _p_ y_, complex_8 _p_ yh_, complex_8 _p_ ywt_, real_4 _p_ uround_,
1101 int_4 _p_ nfe_, int_4 _p_ nje_, complex_8 _p_ a_, complex_8 _p_ dfdy_, complex_8 _p_ fac_, logical_4 _p_ ier_, int_4
1102 _p_ ipvt_, complex_8 _p_ save1_, int_4 _p_ iswflg_, real_4 _p_ bnd_, int_4 _p_ jstate_)
1103 { // ** body not listed **
1418 }
1419
1420 // VIF THU 20 NOV 2025 22:21:16 ** CDRIV1 ** CDRIV1 PAGE 00044
1421
1422 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
1423 // S S U U B B R R O O U U T I NN N E
1424 // S U U B B R R O O U U T I N N N E
1425 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
1426 // S U U B B R R O O U U T I N N N E
1427 // S S U U B B R R O O U U T I N NN E
1428 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
1429
1430 // CCCCC DDDDDD RRRRRR III V V 1
1431 // C C D D R R I V V 11
1432 // C D D R R I V V 1 1
1433 // C D D RRRRRR I V V 1
1434 // C D D R R I V V 1
1435 // C C D D R R I V V 1
1436 // CCCCC DDDDDD R R III V 11111
1437
1438
1439 // VIF THU 20 NOV 2025 22:21:16 ** CDRIV1 ** DIAGNOSTICS PAGE 00045
1440
1441
1442 // VIF THU 20 NOV 2025 22:21:16 ** CDRIV1 ** GENERATED CODE PAGE 00046
1443
1444 int_4 _cdriv1 (int_4 _p_ n_, real_4 _p_ t_, complex_8 _p_ y_, real_4 (*_f)(), real_4 _p_ tout_, int_4 _p_ mstate_,
1445 real_4 _p_ eps_, complex_8 _p_ work_, int_4 _p_ lenw_, int_4 _p_ ierflg_)
1446 { // ** body not listed **
1652 }
1653
1654 // VIF THU 20 NOV 2025 22:21:16 ** CDRIV2 ** CDRIV2 PAGE 00051
1655
1656 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
1657 // S S U U B B R R O O U U T I NN N E
1658 // S U U B B R R O O U U T I N N N E
1659 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
1660 // S U U B B R R O O U U T I N N N E
1661 // S S U U B B R R O O U U T I N NN E
1662 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
1663
1664 // CCCCC DDDDDD RRRRRR III V V 22222
1665 // C C D D R R I V V 2 2
1666 // C D D R R I V V 2
1667 // C D D RRRRRR I V V 22222
1668 // C D D R R I V V 2
1669 // C C D D R R I V V 2
1670 // CCCCC DDDDDD R R III V 2222222
1671
1672
1673 // VIF THU 20 NOV 2025 22:21:16 ** CDRIV2 ** DIAGNOSTICS PAGE 00052
1674
1675
1676 // VIF THU 20 NOV 2025 22:21:16 ** CDRIV2 ** GENERATED CODE PAGE 00053
1677
1678 int_4 _cdriv2 (int_4 _p_ n_, real_4 _p_ t_, complex_8 _p_ y_, real_4 (*_f)(), real_4 _p_ tout_, int_4 _p_ mstate_,
1679 int_4 _p_ nroot_, real_4 _p_ eps_, real_4 _p_ ewt_, int_4 _p_ mint_, complex_8 _p_ work_, int_4 _p_ lenw_, int_4 _p_
1680 iwork_, int_4 _p_ leniw_, real_4 (*_g)(), int_4 _p_ ierflg_)
1681 { // ** body not listed **
1830 }
1831
1832 // VIF THU 20 NOV 2025 22:21:16 ** CDRIV3 ** CDRIV3 PAGE 00056
1833
1834 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
1835 // S S U U B B R R O O U U T I NN N E
1836 // S U U B B R R O O U U T I N N N E
1837 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
1838 // S U U B B R R O O U U T I N N N E
1839 // S S U U B B R R O O U U T I N NN E
1840 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
1841
1842 // CCCCC DDDDDD RRRRRR III V V 33333
1843 // C C D D R R I V V 3 3
1844 // C D D R R I V V 3
1845 // C D D RRRRRR I V V 33333
1846 // C D D R R I V V 3
1847 // C C D D R R I V V 3 3
1848 // CCCCC DDDDDD R R III V 33333
1849
1850
1851 // VIF THU 20 NOV 2025 22:21:16 ** CDRIV3 ** DIAGNOSTICS PAGE 00057
1852
1853
1854 // VIF THU 20 NOV 2025 22:21:16 ** CDRIV3 ** GENERATED CODE PAGE 00058
1855
1856 int_4 _cdriv3 (int_4 _p_ n_, real_4 _p_ t_, complex_8 _p_ y_, int_4 (*_f)(), int_4 _p_ nstate_, real_4 _p_ tout_, int_4
1857 _p_ ntask_, int_4 _p_ nroot_, real_4 _p_ eps_, real_4 _p_ ewt_, int_4 _p_ ierror_, int_4 _p_ mint_, int_4 _p_ miter_,
1858 int_4 _p_ impl_, int_4 _p_ ml_, int_4 _p_ mu_, int_4 _p_ mxord_, real_4 _p_ hmax_, complex_8 _p_ work_, int_4 _p_ lenw_
1859 , int_4 _p_ iwork_, int_4 _p_ leniw_, int_4 (*_jacobn)(), int_4 (*_fa)(), int_4 _p_ nde_, int_4 _p_ mxstep_, real_4
1860 (*_g)(), int_4 (*_users)(), int_4 _p_ ierflg_)
1861 { // ** body not listed **
3792 }
3793
3794 // VIF THU 20 NOV 2025 22:21:16 ** CDSCL ** CDSCL PAGE 00096
3795
3796 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
3797 // S S U U B B R R O O U U T I NN N E
3798 // S U U B B R R O O U U T I N N N E
3799 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
3800 // S U U B B R R O O U U T I N N N E
3801 // S S U U B B R R O O U U T I N NN E
3802 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
3803
3804 // CCCCC DDDDDD SSSSS CCCCC L
3805 // C C D D S S C C L
3806 // C D D S C L
3807 // C D D SSSSS C L
3808 // C D D S C L
3809 // C C D D S S C C L
3810 // CCCCC DDDDDD SSSSS CCCCC LLLLLLL
3811
3812
3813 // VIF THU 20 NOV 2025 22:21:16 ** CDSCL ** DIAGNOSTICS PAGE 00097
3814
3815
3816 // VIF THU 20 NOV 2025 22:21:16 ** CDSCL ** GENERATED CODE PAGE 00098
3817
3818 int_4 _cdscl (real_4 _p_ hmax_, int_4 _p_ n_, int_4 _p_ nq_, real_4 _p_ rmax_, real_4 _p_ h_, real_4 _p_ rc_, real_4
3819 _p_ rh_, complex_8 _p_ yh_)
3820 { // ** body not listed **
3841 }
3842
3843 // VIF THU 20 NOV 2025 22:21:16 ** CDSTP ** CDSTP PAGE 00099
3844
3845 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
3846 // S S U U B B R R O O U U T I NN N E
3847 // S U U B B R R O O U U T I N N N E
3848 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
3849 // S U U B B R R O O U U T I N N N E
3850 // S S U U B B R R O O U U T I N NN E
3851 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
3852
3853 // CCCCC DDDDDD SSSSS TTTTTTT PPPPPP
3854 // C C D D S S T P P
3855 // C D D S T P P
3856 // C D D SSSSS T PPPPPP
3857 // C D D S T P
3858 // C C D D S S T P
3859 // CCCCC DDDDDD SSSSS T P
3860
3861
3862 // VIF THU 20 NOV 2025 22:21:16 ** CDSTP ** DIAGNOSTICS PAGE 00100
3863
3864
3865 // VIF THU 20 NOV 2025 22:21:16 ** CDSTP ** GENERATED CODE PAGE 00101
3866
3867 int_4 _cdstp (real_4 _p_ eps_, int_4 (*_f)(), real_4 (*_fa)(), real_4 _p_ hmax_, int_4 _p_ impl_, int_4 _p_ ierror_,
3868 int_4 (*_jacobn)(), int_4 _p_ matdim_, int_4 _p_ maxord_, int_4 _p_ mint_, int_4 _p_ miter_, int_4 _p_ ml_, int_4 _p_
3869 mu_, int_4 _p_ n_, int_4 _p_ nde_, complex_8 _p_ ywt_, real_4 _p_ uround_, real_4 (*_users)(), real_4 _p_ avgh_, real_4
3870 _p_ avgord_, real_4 _p_ h_, real_4 _p_ hused_, int_4 _p_ jtask_, int_4 _p_ mntold_, int_4 _p_ mtrold_, int_4 _p_ nfe_,
3871 int_4 _p_ nje_, int_4 _p_ nqused_, int_4 _p_ nstep_, real_4 _p_ t_, complex_8 _p_ y_, complex_8 _p_ yh_, complex_8 _p_
3872 a_, logical_4 _p_ convrg_, complex_8 _p_ dfdy_, real_4 _p_ el_, complex_8 _p_ fac_, real_4 _p_ hold_, int_4 _p_ ipvt_,
3873 int_4 _p_ jstate_, int_4 _p_ jstepl_, int_4 _p_ nq_, int_4 _p_ nwait_, real_4 _p_ rc_, real_4 _p_ rmax_, complex_8 _p_
3874 save1_, complex_8 _p_ save2_, real_4 _p_ tq_, real_4 _p_ trend_, int_4 _p_ iswflg_, int_4 _p_ mtrsv_, int_4 _p_ mxrdsv_
3875 )
3876 { // ** body not listed **
4300 }
4301
4302 // VIF THU 20 NOV 2025 22:21:16 ** CDZRO ** CDZRO PAGE 00110
4303
4304 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
4305 // S S U U B B R R O O U U T I NN N E
4306 // S U U B B R R O O U U T I N N N E
4307 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
4308 // S U U B B R R O O U U T I N N N E
4309 // S S U U B B R R O O U U T I N NN E
4310 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
4311
4312 // CCCCC DDDDDD ZZZZZZZ RRRRRR OOOOO
4313 // C C D D Z R R O O
4314 // C D D Z R R O O
4315 // C D D Z RRRRRR O O
4316 // C D D Z R R O O
4317 // C C D D * R R O O
4318 // CCCCC DDDDDD ZZZZZZZ R R OOOOO
4319
4320
4321 // VIF THU 20 NOV 2025 22:21:16 ** CDZRO ** DIAGNOSTICS PAGE 00111
4322
4323
4324 // VIF THU 20 NOV 2025 22:21:16 ** CDZRO ** GENERATED CODE PAGE 00112
4325
4326 int_4 _cdzro (real_4 _p_ ae_, real_4 (*_f)(), real_4 _p_ h_, int_4 _p_ n_, int_4 _p_ nq_, int_4 _p_ iroot_, real_4 _p_
4327 re_, real_4 _p_ t_, complex_8 _p_ yh_, real_4 _p_ uround_, real_4 _p_ b_, real_4 _p_ c_, real_4 _p_ fb_, real_4 _p_ fc_
4328 , complex_8 _p_ y_)
4329 { // ** body not listed **
4403 }
4404
4405 // VIF THU 20 NOV 2025 22:21:16 ** DDCOR ** DDCOR PAGE 00114
4406
4407 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
4408 // S S U U B B R R O O U U T I NN N E
4409 // S U U B B R R O O U U T I N N N E
4410 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
4411 // S U U B B R R O O U U T I N N N E
4412 // S S U U B B R R O O U U T I N NN E
4413 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
4414
4415 // DDDDDD DDDDDD CCCCC OOOOO RRRRRR
4416 // D D D D C C O O R R
4417 // D D D D C O O R R
4418 // D D D D C O O RRRRRR
4419 // D D D D C O O R R
4420 // D D D D C C O O R R
4421 // DDDDDD DDDDDD CCCCC OOOOO R R
4422
4423
4424 // VIF THU 20 NOV 2025 22:21:16 ** DDCOR ** DIAGNOSTICS PAGE 00115
4425
4426
4427 // VIF THU 20 NOV 2025 22:21:16 ** DDCOR ** GENERATED CODE PAGE 00116
4428
4429 int_4 _ddcor (real_8 _p_ dfdy_, real_8 _p_ el_, int_4 (*_fa)(), real_8 _p_ h_, int_4 _p_ ierror_, int_4 _p_ impl_,
4430 int_4 _p_ ipvt_, int_4 _p_ matdim_, int_4 _p_ miter_, int_4 _p_ ml_, int_4 _p_ mu_, int_4 _p_ n_, int_4 _p_ nde_, int_4
4431 _p_ nq_, real_8 _p_ t_, int_4 (*_users)(), real_8 _p_ y_, real_8 _p_ yh_, real_8 _p_ ywt_, logical_4 _p_ evalfa_,
4432 real_8 _p_ save1_, real_8 _p_ save2_, real_8 _p_ a_, real_8 _p_ d_, int_4 _p_ jstate_)
4433 { // ** body not listed **
4646 }
4647
4648 // VIF THU 20 NOV 2025 22:21:16 ** DDCST ** DDCST PAGE 00121
4649
4650 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
4651 // S S U U B B R R O O U U T I NN N E
4652 // S U U B B R R O O U U T I N N N E
4653 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
4654 // S U U B B R R O O U U T I N N N E
4655 // S S U U B B R R O O U U T I N NN E
4656 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
4657
4658 // DDDDDD DDDDDD CCCCC SSSSS TTTTTTT
4659 // D D D D C C S S T
4660 // D D D D C S T
4661 // D D D D C SSSSS T
4662 // D D D D C S T
4663 // D D D D C C S S T
4664 // DDDDDD DDDDDD CCCCC SSSSS T
4665
4666
4667 // VIF THU 20 NOV 2025 22:21:16 ** DDCST ** DIAGNOSTICS PAGE 00122
4668
4669
4670 // VIF THU 20 NOV 2025 22:21:16 ** DDCST ** GENERATED CODE PAGE 00123
4671
4672 int_4 _ddcst (int_4 _p_ maxord_, int_4 _p_ mint_, int_4 _p_ iswflg_, real_8 _p_ el_, real_8 _p_ tq_)
4673 { // ** body not listed **
4761 }
4762
4763 // VIF THU 20 NOV 2025 22:21:16 ** DDNTL ** DDNTL PAGE 00125
4764
4765 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
4766 // S S U U B B R R O O U U T I NN N E
4767 // S U U B B R R O O U U T I N N N E
4768 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
4769 // S U U B B R R O O U U T I N N N E
4770 // S S U U B B R R O O U U T I N NN E
4771 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
4772
4773 // DDDDDD DDDDDD N N TTTTTTT L
4774 // D D D D NN N T L
4775 // D D D D N N N T L
4776 // D D D D N N N T L
4777 // D D D D N N N T L
4778 // D D D D N NN T L
4779 // DDDDDD DDDDDD N N T LLLLLLL
4780
4781
4782 // VIF THU 20 NOV 2025 22:21:16 ** DDNTL ** DIAGNOSTICS PAGE 00126
4783
4784
4785 // VIF THU 20 NOV 2025 22:21:16 ** DDNTL ** GENERATED CODE PAGE 00127
4786
4787 int_4 _ddntl (real_8 _p_ eps_, int_4 (*_f)(), int_4 (*_fa)(), real_8 _p_ hmax_, real_8 _p_ hold_, int_4 _p_ impl_,
4788 int_4 _p_ jtask_, int_4 _p_ matdim_, int_4 _p_ maxord_, int_4 _p_ mint_, int_4 _p_ miter_, int_4 _p_ ml_, int_4 _p_ mu_
4789 , int_4 _p_ n_, int_4 _p_ nde_, real_8 _p_ save1_, real_8 _p_ t_, real_8 _p_ uround_, int_4 (*_users)(), real_8 _p_ y_,
4790 real_8 _p_ ywt_, real_8 _p_ h_, int_4 _p_ mntold_, int_4 _p_ mtrold_, int_4 _p_ nfe_, real_8 _p_ rc_, real_8 _p_ yh_,
4791 real_8 _p_ a_, logical_4 _p_ convrg_, real_8 _p_ el_, real_8 _p_ fac_, logical_4 _p_ ier_, int_4 _p_ ipvt_, int_4 _p_
4792 nq_, int_4 _p_ nwait_, real_8 _p_ rh_, real_8 _p_ rmax_, real_8 _p_ save2_, real_8 _p_ tq_, real_8 _p_ trend_, int_4
4793 _p_ iswflg_, int_4 _p_ jstate_)
4794 { // ** body not listed **
4948 }
4949
4950 // VIF THU 20 NOV 2025 22:21:16 ** DDNTP ** DDNTP PAGE 00131
4951
4952 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
4953 // S S U U B B R R O O U U T I NN N E
4954 // S U U B B R R O O U U T I N N N E
4955 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
4956 // S U U B B R R O O U U T I N N N E
4957 // S S U U B B R R O O U U T I N NN E
4958 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
4959
4960 // DDDDDD DDDDDD N N TTTTTTT PPPPPP
4961 // D D D D NN N T P P
4962 // D D D D N N N T P P
4963 // D D D D N N N T PPPPPP
4964 // D D D D N N N T P
4965 // D D D D N NN T P
4966 // DDDDDD DDDDDD N N T P
4967
4968
4969 // VIF THU 20 NOV 2025 22:21:16 ** DDNTP ** DIAGNOSTICS PAGE 00132
4970
4971
4972 // VIF THU 20 NOV 2025 22:21:16 ** DDNTP ** GENERATED CODE PAGE 00133
4973
4974 int_4 _ddntp (real_8 _p_ h_, int_4 _p_ k_, int_4 _p_ n_, int_4 _p_ nq_, real_8 _p_ t_, real_8 _p_ tout_, real_8 _p_ yh_
4975 , real_8 _p_ y_)
4976 { // ** body not listed **
5017 }
5018
5019 // VIF THU 20 NOV 2025 22:21:16 ** DDPSC ** DDPSC PAGE 00134
5020
5021 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
5022 // S S U U B B R R O O U U T I NN N E
5023 // S U U B B R R O O U U T I N N N E
5024 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
5025 // S U U B B R R O O U U T I N N N E
5026 // S S U U B B R R O O U U T I N NN E
5027 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
5028
5029 // DDDDDD DDDDDD PPPPPP SSSSS CCCCC
5030 // D D D D P P S S C C
5031 // D D D D P P S C
5032 // D D D D PPPPPP SSSSS C
5033 // D D D D P S C
5034 // D D D D P S S C C
5035 // DDDDDD DDDDDD P SSSSS CCCCC
5036
5037
5038 // VIF THU 20 NOV 2025 22:21:16 ** DDPSC ** DIAGNOSTICS PAGE 00135
5039
5040
5041 // VIF THU 20 NOV 2025 22:21:16 ** DDPSC ** GENERATED CODE PAGE 00136
5042
5043 int_4 _ddpsc (int_4 _p_ ksgn_, int_4 _p_ n_, int_4 _p_ nq_, real_8 _p_ yh_)
5044 { // ** body not listed **
5068 }
5069
5070 // VIF THU 20 NOV 2025 22:21:16 ** DDPST ** DDPST PAGE 00137
5071
5072 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
5073 // S S U U B B R R O O U U T I NN N E
5074 // S U U B B R R O O U U T I N N N E
5075 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
5076 // S U U B B R R O O U U T I N N N E
5077 // S S U U B B R R O O U U T I N NN E
5078 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
5079
5080 // DDDDDD DDDDDD PPPPPP SSSSS TTTTTTT
5081 // D D D D P P S S T
5082 // D D D D P P S T
5083 // D D D D PPPPPP SSSSS T
5084 // D D D D P S T
5085 // D D D D P S S T
5086 // DDDDDD DDDDDD P SSSSS T
5087
5088
5089 // VIF THU 20 NOV 2025 22:21:16 ** DDPST ** DIAGNOSTICS PAGE 00138
5090
5091
5092 // VIF THU 20 NOV 2025 22:21:16 ** DDPST ** GENERATED CODE PAGE 00139
5093
5094 int_4 _ddpst (real_8 _p_ el_, int_4 (*_f)(), int_4 (*_fa)(), real_8 _p_ h_, int_4 _p_ impl_, int_4 (*_jacobn)(), int_4
5095 _p_ matdim_, int_4 _p_ miter_, int_4 _p_ ml_, int_4 _p_ mu_, int_4 _p_ n_, int_4 _p_ nde_, int_4 _p_ nq_, real_8 _p_
5096 save2_, real_8 _p_ t_, int_4 (*_users)(), real_8 _p_ y_, real_8 _p_ yh_, real_8 _p_ ywt_, real_8 _p_ uround_, int_4 _p_
5097 nfe_, int_4 _p_ nje_, real_8 _p_ a_, real_8 _p_ dfdy_, real_8 _p_ fac_, logical_4 _p_ ier_, int_4 _p_ ipvt_, real_8 _p_
5098 save1_, int_4 _p_ iswflg_, real_8 _p_ bnd_, int_4 _p_ jstate_)
5099 { // ** body not listed **
5419 }
5420
5421 // VIF THU 20 NOV 2025 22:21:16 ** DDRIV1 ** DDRIV1 PAGE 00146
5422
5423 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
5424 // S S U U B B R R O O U U T I NN N E
5425 // S U U B B R R O O U U T I N N N E
5426 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
5427 // S U U B B R R O O U U T I N N N E
5428 // S S U U B B R R O O U U T I N NN E
5429 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
5430
5431 // DDDDDD DDDDDD RRRRRR III V V 1
5432 // D D D D R R I V V 11
5433 // D D D D R R I V V 1 1
5434 // D D D D RRRRRR I V V 1
5435 // D D D D R R I V V 1
5436 // D D D D R R I V V 1
5437 // DDDDDD DDDDDD R R III V 11111
5438
5439
5440 // VIF THU 20 NOV 2025 22:21:16 ** DDRIV1 ** DIAGNOSTICS PAGE 00147
5441
5442
5443 // VIF THU 20 NOV 2025 22:21:16 ** DDRIV1 ** GENERATED CODE PAGE 00148
5444
5445 int_4 _ddriv1 (int_4 _p_ n_, real_8 _p_ t_, real_8 _p_ y_, real_4 (*_f)(), real_8 _p_ tout_, int_4 _p_ mstate_, real_8
5446 _p_ eps_, real_8 _p_ work_, int_4 _p_ lenw_, int_4 _p_ ierflg_)
5447 { // ** body not listed **
5653 }
5654
5655 // VIF THU 20 NOV 2025 22:21:16 ** DDRIV2 ** DDRIV2 PAGE 00153
5656
5657 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
5658 // S S U U B B R R O O U U T I NN N E
5659 // S U U B B R R O O U U T I N N N E
5660 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
5661 // S U U B B R R O O U U T I N N N E
5662 // S S U U B B R R O O U U T I N NN E
5663 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
5664
5665 // DDDDDD DDDDDD RRRRRR III V V 22222
5666 // D D D D R R I V V 2 2
5667 // D D D D R R I V V 2
5668 // D D D D RRRRRR I V V 22222
5669 // D D D D R R I V V 2
5670 // D D D D R R I V V 2
5671 // DDDDDD DDDDDD R R III V 2222222
5672
5673
5674 // VIF THU 20 NOV 2025 22:21:16 ** DDRIV2 ** DIAGNOSTICS PAGE 00154
5675
5676
5677 // VIF THU 20 NOV 2025 22:21:16 ** DDRIV2 ** GENERATED CODE PAGE 00155
5678
5679 int_4 _ddriv2 (int_4 _p_ n_, real_8 _p_ t_, real_8 _p_ y_, real_4 (*_f)(), real_8 _p_ tout_, int_4 _p_ mstate_, int_4
5680 _p_ nroot_, real_8 _p_ eps_, real_8 _p_ ewt_, int_4 _p_ mint_, real_8 _p_ work_, int_4 _p_ lenw_, int_4 _p_ iwork_,
5681 int_4 _p_ leniw_, real_8 (*_g)(), int_4 _p_ ierflg_)
5682 { // ** body not listed **
5831 }
5832
5833 // VIF THU 20 NOV 2025 22:21:16 ** DDRIV3 ** DDRIV3 PAGE 00158
5834
5835 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
5836 // S S U U B B R R O O U U T I NN N E
5837 // S U U B B R R O O U U T I N N N E
5838 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
5839 // S U U B B R R O O U U T I N N N E
5840 // S S U U B B R R O O U U T I N NN E
5841 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
5842
5843 // DDDDDD DDDDDD RRRRRR III V V 33333
5844 // D D D D R R I V V 3 3
5845 // D D D D R R I V V 3
5846 // D D D D RRRRRR I V V 33333
5847 // D D D D R R I V V 3
5848 // D D D D R R I V V 3 3
5849 // DDDDDD DDDDDD R R III V 33333
5850
5851
5852 // VIF THU 20 NOV 2025 22:21:16 ** DDRIV3 ** DIAGNOSTICS PAGE 00159
5853
5854
5855 // VIF THU 20 NOV 2025 22:21:16 ** DDRIV3 ** GENERATED CODE PAGE 00160
5856
5857 int_4 _ddriv3 (int_4 _p_ n_, real_8 _p_ t_, real_8 _p_ y_, int_4 (*_f)(), int_4 _p_ nstate_, real_8 _p_ tout_, int_4
5858 _p_ ntask_, int_4 _p_ nroot_, real_8 _p_ eps_, real_8 _p_ ewt_, int_4 _p_ ierror_, int_4 _p_ mint_, int_4 _p_ miter_,
5859 int_4 _p_ impl_, int_4 _p_ ml_, int_4 _p_ mu_, int_4 _p_ mxord_, real_8 _p_ hmax_, real_8 _p_ work_, int_4 _p_ lenw_,
5860 int_4 _p_ iwork_, int_4 _p_ leniw_, int_4 (*_jacobn)(), int_4 (*_fa)(), int_4 _p_ nde_, int_4 _p_ mxstep_, real_8
5861 (*_g)(), int_4 (*_users)(), int_4 _p_ ierflg_)
5862 { // ** body not listed **
7730 }
7731
7732 // VIF THU 20 NOV 2025 22:21:16 ** DDSCL ** DDSCL PAGE 00197
7733
7734 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
7735 // S S U U B B R R O O U U T I NN N E
7736 // S U U B B R R O O U U T I N N N E
7737 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
7738 // S U U B B R R O O U U T I N N N E
7739 // S S U U B B R R O O U U T I N NN E
7740 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
7741
7742 // DDDDDD DDDDDD SSSSS CCCCC L
7743 // D D D D S S C C L
7744 // D D D D S C L
7745 // D D D D SSSSS C L
7746 // D D D D S C L
7747 // D D D D S S C C L
7748 // DDDDDD DDDDDD SSSSS CCCCC LLLLLLL
7749
7750
7751 // VIF THU 20 NOV 2025 22:21:16 ** DDSCL ** DIAGNOSTICS PAGE 00198
7752
7753
7754 // VIF THU 20 NOV 2025 22:21:16 ** DDSCL ** GENERATED CODE PAGE 00199
7755
7756 int_4 _ddscl (real_8 _p_ hmax_, int_4 _p_ n_, int_4 _p_ nq_, real_8 _p_ rmax_, real_8 _p_ h_, real_8 _p_ rc_, real_8
7757 _p_ rh_, real_8 _p_ yh_)
7758 { // ** body not listed **
7779 }
7780
7781 // VIF THU 20 NOV 2025 22:21:16 ** DDSTP ** DDSTP PAGE 00200
7782
7783 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
7784 // S S U U B B R R O O U U T I NN N E
7785 // S U U B B R R O O U U T I N N N E
7786 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
7787 // S U U B B R R O O U U T I N N N E
7788 // S S U U B B R R O O U U T I N NN E
7789 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
7790
7791 // DDDDDD DDDDDD SSSSS TTTTTTT PPPPPP
7792 // D D D D S S T P P
7793 // D D D D S T P P
7794 // D D D D SSSSS T PPPPPP
7795 // D D D D S T P
7796 // D D D D S S T P
7797 // DDDDDD DDDDDD SSSSS T P
7798
7799
7800 // VIF THU 20 NOV 2025 22:21:16 ** DDSTP ** DIAGNOSTICS PAGE 00201
7801
7802
7803 // VIF THU 20 NOV 2025 22:21:16 ** DDSTP ** GENERATED CODE PAGE 00202
7804
7805 int_4 _ddstp (real_8 _p_ eps_, int_4 (*_f)(), real_4 (*_fa)(), real_8 _p_ hmax_, int_4 _p_ impl_, int_4 _p_ ierror_,
7806 int_4 (*_jacobn)(), int_4 _p_ matdim_, int_4 _p_ maxord_, int_4 _p_ mint_, int_4 _p_ miter_, int_4 _p_ ml_, int_4 _p_
7807 mu_, int_4 _p_ n_, int_4 _p_ nde_, real_8 _p_ ywt_, real_8 _p_ uround_, real_4 (*_users)(), real_8 _p_ avgh_, real_8
7808 _p_ avgord_, real_8 _p_ h_, real_8 _p_ hused_, int_4 _p_ jtask_, int_4 _p_ mntold_, int_4 _p_ mtrold_, int_4 _p_ nfe_,
7809 int_4 _p_ nje_, int_4 _p_ nqused_, int_4 _p_ nstep_, real_8 _p_ t_, real_8 _p_ y_, real_8 _p_ yh_, real_8 _p_ a_,
7810 logical_4 _p_ convrg_, real_8 _p_ dfdy_, real_8 _p_ el_, real_8 _p_ fac_, real_8 _p_ hold_, int_4 _p_ ipvt_, int_4 _p_
7811 jstate_, int_4 _p_ jstepl_, int_4 _p_ nq_, int_4 _p_ nwait_, real_8 _p_ rc_, real_8 _p_ rmax_, real_8 _p_ save1_,
7812 real_8 _p_ save2_, real_8 _p_ tq_, real_8 _p_ trend_, int_4 _p_ iswflg_, int_4 _p_ mtrsv_, int_4 _p_ mxrdsv_)
7813 { // ** body not listed **
8237 }
8238
8239 // VIF THU 20 NOV 2025 22:21:16 ** DDZRO ** DDZRO PAGE 00211
8240
8241 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
8242 // S S U U B B R R O O U U T I NN N E
8243 // S U U B B R R O O U U T I N N N E
8244 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
8245 // S U U B B R R O O U U T I N N N E
8246 // S S U U B B R R O O U U T I N NN E
8247 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
8248
8249 // DDDDDD DDDDDD ZZZZZZZ RRRRRR OOOOO
8250 // D D D D Z R R O O
8251 // D D D D Z R R O O
8252 // D D D D Z RRRRRR O O
8253 // D D D D Z R R O O
8254 // D D D D * R R O O
8255 // DDDDDD DDDDDD ZZZZZZZ R R OOOOO
8256
8257
8258 // VIF THU 20 NOV 2025 22:21:16 ** DDZRO ** DIAGNOSTICS PAGE 00212
8259
8260
8261 // VIF THU 20 NOV 2025 22:21:16 ** DDZRO ** GENERATED CODE PAGE 00213
8262
8263 int_4 _ddzro (real_8 _p_ ae_, real_8 (*_f)(), real_8 _p_ h_, int_4 _p_ n_, int_4 _p_ nq_, int_4 _p_ iroot_, real_8 _p_
8264 re_, real_8 _p_ t_, real_8 _p_ yh_, real_8 _p_ uround_, real_8 _p_ b_, real_8 _p_ c_, real_8 _p_ fb_, real_8 _p_ fc_,
8265 real_8 _p_ y_)
8266 { // ** body not listed **
8340 }
8341
8342 // VIF THU 20 NOV 2025 22:21:16 ** SDCOR ** SDCOR PAGE 00215
8343
8344 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
8345 // S S U U B B R R O O U U T I NN N E
8346 // S U U B B R R O O U U T I N N N E
8347 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
8348 // S U U B B R R O O U U T I N N N E
8349 // S S U U B B R R O O U U T I N NN E
8350 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
8351
8352 // SSSSS DDDDDD CCCCC OOOOO RRRRRR
8353 // S S D D C C O O R R
8354 // S D D C O O R R
8355 // SSSSS D D C O O RRRRRR
8356 // S D D C O O R R
8357 // S S D D C C O O R R
8358 // SSSSS DDDDDD CCCCC OOOOO R R
8359
8360
8361 // VIF THU 20 NOV 2025 22:21:16 ** SDCOR ** DIAGNOSTICS PAGE 00216
8362
8363
8364 // VIF THU 20 NOV 2025 22:21:16 ** SDCOR ** GENERATED CODE PAGE 00217
8365
8366 int_4 _sdcor (real_4 _p_ dfdy_, real_4 _p_ el_, int_4 (*_fa)(), real_4 _p_ h_, int_4 _p_ ierror_, int_4 _p_ impl_,
8367 int_4 _p_ ipvt_, int_4 _p_ matdim_, int_4 _p_ miter_, int_4 _p_ ml_, int_4 _p_ mu_, int_4 _p_ n_, int_4 _p_ nde_, int_4
8368 _p_ nq_, real_4 _p_ t_, int_4 (*_users)(), real_4 _p_ y_, real_4 _p_ yh_, real_4 _p_ ywt_, logical_4 _p_ evalfa_,
8369 real_4 _p_ save1_, real_4 _p_ save2_, real_4 _p_ a_, real_4 _p_ d_, int_4 _p_ jstate_)
8370 { // ** body not listed **
8583 }
8584
8585 // VIF THU 20 NOV 2025 22:21:16 ** SDCST ** SDCST PAGE 00222
8586
8587 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
8588 // S S U U B B R R O O U U T I NN N E
8589 // S U U B B R R O O U U T I N N N E
8590 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
8591 // S U U B B R R O O U U T I N N N E
8592 // S S U U B B R R O O U U T I N NN E
8593 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
8594
8595 // SSSSS DDDDDD CCCCC SSSSS TTTTTTT
8596 // S S D D C C S S T
8597 // S D D C S T
8598 // SSSSS D D C SSSSS T
8599 // S D D C S T
8600 // S S D D C C S S T
8601 // SSSSS DDDDDD CCCCC SSSSS T
8602
8603
8604 // VIF THU 20 NOV 2025 22:21:16 ** SDCST ** DIAGNOSTICS PAGE 00223
8605
8606
8607 // VIF THU 20 NOV 2025 22:21:16 ** SDCST ** GENERATED CODE PAGE 00224
8608
8609 int_4 _sdcst (int_4 _p_ maxord_, int_4 _p_ mint_, int_4 _p_ iswflg_, real_4 _p_ el_, real_4 _p_ tq_)
8610 { // ** body not listed **
8698 }
8699
8700 // VIF THU 20 NOV 2025 22:21:16 ** SDNTL ** SDNTL PAGE 00226
8701
8702 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
8703 // S S U U B B R R O O U U T I NN N E
8704 // S U U B B R R O O U U T I N N N E
8705 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
8706 // S U U B B R R O O U U T I N N N E
8707 // S S U U B B R R O O U U T I N NN E
8708 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
8709
8710 // SSSSS DDDDDD N N TTTTTTT L
8711 // S S D D NN N T L
8712 // S D D N N N T L
8713 // SSSSS D D N N N T L
8714 // S D D N N N T L
8715 // S S D D N NN T L
8716 // SSSSS DDDDDD N N T LLLLLLL
8717
8718
8719 // VIF THU 20 NOV 2025 22:21:16 ** SDNTL ** DIAGNOSTICS PAGE 00227
8720
8721
8722 // VIF THU 20 NOV 2025 22:21:16 ** SDNTL ** GENERATED CODE PAGE 00228
8723
8724 int_4 _sdntl (real_4 _p_ eps_, int_4 (*_f)(), int_4 (*_fa)(), real_4 _p_ hmax_, real_4 _p_ hold_, int_4 _p_ impl_,
8725 int_4 _p_ jtask_, int_4 _p_ matdim_, int_4 _p_ maxord_, int_4 _p_ mint_, int_4 _p_ miter_, int_4 _p_ ml_, int_4 _p_ mu_
8726 , int_4 _p_ n_, int_4 _p_ nde_, real_4 _p_ save1_, real_4 _p_ t_, real_4 _p_ uround_, int_4 (*_users)(), real_4 _p_ y_,
8727 real_4 _p_ ywt_, real_4 _p_ h_, int_4 _p_ mntold_, int_4 _p_ mtrold_, int_4 _p_ nfe_, real_4 _p_ rc_, real_4 _p_ yh_,
8728 real_4 _p_ a_, logical_4 _p_ convrg_, real_4 _p_ el_, real_4 _p_ fac_, logical_4 _p_ ier_, int_4 _p_ ipvt_, int_4 _p_
8729 nq_, int_4 _p_ nwait_, real_4 _p_ rh_, real_4 _p_ rmax_, real_4 _p_ save2_, real_4 _p_ tq_, real_4 _p_ trend_, int_4
8730 _p_ iswflg_, int_4 _p_ jstate_)
8731 { // ** body not listed **
8885 }
8886
8887 // VIF THU 20 NOV 2025 22:21:16 ** SDNTP ** SDNTP PAGE 00232
8888
8889 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
8890 // S S U U B B R R O O U U T I NN N E
8891 // S U U B B R R O O U U T I N N N E
8892 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
8893 // S U U B B R R O O U U T I N N N E
8894 // S S U U B B R R O O U U T I N NN E
8895 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
8896
8897 // SSSSS DDDDDD N N TTTTTTT PPPPPP
8898 // S S D D NN N T P P
8899 // S D D N N N T P P
8900 // SSSSS D D N N N T PPPPPP
8901 // S D D N N N T P
8902 // S S D D N NN T P
8903 // SSSSS DDDDDD N N T P
8904
8905
8906 // VIF THU 20 NOV 2025 22:21:16 ** SDNTP ** DIAGNOSTICS PAGE 00233
8907
8908
8909 // VIF THU 20 NOV 2025 22:21:16 ** SDNTP ** GENERATED CODE PAGE 00234
8910
8911 int_4 _sdntp (real_4 _p_ h_, int_4 _p_ k_, int_4 _p_ n_, int_4 _p_ nq_, real_4 _p_ t_, real_4 _p_ tout_, real_4 _p_ yh_
8912 , real_4 _p_ y_)
8913 { // ** body not listed **
8954 }
8955
8956 // VIF THU 20 NOV 2025 22:21:16 ** SDPSC ** SDPSC PAGE 00235
8957
8958 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
8959 // S S U U B B R R O O U U T I NN N E
8960 // S U U B B R R O O U U T I N N N E
8961 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
8962 // S U U B B R R O O U U T I N N N E
8963 // S S U U B B R R O O U U T I N NN E
8964 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
8965
8966 // SSSSS DDDDDD PPPPPP SSSSS CCCCC
8967 // S S D D P P S S C C
8968 // S D D P P S C
8969 // SSSSS D D PPPPPP SSSSS C
8970 // S D D P S C
8971 // S S D D P S S C C
8972 // SSSSS DDDDDD P SSSSS CCCCC
8973
8974
8975 // VIF THU 20 NOV 2025 22:21:16 ** SDPSC ** DIAGNOSTICS PAGE 00236
8976
8977
8978 // VIF THU 20 NOV 2025 22:21:16 ** SDPSC ** GENERATED CODE PAGE 00237
8979
8980 int_4 _sdpsc (int_4 _p_ ksgn_, int_4 _p_ n_, int_4 _p_ nq_, real_4 _p_ yh_)
8981 { // ** body not listed **
9005 }
9006
9007 // VIF THU 20 NOV 2025 22:21:16 ** SDPST ** SDPST PAGE 00238
9008
9009 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
9010 // S S U U B B R R O O U U T I NN N E
9011 // S U U B B R R O O U U T I N N N E
9012 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
9013 // S U U B B R R O O U U T I N N N E
9014 // S S U U B B R R O O U U T I N NN E
9015 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
9016
9017 // SSSSS DDDDDD PPPPPP SSSSS TTTTTTT
9018 // S S D D P P S S T
9019 // S D D P P S T
9020 // SSSSS D D PPPPPP SSSSS T
9021 // S D D P S T
9022 // S S D D P S S T
9023 // SSSSS DDDDDD P SSSSS T
9024
9025
9026 // VIF THU 20 NOV 2025 22:21:16 ** SDPST ** DIAGNOSTICS PAGE 00239
9027
9028
9029 // VIF THU 20 NOV 2025 22:21:16 ** SDPST ** GENERATED CODE PAGE 00240
9030
9031 int_4 _sdpst (real_4 _p_ el_, int_4 (*_f)(), int_4 (*_fa)(), real_4 _p_ h_, int_4 _p_ impl_, int_4 (*_jacobn)(), int_4
9032 _p_ matdim_, int_4 _p_ miter_, int_4 _p_ ml_, int_4 _p_ mu_, int_4 _p_ n_, int_4 _p_ nde_, int_4 _p_ nq_, real_4 _p_
9033 save2_, real_4 _p_ t_, int_4 (*_users)(), real_4 _p_ y_, real_4 _p_ yh_, real_4 _p_ ywt_, real_4 _p_ uround_, int_4 _p_
9034 nfe_, int_4 _p_ nje_, real_4 _p_ a_, real_4 _p_ dfdy_, real_4 _p_ fac_, logical_4 _p_ ier_, int_4 _p_ ipvt_, real_4 _p_
9035 save1_, int_4 _p_ iswflg_, real_4 _p_ bnd_, int_4 _p_ jstate_)
9036 { // ** body not listed **
9356 }
9357
9358 // VIF THU 20 NOV 2025 22:21:16 ** SDRIV1 ** SDRIV1 PAGE 00247
9359
9360 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
9361 // S S U U B B R R O O U U T I NN N E
9362 // S U U B B R R O O U U T I N N N E
9363 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
9364 // S U U B B R R O O U U T I N N N E
9365 // S S U U B B R R O O U U T I N NN E
9366 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
9367
9368 // SSSSS DDDDDD RRRRRR III V V 1
9369 // S S D D R R I V V 11
9370 // S D D R R I V V 1 1
9371 // SSSSS D D RRRRRR I V V 1
9372 // S D D R R I V V 1
9373 // S S D D R R I V V 1
9374 // SSSSS DDDDDD R R III V 11111
9375
9376
9377 // VIF THU 20 NOV 2025 22:21:16 ** SDRIV1 ** DIAGNOSTICS PAGE 00248
9378
9379
9380 // VIF THU 20 NOV 2025 22:21:16 ** SDRIV1 ** GENERATED CODE PAGE 00249
9381
9382 int_4 _sdriv1 (int_4 _p_ n_, real_4 _p_ t_, real_4 _p_ y_, real_4 (*_f)(), real_4 _p_ tout_, int_4 _p_ mstate_, real_4
9383 _p_ eps_, real_4 _p_ work_, int_4 _p_ lenw_, int_4 _p_ ierflg_)
9384 { // ** body not listed **
9590 }
9591
9592 // VIF THU 20 NOV 2025 22:21:16 ** SDRIV2 ** SDRIV2 PAGE 00254
9593
9594 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
9595 // S S U U B B R R O O U U T I NN N E
9596 // S U U B B R R O O U U T I N N N E
9597 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
9598 // S U U B B R R O O U U T I N N N E
9599 // S S U U B B R R O O U U T I N NN E
9600 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
9601
9602 // SSSSS DDDDDD RRRRRR III V V 22222
9603 // S S D D R R I V V 2 2
9604 // S D D R R I V V 2
9605 // SSSSS D D RRRRRR I V V 22222
9606 // S D D R R I V V 2
9607 // S S D D R R I V V 2
9608 // SSSSS DDDDDD R R III V 2222222
9609
9610
9611 // VIF THU 20 NOV 2025 22:21:16 ** SDRIV2 ** DIAGNOSTICS PAGE 00255
9612
9613
9614 // VIF THU 20 NOV 2025 22:21:16 ** SDRIV2 ** GENERATED CODE PAGE 00256
9615
9616 int_4 _sdriv2 (int_4 _p_ n_, real_4 _p_ t_, real_4 _p_ y_, real_4 (*_f)(), real_4 _p_ tout_, int_4 _p_ mstate_, int_4
9617 _p_ nroot_, real_4 _p_ eps_, real_4 _p_ ewt_, int_4 _p_ mint_, real_4 _p_ work_, int_4 _p_ lenw_, int_4 _p_ iwork_,
9618 int_4 _p_ leniw_, real_4 (*_g)(), int_4 _p_ ierflg_)
9619 { // ** body not listed **
9768 }
9769
9770 // VIF THU 20 NOV 2025 22:21:16 ** SDRIV3 ** SDRIV3 PAGE 00259
9771
9772 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
9773 // S S U U B B R R O O U U T I NN N E
9774 // S U U B B R R O O U U T I N N N E
9775 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
9776 // S U U B B R R O O U U T I N N N E
9777 // S S U U B B R R O O U U T I N NN E
9778 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
9779
9780 // SSSSS DDDDDD RRRRRR III V V 33333
9781 // S S D D R R I V V 3 3
9782 // S D D R R I V V 3
9783 // SSSSS D D RRRRRR I V V 33333
9784 // S D D R R I V V 3
9785 // S S D D R R I V V 3 3
9786 // SSSSS DDDDDD R R III V 33333
9787
9788
9789 // VIF THU 20 NOV 2025 22:21:16 ** SDRIV3 ** DIAGNOSTICS PAGE 00260
9790
9791
9792 // VIF THU 20 NOV 2025 22:21:16 ** SDRIV3 ** GENERATED CODE PAGE 00261
9793
9794 int_4 _sdriv3 (int_4 _p_ n_, real_4 _p_ t_, real_4 _p_ y_, int_4 (*_f)(), int_4 _p_ nstate_, real_4 _p_ tout_, int_4
9795 _p_ ntask_, int_4 _p_ nroot_, real_4 _p_ eps_, real_4 _p_ ewt_, int_4 _p_ ierror_, int_4 _p_ mint_, int_4 _p_ miter_,
9796 int_4 _p_ impl_, int_4 _p_ ml_, int_4 _p_ mu_, int_4 _p_ mxord_, real_4 _p_ hmax_, real_4 _p_ work_, int_4 _p_ lenw_,
9797 int_4 _p_ iwork_, int_4 _p_ leniw_, int_4 (*_jacobn)(), int_4 (*_fa)(), int_4 _p_ nde_, int_4 _p_ mxstep_, real_4
9798 (*_g)(), int_4 (*_users)(), int_4 _p_ ierflg_)
9799 { // ** body not listed **
11667 }
11668
11669 // VIF THU 20 NOV 2025 22:21:16 ** SDSCL ** SDSCL PAGE 00298
11670
11671 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
11672 // S S U U B B R R O O U U T I NN N E
11673 // S U U B B R R O O U U T I N N N E
11674 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
11675 // S U U B B R R O O U U T I N N N E
11676 // S S U U B B R R O O U U T I N NN E
11677 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
11678
11679 // SSSSS DDDDDD SSSSS CCCCC L
11680 // S S D D S S C C L
11681 // S D D S C L
11682 // SSSSS D D SSSSS C L
11683 // S D D S C L
11684 // S S D D S S C C L
11685 // SSSSS DDDDDD SSSSS CCCCC LLLLLLL
11686
11687
11688 // VIF THU 20 NOV 2025 22:21:16 ** SDSCL ** DIAGNOSTICS PAGE 00299
11689
11690
11691 // VIF THU 20 NOV 2025 22:21:16 ** SDSCL ** GENERATED CODE PAGE 00300
11692
11693 int_4 _sdscl (real_4 _p_ hmax_, int_4 _p_ n_, int_4 _p_ nq_, real_4 _p_ rmax_, real_4 _p_ h_, real_4 _p_ rc_, real_4
11694 _p_ rh_, real_4 _p_ yh_)
11695 { // ** body not listed **
11716 }
11717
11718 // VIF THU 20 NOV 2025 22:21:16 ** SDSTP ** SDSTP PAGE 00301
11719
11720 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
11721 // S S U U B B R R O O U U T I NN N E
11722 // S U U B B R R O O U U T I N N N E
11723 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
11724 // S U U B B R R O O U U T I N N N E
11725 // S S U U B B R R O O U U T I N NN E
11726 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
11727
11728 // SSSSS DDDDDD SSSSS TTTTTTT PPPPPP
11729 // S S D D S S T P P
11730 // S D D S T P P
11731 // SSSSS D D SSSSS T PPPPPP
11732 // S D D S T P
11733 // S S D D S S T P
11734 // SSSSS DDDDDD SSSSS T P
11735
11736
11737 // VIF THU 20 NOV 2025 22:21:16 ** SDSTP ** DIAGNOSTICS PAGE 00302
11738
11739
11740 // VIF THU 20 NOV 2025 22:21:16 ** SDSTP ** GENERATED CODE PAGE 00303
11741
11742 int_4 _sdstp (real_4 _p_ eps_, int_4 (*_f)(), real_4 (*_fa)(), real_4 _p_ hmax_, int_4 _p_ impl_, int_4 _p_ ierror_,
11743 int_4 (*_jacobn)(), int_4 _p_ matdim_, int_4 _p_ maxord_, int_4 _p_ mint_, int_4 _p_ miter_, int_4 _p_ ml_, int_4 _p_
11744 mu_, int_4 _p_ n_, int_4 _p_ nde_, real_4 _p_ ywt_, real_4 _p_ uround_, real_4 (*_users)(), real_4 _p_ avgh_, real_4
11745 _p_ avgord_, real_4 _p_ h_, real_4 _p_ hused_, int_4 _p_ jtask_, int_4 _p_ mntold_, int_4 _p_ mtrold_, int_4 _p_ nfe_,
11746 int_4 _p_ nje_, int_4 _p_ nqused_, int_4 _p_ nstep_, real_4 _p_ t_, real_4 _p_ y_, real_4 _p_ yh_, real_4 _p_ a_,
11747 logical_4 _p_ convrg_, real_4 _p_ dfdy_, real_4 _p_ el_, real_4 _p_ fac_, real_4 _p_ hold_, int_4 _p_ ipvt_, int_4 _p_
11748 jstate_, int_4 _p_ jstepl_, int_4 _p_ nq_, int_4 _p_ nwait_, real_4 _p_ rc_, real_4 _p_ rmax_, real_4 _p_ save1_,
11749 real_4 _p_ save2_, real_4 _p_ tq_, real_4 _p_ trend_, int_4 _p_ iswflg_, int_4 _p_ mtrsv_, int_4 _p_ mxrdsv_)
11750 { // ** body not listed **
12174 }
12175
12176 // VIF THU 20 NOV 2025 22:21:16 ** SDZRO ** SDZRO PAGE 00312
12177
12178 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
12179 // S S U U B B R R O O U U T I NN N E
12180 // S U U B B R R O O U U T I N N N E
12181 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
12182 // S U U B B R R O O U U T I N N N E
12183 // S S U U B B R R O O U U T I N NN E
12184 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
12185
12186 // SSSSS DDDDDD ZZZZZZZ RRRRRR OOOOO
12187 // S S D D Z R R O O
12188 // S D D Z R R O O
12189 // SSSSS D D Z RRRRRR O O
12190 // S D D Z R R O O
12191 // S S D D * R R O O
12192 // SSSSS DDDDDD ZZZZZZZ R R OOOOO
12193
12194
12195 // VIF THU 20 NOV 2025 22:21:16 ** SDZRO ** DIAGNOSTICS PAGE 00313
12196
12197
12198 // VIF THU 20 NOV 2025 22:21:16 ** SDZRO ** GENERATED CODE PAGE 00314
12199
12200 int_4 _sdzro (real_4 _p_ ae_, real_4 (*_f)(), real_4 _p_ h_, int_4 _p_ n_, int_4 _p_ nq_, int_4 _p_ iroot_, real_4 _p_
12201 re_, real_4 _p_ t_, real_4 _p_ yh_, real_4 _p_ uround_, real_4 _p_ b_, real_4 _p_ c_, real_4 _p_ fb_, real_4 _p_ fc_,
12202 real_4 _p_ y_)
12203 { // ** body not listed **
12277 }
|
© 2002-2025 J.M. van der Veer (jmvdveer@xs4all.nl)
|
