mathlib-burkardt.c
1 //! @file mathlib-burkardt.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 BURKARDT
24
25 // Compiled from Fortran source code by VIF.
26
27 // This library contains selected routines from
28 //
29 // https://people.sc.fsu.edu/~jburkardt/f77_src/f77_src.html
30 //
31 // All these routines are open-source software.
32
33 // VIF THU 20 NOV 2025 22:19:13 ** MARCEL ** BURKARDT PAGE 00001
34
35
36
37 // M M A RRRRRR CCCCC EEEEEEE L
38 // MM MM A A R R C C E L
39 // M M M M A A R R C E L
40 // M M M A A RRRRRR C EEEEE L
41 // M M AAAAAAA R R C E L
42 // M M A A R R C C E L
43 // M M A A R R CCCCC EEEEEEE LLLLLLL
44
45 // BBBBBB U U RRRRRR K K A RRRRRR DDDDDD TTTTTTT
46 // B B U U R R K K A A R R D D T
47 // B B U U R R K K A A R R D D T
48 // BBBBBB U U RRRRRR KKK A A RRRRRR D D T
49 // B B U U R R K K AAAAAAA R R D D T
50 // B B U U R R K K A A R R D D T
51 // BBBBBB UUUUU R R K K A A R R DDDDDD T
52
53
54
55
56 // VIF THU 20 NOV 2025 22:19:13 ** GLOBAL SCOPE ** DIAGNOSTICS PAGE 00002
57
58 // ** linker ** object size 165232 bytes
59 // ** statistics ** 30 subprograms, no errors, no warnings
60
61
62 // VIF THU 20 NOV 2025 22:19:13 ** GLOBAL SCOPE ** JOB CONTROL PAGE 00003
63
64
65 // Line JCL *...*....1....|....2....|....3....|....4....|....5....|....6....|....7..*.|....8
66
67
68
69 // VIF THU 20 NOV 2025 22:19:13 ** GLOBAL SCOPE ** DEFINITIONS PAGE 00004
70
71 /*
72 Generated by VIF - experimental VIntage Fortran compiler.
73 VIF release 1.4.1
74 */
75
76 #if defined (__GNUC__)
77 #pragma GCC diagnostic ignored "-Wimplicit-function-declaration"
78 #pragma GCC diagnostic ignored "-Wincompatible-pointer-types"
79 #if (__GNUC__ >= 14)
80 #pragma GCC diagnostic ignored "-Wdeclaration-missing-parameter-type"
81 #pragma GCC diagnostic ignored "-Wimplicit-int"
82 #pragma GCC diagnostic ignored "-Wint-conversion"
83 #pragma GCC diagnostic ignored "-Wreturn-mismatch"
84 #endif
85 #else
86 #error VIF requires GCC
87 #endif
88
89 #include <vif.h>
90
91 static int_4 _km1 = -1, _k0 = 0, _k1 = 1;
92
93
94 #define _dc_0 "BOX_BEHNKEN range error"
95 #define _dc_1 " "
96 #define _dc_2 "DOOMSDAY_GREGORIAN - Fatal error!"
97 #define _dc_3 " Y <= 0."
98 #define _dc_4 "i4_modp: illegal divisor"
99 #define _dc_5 "Sunday "
100 #define _dc_6 "Monday "
101 #define _dc_7 "Tuesday "
102 #define _dc_8 "Wednesday"
103 #define _dc_9 "Thursday "
104 #define _dc_10 "Friday "
105 #define _dc_11 "Saturday "
106 #define _dc_12 "year_is_leap_gregorian: invalid year"
107
108
109
110 // VIF THU 20 NOV 2025 22:19:13 ** GLOBAL SCOPE ** TYPEDEFS PAGE 00005
111
112 static FORMAT *__fmt_a = NULL;
113 typedef char char_1[2];
114 typedef char char_15[16];
115 typedef char char_31[32];
116 typedef char char_63[64];
117
118
119 // VIF THU 20 NOV 2025 22:19:13 ** GLOBAL SCOPE ** FREQUENCY TABLE PAGE 00006
120
121 #define __ncalls 31
122 static CALLS __calls[__ncalls] = {
123 { // ** body not listed **"alngam2", 0}, // function
125 { // ** body not listed **"alogam", 0}, // function
127 { // ** body not listed **"betain", 0}, // function
129 { // ** body not listed **"box_behnken_size", 0}, // subroutine
131 { // ** body not listed **"cholesky", 0}, // subroutine
133 { // ** body not listed **"dlnorm", 0}, // real*8 function
135 { // ** body not listed **"gammad", 0}, // function
137 { // ** body not listed **"i4_wrap", 0}, // function
139 { // ** body not listed **"normal_01_cdf_values", 0}, // subroutine
141 { // ** body not listed **"nprob", 0}, // subroutine
143 { // ** body not listed **"ppchi2", 0}, // function
145 { // ** body not listed **"prncst", 0}, // real*8 function
147 { // ** body not listed **"syminv", 0}, // subroutine
149 { // ** body not listed **"tha", 0}, // function
151 { // ** body not listed **"weekday_values", 0}, // subroutine
153 { // ** body not listed **NULL, 0}
154 };
239 { // ** body not listed **
381 }
382
383
384 // VIF THU 20 NOV 2025 22:19:13 ** ALNORM ** ALNORM PAGE 00014
385
386 // FFFFFFF U U N N CCCCC TTTTTTT III OOOOO N N
387 // F U U NN N C C T I O O NN N
388 // F U U N N N C T I O O N N N
389 // FFFFF U U N N N C T I O O N N N
390 // F U U N N N C T I O O N N N
391 // F U U N NN C C T I O O N NN
392 // F UUUUU N N CCCCC T III OOOOO N N
393
394 // A L N N OOOOO RRRRRR M M
395 // A A L NN N O O R R MM MM
396 // A A L N N N O O R R M M M M
397 // A A L N N N O O RRRRRR M M M
398 // AAAAAAA L N N N O O R R M M
399 // A A L N NN O O R R M M
400 // A A LLLLLLL N N OOOOO R R M M
401
402
403 // VIF THU 20 NOV 2025 22:19:13 ** ALNORM ** DIAGNOSTICS PAGE 00015
404
405
406 // VIF THU 20 NOV 2025 22:19:13 ** ALNORM ** GENERATED CODE PAGE 00016
407
408 real_8 _alnorm (real_8 _p_ x_, logical_4 _p_ upper_)
409 { // ** body not listed **
444 }
445
446
447 // VIF THU 20 NOV 2025 22:19:13 ** ALOGAM ** ALOGAM PAGE 00017
448
449 // FFFFFFF U U N N CCCCC TTTTTTT III OOOOO N N
450 // F U U NN N C C T I O O NN N
451 // F U U N N N C T I O O N N N
452 // FFFFF U U N N N C T I O O N N N
453 // F U U N N N C T I O O N N N
454 // F U U N NN C C T I O O N NN
455 // F UUUUU N N CCCCC T III OOOOO N N
456
457 // A L OOOOO GGGGG A M M
458 // A A L O O G G A A MM MM
459 // A A L O O G A A M M M M
460 // A A L O O G GGGG A A M M M
461 // AAAAAAA L O O G G AAAAAAA M M
462 // A A L O O G G A A M M
463 // A A LLLLLLL OOOOO GGGGG A A M M
464
465
466 // VIF THU 20 NOV 2025 22:19:13 ** ALOGAM ** DIAGNOSTICS PAGE 00018
467
468
469 // VIF THU 20 NOV 2025 22:19:13 ** ALOGAM ** GENERATED CODE PAGE 00019
470
471 real_8 _alogam (real_8 _p_ x_, int_4 _p_ ifault_)
472 { // ** body not listed **
503 }
504
505
506 // VIF THU 20 NOV 2025 22:19:13 ** BETA_INC_VALUES ** BETA_INC_VALUES PAGE 00020
507
508 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
509 // S S U U B B R R O O U U T I NN N E
510 // S U U B B R R O O U U T I N N N E
511 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
512 // S U U B B R R O O U U T I N N N E
513 // S S U U B B R R O O U U T I N NN E
514 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
515
516 // BBBBBB EEEEEEE TTTTTTT A III N N CCCCC V V A L
517 // B B E T A A I NN N C C V V A A L
518 // B B E T A A I N N N C V V A A L
519 // BBBBBB EEEEE T A A I N N N C V V A A L
520 // B B E T AAAAAAA I N N N C V V AAAAAAA L
521 // B B E T A A I N NN C C V V A A L
522 // BBBBBB EEEEEEE T A A ******* III N N CCCCC ******* V A A LLLLLLL
523
524
525 // VIF THU 20 NOV 2025 22:19:13 ** BETA_INC_VALUES ** DIAGNOSTICS PAGE 00021
526
527
528 // VIF THU 20 NOV 2025 22:19:13 ** BETA_INC_VALUES ** GENERATED CODE PAGE 00022
529
530 int_4 _beta_inc_values (int_4 _p_ n_data_, real_8 _p_ a_, real_8 _p_ b_, real_8 _p_ x_, real_8 _p_ fx_)
531 { // ** body not listed **
782 }
783
784 // VIF THU 20 NOV 2025 22:19:13 ** BETAIN ** BETAIN PAGE 00027
785
786 // FFFFFFF U U N N CCCCC TTTTTTT III OOOOO N N
787 // F U U NN N C C T I O O NN N
788 // F U U N N N C T I O O N N N
789 // FFFFF U U N N N C T I O O N N N
790 // F U U N N N C T I O O N N N
791 // F U U N NN C C T I O O N NN
792 // F UUUUU N N CCCCC T III OOOOO N N
793
794 // BBBBBB EEEEEEE TTTTTTT A III N N
795 // B B E T A A I NN N
796 // B B E T A A I N N N
797 // BBBBBB EEEEE T A A I N N N
798 // B B E T AAAAAAA I N N N
799 // B B E T A A I N NN
800 // BBBBBB EEEEEEE T A A III N N
801
802
803 // VIF THU 20 NOV 2025 22:19:13 ** BETAIN ** DIAGNOSTICS PAGE 00028
804
805
806 // VIF THU 20 NOV 2025 22:19:13 ** BETAIN ** GENERATED CODE PAGE 00029
807
808 real_8 _betain (real_8 _p_ x_, real_8 _p_ p_, real_8 _p_ q_, real_8 _p_ beta_, int_4 _p_ ifault_)
809 { // ** body not listed **
880 }
881
882
883 // VIF THU 20 NOV 2025 22:19:13 ** BOX_BEHNKEN ** BOX_BEHNKEN PAGE 00031
884
885 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
886 // S S U U B B R R O O U U T I NN N E
887 // S U U B B R R O O U U T I N N N E
888 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
889 // S U U B B R R O O U U T I N N N E
890 // S S U U B B R R O O U U T I N NN E
891 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
892
893 // BBBBBB OOOOO X X BBBBBB EEEEEEE H H N N K K EEEEEEE N N
894 // B B O O X X B B E H H NN N K K E NN N
895 // B B O O X X B B E H H N N N K K E N N N
896 // BBBBBB O O X BBBBBB EEEEE HHHHHHH N N N KKK EEEEE N N N
897 // B B O O X X B B E H H N N N K K E N N N
898 // B B O O X X B B E H H N NN K K E N NN
899 // BBBBBB OOOOO X X ******* BBBBBB EEEEEEE H H N N K K EEEEEEE N N
900
901
902 // VIF THU 20 NOV 2025 22:19:13 ** BOX_BEHNKEN ** DIAGNOSTICS PAGE 00032
903
904
905 // VIF THU 20 NOV 2025 22:19:13 ** BOX_BEHNKEN ** GENERATED CODE PAGE 00033
906
907 int_4 _box_behnken (int_4 _p_ dim_num_, int_4 _p_ x_num_, real_8 _p_ range_, real_8 _p_ x_)
908 { // ** body not listed **
952 }
953
954 // VIF THU 20 NOV 2025 22:19:13 ** BOX_BEHNKEN_SIZE ** BOX_BEHNKEN_SIZE PAGE 00034
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 // BBBBBB OOOOO X X BBBBBB EEEEEEE H H N N K K EEEEEEE N N
965 // B B O O X X B B E H H NN N K K E NN N
966 // B B O O X X B B E H H N N N K K E N N N
967 // BBBBBB O O X BBBBBB EEEEE HHHHHHH N N N KKK EEEEE N N N
968 // B B O O X X B B E H H N N N K K E N N N
969 // B B O O X X B B E H H N NN K K E N NN
970 // BBBBBB OOOOO X X ******* BBBBBB EEEEEEE H H N N K K EEEEEEE N N *******
971
972
973 // VIF THU 20 NOV 2025 22:19:13 ** BOX_BEHNKEN_SIZE ** DIAGNOSTICS PAGE 00035
974
975
976 // VIF THU 20 NOV 2025 22:19:13 ** BOX_BEHNKEN_SIZE ** GENERATED CODE PAGE 00036
977
978 int_4 _box_behnken_size (int_4 _p_ dim_num_, int_4 _p_ x_num_)
979 { // ** body not listed **
988 }
989
990 // VIF THU 20 NOV 2025 22:19:13 ** CHI_SQUARE_CDF_VALUES ** CHI_SQUARE_CDF_VALUES PAGE 00037
991
992 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
993 // S S U U B B R R O O U U T I NN N E
994 // S U U B B R R O O U U T I N N N E
995 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
996 // S U U B B R R O O U U T I N N N E
997 // S S U U B B R R O O U U T I N NN E
998 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
999
1000 // CCCCC H H III SSSSS QQQQQ U U A RRRRRR EEEEEEE CCCCC
1001 // C C H H I S S Q Q U U A A R R E C C
1002 // C H H I S Q Q U U A A R R E C
1003 // C HHHHHHH I SSSSS Q Q U U A A RRRRRR EEEEE C
1004 // C H H I S Q Q Q U U AAAAAAA R R E C
1005 // C C H H I S S Q Q U U A A R R E C C
1006 // CCCCC H H III ******* SSSSS QQQQ Q UUUUU A A R R EEEEEEE ******* CCCCC
1007
1008
1009 // VIF THU 20 NOV 2025 22:19:13 ** CHI_SQUARE_CDF_VALUES ** DIAGNOSTICS PAGE 00038
1010
1011
1012 // VIF THU 20 NOV 2025 22:19:13 ** CHI_SQUARE_CDF_VALUES ** GENERATED CODE PAGE 00039
1013
1014 int_4 _chi_square_cdf_values (int_4 _p_ n_data_, int_4 _p_ a_, real_8 _p_ x_, real_8 _p_ fx_)
1015 { // ** body not listed **
1143 }
1144
1145 // VIF THU 20 NOV 2025 22:19:13 ** CHOLESKY ** CHOLESKY PAGE 00042
1146
1147 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
1148 // S S U U B B R R O O U U T I NN N E
1149 // S U U B B R R O O U U T I N N N E
1150 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
1151 // S U U B B R R O O U U T I N N N E
1152 // S S U U B B R R O O U U T I N NN E
1153 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
1154
1155 // CCCCC H H OOOOO L EEEEEEE SSSSS K K Y Y
1156 // C C H H O O L E S S K K Y Y
1157 // C H H O O L E S K K Y Y
1158 // C HHHHHHH O O L EEEEE SSSSS KKK Y
1159 // C H H O O L E S K K Y
1160 // C C H H O O L E S S K K Y
1161 // CCCCC H H OOOOO LLLLLLL EEEEEEE SSSSS K K Y
1162
1163
1164 // VIF THU 20 NOV 2025 22:19:13 ** CHOLESKY ** DIAGNOSTICS PAGE 00043
1165
1166
1167 // VIF THU 20 NOV 2025 22:19:13 ** CHOLESKY ** GENERATED CODE PAGE 00044
1168
1169 int_4 _cholesky (real_8 _p_ a_, int_4 _p_ n_, int_4 _p_ nn_, real_8 _p_ u_, int_4 _p_ nullty_, int_4 _p_ ifault_)
1170 { // ** body not listed **
1235 }
1236
1237 // VIF THU 20 NOV 2025 22:19:13 ** CLUSTR ** CLUSTR PAGE 00046
1238
1239 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
1240 // S S U U B B R R O O U U T I NN N E
1241 // S U U B B R R O O U U T I N N N E
1242 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
1243 // S U U B B R R O O U U T I N N N E
1244 // S S U U B B R R O O U U T I N NN E
1245 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
1246
1247 // CCCCC L U U SSSSS TTTTTTT RRRRRR
1248 // C C L U U S S T R R
1249 // C L U U S T R R
1250 // C L U U SSSSS T RRRRRR
1251 // C L U U S T R R
1252 // C C L U U S S T R R
1253 // CCCCC LLLLLLL UUUUU SSSSS T R R
1254
1255
1256 // VIF THU 20 NOV 2025 22:19:13 ** CLUSTR ** DIAGNOSTICS PAGE 00047
1257
1258
1259 // VIF THU 20 NOV 2025 22:19:13 ** CLUSTR ** GENERATED CODE PAGE 00048
1260
1261 int_4 _clustr (real_8 _p_ x_, real_8 _p_ d_, real_8 _p_ dev_, int_4 _p_ b_, real_8 _p_ f_, int_4 _p_ e_, int_4 _p_ i_,
1262 int_4 _p_ j_, int_4 _p_ n_, int_4 _p_ nz_, int_4 _p_ k_)
1263 { // ** body not listed **
1389 }
1390
1391 // VIF THU 20 NOV 2025 22:19:13 ** DLNORM ** DLNORM PAGE 00051
1392
1393 // RRRRRR EEEEEEE A L 88888
1394 // R R E A A L * * 8 8
1395 // R R E A A L * * 8 8
1396 // RRRRRR EEEEE A A L ******* 88888
1397 // R R E AAAAAAA L * * 8 8
1398 // R R E A A L * * 8 8
1399 // R R EEEEEEE A A LLLLLLL 88888
1400
1401 // FFFFFFF U U N N CCCCC TTTTTTT III OOOOO N N
1402 // F U U NN N C C T I O O NN N
1403 // F U U N N N C T I O O N N N
1404 // FFFFF U U N N N C T I O O N N N
1405 // F U U N N N C T I O O N N N
1406 // F U U N NN C C T I O O N NN
1407 // F UUUUU N N CCCCC T III OOOOO N N
1408
1409 // DDDDDD L N N OOOOO RRRRRR M M
1410 // D D L NN N O O R R MM MM
1411 // D D L N N N O O R R M M M M
1412 // D D L N N N O O RRRRRR M M M
1413 // D D L N N N O O R R M M
1414 // D D L N NN O O R R M M
1415 // DDDDDD LLLLLLL N N OOOOO R R M M
1416
1417
1418 // VIF THU 20 NOV 2025 22:19:13 ** DLNORM ** DIAGNOSTICS PAGE 00052
1419
1420
1421 // VIF THU 20 NOV 2025 22:19:13 ** DLNORM ** GENERATED CODE PAGE 00053
1422
1423 real_8 _dlnorm (real_8 _p_ x_, logical_4 _p_ upper_)
1424 { // ** body not listed **
1459 }
1460
1461 // VIF THU 20 NOV 2025 22:19:13 ** DOOMSDAY_GREGORIAN ** DOOMSDAY_GREGORIAN PAGE 00054
1462
1463 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
1464 // S S U U B B R R O O U U T I NN N E
1465 // S U U B B R R O O U U T I N N N E
1466 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
1467 // S U U B B R R O O U U T I N N N E
1468 // S S U U B B R R O O U U T I N NN E
1469 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
1470
1471 // DDDDDD OOOOO OOOOO M M SSSSS DDDDDD A Y Y GGGGG RRRRRR EEEEEEE
1472 // D D O O O O MM MM S S D D A A Y Y G G R R E
1473 // D D O O O O M M M M S D D A A Y Y G R R E
1474 // D D O O O O M M M SSSSS D D A A Y G GGGG RRRRRR EEEEE
1475 // D D O O O O M M S D D AAAAAAA Y G G R R E
1476 // D D O O O O M M S S D D A A Y G G R R E
1477 // DDDDDD OOOOO OOOOO M M SSSSS DDDDDD A A Y ******* GGGGG R R EEEEEEE
1478
1479
1480 // VIF THU 20 NOV 2025 22:19:13 ** DOOMSDAY_GREGORIAN ** DIAGNOSTICS PAGE 00055
1481
1482
1483 // VIF THU 20 NOV 2025 22:19:13 ** DOOMSDAY_GREGORIAN ** GENERATED CODE PAGE 00056
1484
1485 int_4 _doomsday_gregorian (int_4 _p_ y_, int_4 _p_ m_, int_4 _p_ d_, int_4 _p_ w_)
1486 { // ** body not listed **
1664 }
1665
1666 // VIF THU 20 NOV 2025 22:19:13 ** GAMMAD ** GAMMAD PAGE 00060
1667
1668 // FFFFFFF U U N N CCCCC TTTTTTT III OOOOO N N
1669 // F U U NN N C C T I O O NN N
1670 // F U U N N N C T I O O N N N
1671 // FFFFF U U N N N C T I O O N N N
1672 // F U U N N N C T I O O N N N
1673 // F U U N NN C C T I O O N NN
1674 // F UUUUU N N CCCCC T III OOOOO N N
1675
1676 // GGGGG A M M M M A DDDDDD
1677 // G G A A MM MM MM MM A A D D
1678 // G A A M M M M M M M M A A D D
1679 // G GGGG A A M M M M M M A A D D
1680 // G G AAAAAAA M M M M AAAAAAA D D
1681 // G G A A M M M M A A D D
1682 // GGGGG A A M M M M A A DDDDDD
1683
1684
1685 // VIF THU 20 NOV 2025 22:19:13 ** GAMMAD ** DIAGNOSTICS PAGE 00061
1686
1687
1688 // VIF THU 20 NOV 2025 22:19:13 ** GAMMAD ** GENERATED CODE PAGE 00062
1689
1690 real_8 _gammad (real_8 _p_ x_, real_8 _p_ p_, int_4 _p_ ifault_)
1691 { // ** body not listed **
1790 }
1791
1792 // VIF THU 20 NOV 2025 22:19:13 ** GAMMAD ** GENERATED CODE PAGE 00064
1793
1794
1795 // VIF THU 20 NOV 2025 22:19:13 ** I4_MODP ** I4_MODP PAGE 00065
1796
1797 // FFFFFFF U U N N CCCCC TTTTTTT III OOOOO N N
1798 // F U U NN N C C T I O O NN N
1799 // F U U N N N C T I O O N N N
1800 // FFFFF U U N N N C T I O O N N N
1801 // F U U N N N C T I O O N N N
1802 // F U U N NN C C T I O O N NN
1803 // F UUUUU N N CCCCC T III OOOOO N N
1804
1805 // III 4 M M OOOOO DDDDDD PPPPPP
1806 // I 4 4 MM MM O O D D P P
1807 // I 4 4 M M M M O O D D P P
1808 // I 4444444 M M M O O D D PPPPPP
1809 // I 4 M M O O D D P
1810 // I 4 M M O O D D P
1811 // III 4 ******* M M OOOOO DDDDDD P
1812
1813
1814 // VIF THU 20 NOV 2025 22:19:13 ** I4_MODP ** DIAGNOSTICS PAGE 00066
1815
1816
1817 // VIF THU 20 NOV 2025 22:19:13 ** I4_MODP ** GENERATED CODE PAGE 00067
1818
1819 int_4 _i4_modp (int_4 _p_ i_, int_4 _p_ j_)
1820 { // ** body not listed **
1833 }
1834
1835
1836 // VIF THU 20 NOV 2025 22:19:13 ** I4_WRAP ** I4_WRAP PAGE 00068
1837
1838 // FFFFFFF U U N N CCCCC TTTTTTT III OOOOO N N
1839 // F U U NN N C C T I O O NN N
1840 // F U U N N N C T I O O N N N
1841 // FFFFF U U N N N C T I O O N N N
1842 // F U U N N N C T I O O N N N
1843 // F U U N NN C C T I O O N NN
1844 // F UUUUU N N CCCCC T III OOOOO N N
1845
1846 // III 4 W W RRRRRR A PPPPPP
1847 // I 4 4 W W R R A A P P
1848 // I 4 4 W W R R A A P P
1849 // I 4444444 W W W RRRRRR A A PPPPPP
1850 // I 4 W W W R R AAAAAAA P
1851 // I 4 W W W R R A A P
1852 // III 4 ******* WW WW R R A A P
1853
1854
1855 // VIF THU 20 NOV 2025 22:19:13 ** I4_WRAP ** DIAGNOSTICS PAGE 00069
1856
1857
1858 // VIF THU 20 NOV 2025 22:19:13 ** I4_WRAP ** GENERATED CODE PAGE 00070
1859
1860 int_4 _i4_wrap (int_4 _p_ ival_, int_4 _p_ ilo_, int_4 _p_ ihi_)
1861 { // ** body not listed **
1877 }
1878
1879
1880 // VIF THU 20 NOV 2025 22:19:13 ** NELMIN ** NELMIN PAGE 00071
1881
1882 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
1883 // S S U U B B R R O O U U T I NN N E
1884 // S U U B B R R O O U U T I N N N E
1885 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
1886 // S U U B B R R O O U U T I N N N E
1887 // S S U U B B R R O O U U T I N NN E
1888 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
1889
1890 // N N EEEEEEE L M M III N N
1891 // NN N E L MM MM I NN N
1892 // N N N E L M M M M I N N N
1893 // N N N EEEEE L M M M I N N N
1894 // N N N E L M M I N N N
1895 // N NN E L M M I N NN
1896 // N N EEEEEEE LLLLLLL M M III N N
1897
1898
1899 // VIF THU 20 NOV 2025 22:19:13 ** NELMIN ** DIAGNOSTICS PAGE 00072
1900
1901
1902 // VIF THU 20 NOV 2025 22:19:13 ** NELMIN ** GENERATED CODE PAGE 00073
1903
1904 int_4 _nelmin (real_8 (*_fn)(), int_4 _p_ n_, real_8 _p_ start_, real_8 _p_ xmin_, real_8 _p_ ynewlo_, real_8 _p_
1905 reqmin_, real_8 _p_ step_, int_4 _p_ konvge_, int_4 _p_ kcount_, int_4 _p_ icount_, int_4 _p_ numres_, int_4 _p_
1906 ifault_)
1907 { // ** body not listed **
2140 }
2141
2142 // VIF THU 20 NOV 2025 22:19:13 ** NORMAL_01_CDF_VALUES ** NORMAL_01_CDF_VALUES PAGE 00078
2143
2144 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
2145 // S S U U B B R R O O U U T I NN N E
2146 // S U U B B R R O O U U T I N N N E
2147 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
2148 // S U U B B R R O O U U T I N N N E
2149 // S S U U B B R R O O U U T I N NN E
2150 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
2151
2152 // N N OOOOO RRRRRR M M A L 000 1 CCCCC DDDDDD
2153 // NN N O O R R MM MM A A L 0 0 11 C C D D
2154 // N N N O O R R M M M M A A L 0 0 1 1 C D D
2155 // N N N O O RRRRRR M M M A A L 0 0 1 C D D
2156 // N N N O O R R M M AAAAAAA L 0 0 1 C D D
2157 // N NN O O R R M M A A L 0 0 1 C C D D
2158 // N N OOOOO R R M M A A LLLLLLL ******* 000 11111 ******* CCCCC DDDDDD
2159
2160
2161 // VIF THU 20 NOV 2025 22:19:13 ** NORMAL_01_CDF_VALUES ** DIAGNOSTICS PAGE 00079
2162
2163
2164 // VIF THU 20 NOV 2025 22:19:13 ** NORMAL_01_CDF_VALUES ** GENERATED CODE PAGE 00080
2165
2166 int_4 _normal_01_cdf_values (int_4 _p_ n_data_, real_8 _p_ x_, real_8 _p_ fx_)
2167 { // ** body not listed **
2248 }
2249
2250 // VIF THU 20 NOV 2025 22:19:13 ** NORMP ** NORMP PAGE 00082
2251
2252 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
2253 // S S U U B B R R O O U U T I NN N E
2254 // S U U B B R R O O U U T I N N N E
2255 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
2256 // S U U B B R R O O U U T I N N N E
2257 // S S U U B B R R O O U U T I N NN E
2258 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
2259
2260 // N N OOOOO RRRRRR M M PPPPPP
2261 // NN N O O R R MM MM P P
2262 // N N N O O R R M M M M P P
2263 // N N N O O RRRRRR M M M PPPPPP
2264 // N N N O O R R M M P
2265 // N NN O O R R M M P
2266 // N N OOOOO R R M M P
2267
2268
2269 // VIF THU 20 NOV 2025 22:19:13 ** NORMP ** DIAGNOSTICS PAGE 00083
2270
2271
2272 // VIF THU 20 NOV 2025 22:19:13 ** NORMP ** GENERATED CODE PAGE 00084
2273
2274 int_4 _normp (real_8 _p_ z_, real_8 _p_ p_, real_8 _p_ q_, real_8 _p_ pdf_)
2275 { // ** body not listed **
2304 }
2305
2306 // VIF THU 20 NOV 2025 22:19:13 ** NPROB ** NPROB PAGE 00085
2307
2308 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
2309 // S S U U B B R R O O U U T I NN N E
2310 // S U U B B R R O O U U T I N N N E
2311 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
2312 // S U U B B R R O O U U T I N N N E
2313 // S S U U B B R R O O U U T I N NN E
2314 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
2315
2316 // N N PPPPPP RRRRRR OOOOO BBBBBB
2317 // NN N P P R R O O B B
2318 // N N N P P R R O O B B
2319 // N N N PPPPPP RRRRRR O O BBBBBB
2320 // N N N P R R O O B B
2321 // N NN P R R O O B B
2322 // N N P R R OOOOO BBBBBB
2323
2324
2325 // VIF THU 20 NOV 2025 22:19:13 ** NPROB ** DIAGNOSTICS PAGE 00086
2326
2327
2328 // VIF THU 20 NOV 2025 22:19:13 ** NPROB ** GENERATED CODE PAGE 00087
2329
2330 int_4 _nprob (real_8 _p_ z_, real_8 _p_ p_, real_8 _p_ q_, real_8 _p_ pdf_)
2331 { // ** body not listed **
2360 }
2361
2362 // VIF THU 20 NOV 2025 22:19:13 ** OWEN_VALUES ** OWEN_VALUES PAGE 00088
2363
2364 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
2365 // S S U U B B R R O O U U T I NN N E
2366 // S U U B B R R O O U U T I N N N E
2367 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
2368 // S U U B B R R O O U U T I N N N E
2369 // S S U U B B R R O O U U T I N NN E
2370 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
2371
2372 // OOOOO W W EEEEEEE N N V V A L U U EEEEEEE SSSSS
2373 // O O W W E NN N V V A A L U U E S S
2374 // O O W W E N N N V V A A L U U E S
2375 // O O W W W EEEEE N N N V V A A L U U EEEEE SSSSS
2376 // O O W W W E N N N V V AAAAAAA L U U E S
2377 // O O W W W E N NN V V A A L U U E S S
2378 // OOOOO WW WW EEEEEEE N N ******* V A A LLLLLLL UUUUU EEEEEEE SSSSS
2379
2380
2381 // VIF THU 20 NOV 2025 22:19:13 ** OWEN_VALUES ** DIAGNOSTICS PAGE 00089
2382
2383
2384 // VIF THU 20 NOV 2025 22:19:13 ** OWEN_VALUES ** GENERATED CODE PAGE 00090
2385
2386 int_4 _owen_values (int_4 _p_ n_data_, real_8 _p_ h_, real_8 _p_ a_, real_8 _p_ t_)
2387 { // ** body not listed **
2535 }
2536
2537 // VIF THU 20 NOV 2025 22:19:13 ** PPCHI2 ** PPCHI2 PAGE 00093
2538
2539 // FFFFFFF U U N N CCCCC TTTTTTT III OOOOO N N
2540 // F U U NN N C C T I O O NN N
2541 // F U U N N N C T I O O N N N
2542 // FFFFF U U N N N C T I O O N N N
2543 // F U U N N N C T I O O N N N
2544 // F U U N NN C C T I O O N NN
2545 // F UUUUU N N CCCCC T III OOOOO N N
2546
2547 // PPPPPP PPPPPP CCCCC H H III 22222
2548 // P P P P C C H H I 2 2
2549 // P P P P C H H I 2
2550 // PPPPPP PPPPPP C HHHHHHH I 22222
2551 // P P C H H I 2
2552 // P P C C H H I 2
2553 // P P CCCCC H H III 2222222
2554
2555
2556 // VIF THU 20 NOV 2025 22:19:13 ** PPCHI2 ** DIAGNOSTICS PAGE 00094
2557
2558
2559 // VIF THU 20 NOV 2025 22:19:13 ** PPCHI2 ** GENERATED CODE PAGE 00095
2560
2561 real_8 _ppchi2 (real_8 _p_ p_, real_8 _p_ v_, int_4 _p_ ifault_)
2562 { // ** body not listed **
2648 }
2649
2650
2651 // VIF THU 20 NOV 2025 22:19:13 ** PPND ** PPND PAGE 00097
2652
2653 // FFFFFFF U U N N CCCCC TTTTTTT III OOOOO N N
2654 // F U U NN N C C T I O O NN N
2655 // F U U N N N C T I O O N N N
2656 // FFFFF U U N N N C T I O O N N N
2657 // F U U N N N C T I O O N N N
2658 // F U U N NN C C T I O O N NN
2659 // F UUUUU N N CCCCC T III OOOOO N N
2660
2661 // PPPPPP PPPPPP N N DDDDDD
2662 // P P P P NN N D D
2663 // P P P P N N N D D
2664 // PPPPPP PPPPPP N N N D D
2665 // P P N N N D D
2666 // P P N NN D D
2667 // P P N N DDDDDD
2668
2669
2670 // VIF THU 20 NOV 2025 22:19:13 ** PPND ** DIAGNOSTICS PAGE 00098
2671
2672
2673 // VIF THU 20 NOV 2025 22:19:13 ** PPND ** GENERATED CODE PAGE 00099
2674
2675 real_8 _ppnd (real_8 _p_ p_, int_4 _p_ ifault_)
2676 { // ** body not listed **
2705 }
2706
2707
2708 // VIF THU 20 NOV 2025 22:19:13 ** PRNCST ** PRNCST PAGE 00100
2709
2710 // RRRRRR EEEEEEE A L 88888
2711 // R R E A A L * * 8 8
2712 // R R E A A L * * 8 8
2713 // RRRRRR EEEEE A A L ******* 88888
2714 // R R E AAAAAAA L * * 8 8
2715 // R R E A A L * * 8 8
2716 // R R EEEEEEE A A LLLLLLL 88888
2717
2718 // FFFFFFF U U N N CCCCC TTTTTTT III OOOOO N N
2719 // F U U NN N C C T I O O NN N
2720 // F U U N N N C T I O O N N N
2721 // FFFFF U U N N N C T I O O N N N
2722 // F U U N N N C T I O O N N N
2723 // F U U N NN C C T I O O N NN
2724 // F UUUUU N N CCCCC T III OOOOO N N
2725
2726 // PPPPPP RRRRRR N N CCCCC SSSSS TTTTTTT
2727 // P P R R NN N C C S S T
2728 // P P R R N N N C S T
2729 // PPPPPP RRRRRR N N N C SSSSS T
2730 // P R R N N N C S T
2731 // P R R N NN C C S S T
2732 // P R R N N CCCCC SSSSS T
2733
2734
2735 // VIF THU 20 NOV 2025 22:19:13 ** PRNCST ** DIAGNOSTICS PAGE 00101
2736
2737
2738 // VIF THU 20 NOV 2025 22:19:13 ** PRNCST ** GENERATED CODE PAGE 00102
2739
2740 real_8 _prncst (real_8 _p_ st_, int_4 _p_ idf_, real_8 _p_ d_, int_4 _p_ ifault_)
2741 { // ** body not listed **
2811 }
2812
2813 // VIF THU 20 NOV 2025 22:19:13 ** STUDENT_NONCENTRAL_CDF_VALUES ** STUDENT_NONCENTRAL_CDF_VALUES PAGE 00104
2814
2815 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
2816 // S S U U B B R R O O U U T I NN N E
2817 // S U U B B R R O O U U T I N N N E
2818 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
2819 // S U U B B R R O O U U T I N N N E
2820 // S S U U B B R R O O U U T I N NN E
2821 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
2822
2823 // SSSSS TTTTTTT U U DDDDDD EEEEEEE N N TTTTTTT N N OOOOO N N CCCCC
2824 // S S T U U D D E NN N T NN N O O NN N C C
2825 // S T U U D D E N N N T N N N O O N N N C
2826 // SSSSS T U U D D EEEEE N N N T N N N O O N N N C
2827 // S T U U D D E N N N T N N N O O N N N C
2828 // S S T U U D D E N NN T N NN O O N NN C C
2829 // SSSSS T UUUUU DDDDDD EEEEEEE N N T ******* N N OOOOO N N CCCCC
2830
2831
2832 // VIF THU 20 NOV 2025 22:19:13 ** STUDENT_NONCENTRAL_CDF_VALUES ** DIAGNOSTICS PAGE 00105
2833
2834
2835 // VIF THU 20 NOV 2025 22:19:13 ** STUDENT_NONCENTRAL_CDF_VALUES ** GENERATED CODE PAGE 00106
2836
2837 int_4 _student_noncentral_cdf_values (int_4 _p_ n_data_, int_4 _p_ df_, real_8 _p_ lambda_, real_8 _p_ x_, real_8 _p_
2838 fx_)
2839 { // ** body not listed **
3041 }
3042
3043 // VIF THU 20 NOV 2025 22:19:13 ** SYMINV ** SYMINV PAGE 00110
3044
3045 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
3046 // S S U U B B R R O O U U T I NN N E
3047 // S U U B B R R O O U U T I N N N E
3048 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
3049 // S U U B B R R O O U U T I N N N E
3050 // S S U U B B R R O O U U T I N NN E
3051 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
3052
3053 // SSSSS Y Y M M III N N V V
3054 // S S Y Y MM MM I NN N V V
3055 // S Y Y M M M M I N N N V V
3056 // SSSSS Y M M M I N N N V V
3057 // S Y M M I N N N V V
3058 // S S Y M M I N NN V V
3059 // SSSSS Y M M III N N V
3060
3061
3062 // VIF THU 20 NOV 2025 22:19:13 ** SYMINV ** DIAGNOSTICS PAGE 00111
3063
3064
3065 // VIF THU 20 NOV 2025 22:19:13 ** SYMINV ** GENERATED CODE PAGE 00112
3066
3067 int_4 _syminv (real_8 _p_ a_, int_4 _p_ n_, real_8 _p_ c_, real_8 _p_ w_, int_4 _p_ nullty_, int_4 _p_ ifault_)
3068 { // ** body not listed **
3138 }
3139
3140 // VIF THU 20 NOV 2025 22:19:13 ** TFN ** TFN PAGE 00114
3141
3142 // FFFFFFF U U N N CCCCC TTTTTTT III OOOOO N N
3143 // F U U NN N C C T I O O NN N
3144 // F U U N N N C T I O O N N N
3145 // FFFFF U U N N N C T I O O N N N
3146 // F U U N N N C T I O O N N N
3147 // F U U N NN C C T I O O N NN
3148 // F UUUUU N N CCCCC T III OOOOO N N
3149
3150 // TTTTTTT FFFFFFF N N
3151 // T F NN N
3152 // T F N N N
3153 // T FFFFF N N N
3154 // T F N N N
3155 // T F N NN
3156 // T F N N
3157
3158
3159 // VIF THU 20 NOV 2025 22:19:13 ** TFN ** DIAGNOSTICS PAGE 00115
3160
3161
3162 // VIF THU 20 NOV 2025 22:19:13 ** TFN ** GENERATED CODE PAGE 00116
3163
3164 real_8 _tfn (real_8 _p_ x_, real_8 _p_ fx_)
3165 { // ** body not listed **
3249 }
3250
3251
3252 // VIF THU 20 NOV 2025 22:19:13 ** THA ** THA PAGE 00118
3253
3254 // FFFFFFF U U N N CCCCC TTTTTTT III OOOOO N N
3255 // F U U NN N C C T I O O NN N
3256 // F U U N N N C T I O O N N N
3257 // FFFFF U U N N N C T I O O N N N
3258 // F U U N N N C T I O O N N N
3259 // F U U N NN C C T I O O N NN
3260 // F UUUUU N N CCCCC T III OOOOO N N
3261
3262 // TTTTTTT H H A
3263 // T H H A A
3264 // T H H A A
3265 // T HHHHHHH A A
3266 // T H H AAAAAAA
3267 // T H H A A
3268 // T H H A A
3269
3270
3271 // VIF THU 20 NOV 2025 22:19:13 ** THA ** DIAGNOSTICS PAGE 00119
3272
3273
3274 // VIF THU 20 NOV 2025 22:19:13 ** THA ** GENERATED CODE PAGE 00120
3275
3276 real_8 _tha (real_8 _p_ h1_, real_8 _p_ h2_, real_8 _p_ a1_, real_8 _p_ a2_)
3277 { // ** body not listed **
3332 }
3333
3334
3335 // VIF THU 20 NOV 2025 22:19:13 ** WEEKDAY_TO_NAME_COMMON ** WEEKDAY_TO_NAME_COMMON PAGE 00122
3336
3337 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
3338 // S S U U B B R R O O U U T I NN N E
3339 // S U U B B R R O O U U T I N N N E
3340 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
3341 // S U U B B R R O O U U T I N N N E
3342 // S S U U B B R R O O U U T I N NN E
3343 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
3344
3345 // W W EEEEEEE EEEEEEE K K DDDDDD A Y Y TTTTTTT OOOOO N N
3346 // W W E E K K D D A A Y Y T O O NN N
3347 // W W E E K K D D A A Y Y T O O N N N
3348 // W W W EEEEE EEEEE KKK D D A A Y T O O N N N
3349 // W W W E E K K D D AAAAAAA Y T O O N N N
3350 // W W W E E K K D D A A Y T O O N NN
3351 // WW WW EEEEEEE EEEEEEE K K DDDDDD A A Y ******* T OOOOO ******* N N
3352
3353
3354 // VIF THU 20 NOV 2025 22:19:13 ** WEEKDAY_TO_NAME_COMMON ** DIAGNOSTICS PAGE 00123
3355
3356
3357 // VIF THU 20 NOV 2025 22:19:13 ** WEEKDAY_TO_NAME_COMMON ** GENERATED CODE PAGE 00124
3358
3359 int_4 _weekday_to_name_common (int_4 _p_ w_, char _p_ s_)
3360 { // ** body not listed **
3389 }
3390
3391 // VIF THU 20 NOV 2025 22:19:13 ** WEEKDAY_VALUES ** WEEKDAY_VALUES PAGE 00125
3392
3393 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
3394 // S S U U B B R R O O U U T I NN N E
3395 // S U U B B R R O O U U T I N N N E
3396 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
3397 // S U U B B R R O O U U T I N N N E
3398 // S S U U B B R R O O U U T I N NN E
3399 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
3400
3401 // W W EEEEEEE EEEEEEE K K DDDDDD A Y Y V V A L U U
3402 // W W E E K K D D A A Y Y V V A A L U U
3403 // W W E E K K D D A A Y Y V V A A L U U
3404 // W W W EEEEE EEEEE KKK D D A A Y V V A A L U U
3405 // W W W E E K K D D AAAAAAA Y V V AAAAAAA L U U
3406 // W W W E E K K D D A A Y V V A A L U U
3407 // WW WW EEEEEEE EEEEEEE K K DDDDDD A A Y ******* V A A LLLLLLL UUUUU
3408
3409
3410 // VIF THU 20 NOV 2025 22:19:13 ** WEEKDAY_VALUES ** DIAGNOSTICS PAGE 00126
3411
3412
3413 // VIF THU 20 NOV 2025 22:19:13 ** WEEKDAY_VALUES ** GENERATED CODE PAGE 00127
3414
3415 int_4 _weekday_values (int_4 _p_ n_data_, int_4 _p_ y_, int_4 _p_ m_, int_4 _p_ d_, int_4 _p_ w_)
3416 { // ** body not listed **
3635 }
3636
3637 // VIF THU 20 NOV 2025 22:19:13 ** YEAR_IS_LEAP_GREGORIAN ** YEAR_IS_LEAP_GREGORIAN PAGE 00132
3638
3639 // FFFFFFF U U N N CCCCC TTTTTTT III OOOOO N N
3640 // F U U NN N C C T I O O NN N
3641 // F U U N N N C T I O O N N N
3642 // FFFFF U U N N N C T I O O N N N
3643 // F U U N N N C T I O O N N N
3644 // F U U N NN C C T I O O N NN
3645 // F UUUUU N N CCCCC T III OOOOO N N
3646
3647 // Y Y EEEEEEE A RRRRRR III SSSSS L EEEEEEE A PPPPPP
3648 // Y Y E A A R R I S S L E A A P P
3649 // Y Y E A A R R I S L E A A P P
3650 // Y EEEEE A A RRRRRR I SSSSS L EEEEE A A PPPPPP
3651 // Y E AAAAAAA R R I S L E AAAAAAA P
3652 // Y E A A R R I S S L E A A P
3653 // Y EEEEEEE A A R R ******* III SSSSS ******* LLLLLLL EEEEEEE A A P
3654
3655
3656 // VIF THU 20 NOV 2025 22:19:13 ** YEAR_IS_LEAP_GREGORIAN ** DIAGNOSTICS PAGE 00133
3657
3658
3659 // VIF THU 20 NOV 2025 22:19:13 ** YEAR_IS_LEAP_GREGORIAN ** GENERATED CODE PAGE 00134
3660
3661 logical_4 _year_is_leap_gregorian (int_4 _p_ y_)
3662 { // ** body not listed **
3681 }
3682
|
© 2002-2025 J.M. van der Veer (jmvdveer@xs4all.nl)
|
