mathlib-blas-slatec.c
1 //! @file mathlib-blas-slatec.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 BLAS-SLATEC
24
25 // Compiled from Fortran source code by VIF.
26
27 // VIF THU 20 NOV 2025 22:19:13 ** MARCEL ** BLAS SLATEC PAGE 00001
28
29
30
31 // M M A RRRRRR CCCCC EEEEEEE L
32 // MM MM A A R R C C E L
33 // M M M M A A R R C E L
34 // M M M A A RRRRRR C EEEEE L
35 // M M AAAAAAA R R C E L
36 // M M A A R R C C E L
37 // M M A A R R CCCCC EEEEEEE LLLLLLL
38
39 // BBBBBB L A SSSSS SSSSS L A TTTTTTT EEEEEEE CCCCC
40 // B B L A A S S S S L A A T E C C
41 // B B L A A S S L A A T E C
42 // BBBBBB L A A SSSSS ***** SSSSS L A A T EEEEE C
43 // B B L AAAAAAA S S L AAAAAAA T E C
44 // B B L A A S S S S L A A T E C C
45 // BBBBBB LLLLLLL A A SSSSS SSSSS LLLLLLL A A T EEEEEEE CCCCC
46
47
48
49
50 // VIF THU 20 NOV 2025 22:19:13 ** GLOBAL SCOPE ** DIAGNOSTICS PAGE 00002
51
52 // ** linker ** object size 16696 bytes
53 // ** statistics ** 4 subprograms, no errors, no warnings
54
55
56 // VIF THU 20 NOV 2025 22:19:13 ** GLOBAL SCOPE ** JOB CONTROL PAGE 00003
57
58
59 // Line JCL *...*....1....|....2....|....3....|....4....|....5....|....6....|....7..*.|....8
60
61
62
63 // VIF THU 20 NOV 2025 22:19:13 ** GLOBAL SCOPE ** DEFINITIONS PAGE 00004
64
65 /*
66 Generated by VIF - experimental VIntage Fortran compiler.
67 VIF release 1.4.1
68 */
69
70 #if defined (__GNUC__)
71 #pragma GCC diagnostic ignored "-Wimplicit-function-declaration"
72 #pragma GCC diagnostic ignored "-Wincompatible-pointer-types"
73 #if (__GNUC__ >= 14)
74 #pragma GCC diagnostic ignored "-Wdeclaration-missing-parameter-type"
75 #pragma GCC diagnostic ignored "-Wimplicit-int"
76 #pragma GCC diagnostic ignored "-Wint-conversion"
77 #pragma GCC diagnostic ignored "-Wreturn-mismatch"
78 #endif
79 #else
80 #error VIF requires GCC
81 #endif
82
83 #include <vif.h>
84
85 static int_4 _km1 = -1, _k0 = 0, _k1 = 1;
86
87
88
89
90
91 // VIF THU 20 NOV 2025 22:19:13 ** GLOBAL SCOPE ** TYPEDEFS PAGE 00005
92
93 static FORMAT *__fmt_a = NULL;
94
95
96 // VIF THU 20 NOV 2025 22:19:13 ** GLOBAL SCOPE ** FREQUENCY TABLE PAGE 00006
97
98 #define __ncalls 5
99 static CALLS __calls[__ncalls] = {
100 { // ** body not listed **"cdcdot", 0}, // complex*8 function
102 { // ** body not listed **"dcopym", 0}, // subroutine
104 { // ** body not listed **NULL, 0}
105 };
169 { // ** body not listed **
200 }
201
202 // VIF THU 20 NOV 2025 22:19:13 ** DCDOT ** DCDOT PAGE 00012
203
204 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
205 // S S U U B B R R O O U U T I NN N E
206 // S U U B B R R O O U U T I N N N E
207 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
208 // S U U B B R R O O U U T I N N N E
209 // S S U U B B R R O O U U T I N NN E
210 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
211
212 // DDDDDD CCCCC DDDDDD OOOOO TTTTTTT
213 // D D C C D D O O T
214 // D D C D D O O T
215 // D D C D D O O T
216 // D D C D D O O T
217 // D D C C D D O O T
218 // DDDDDD CCCCC DDDDDD OOOOO T
219
220
221 // VIF THU 20 NOV 2025 22:19:13 ** DCDOT ** DIAGNOSTICS PAGE 00013
222
223
224 // VIF THU 20 NOV 2025 22:19:13 ** DCDOT ** GENERATED CODE PAGE 00014
225
226 int_4 _dcdot (int_4 _p_ n_, real_8 _p_ fm_, complex_8 _p_ cx_, int_4 _p_ incx_, complex_8 _p_ cy_, int_4 _p_ incy_,
227 real_8 _p_ dcr_, real_8 _p_ dci_)
228 { // ** body not listed **
257 }
258
259 // VIF THU 20 NOV 2025 22:19:13 ** DCOPYM ** DCOPYM PAGE 00015
260
261 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
262 // S S U U B B R R O O U U T I NN N E
263 // S U U B B R R O O U U T I N N N E
264 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
265 // S U U B B R R O O U U T I N N N E
266 // S S U U B B R R O O U U T I N NN E
267 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
268
269 // DDDDDD CCCCC OOOOO PPPPPP Y Y M M
270 // D D C C O O P P Y Y MM MM
271 // D D C O O P P Y Y M M M M
272 // D D C O O PPPPPP Y M M M
273 // D D C O O P Y M M
274 // D D C C O O P Y M M
275 // DDDDDD CCCCC OOOOO P Y M M
276
277
278 // VIF THU 20 NOV 2025 22:19:13 ** DCOPYM ** DIAGNOSTICS PAGE 00016
279
280
281 // VIF THU 20 NOV 2025 22:19:13 ** DCOPYM ** GENERATED CODE PAGE 00017
282
283 int_4 _dcopym (int_4 _p_ n_, real_8 _p_ dx_, int_4 _p_ incx_, real_8 _p_ dy_, int_4 _p_ incy_)
284 { // ** body not listed **
348 }
349
350 // VIF THU 20 NOV 2025 22:19:13 ** SCOPYM ** SCOPYM PAGE 00019
351
352 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
353 // S S U U B B R R O O U U T I NN N E
354 // S U U B B R R O O U U T I N N N E
355 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
356 // S U U B B R R O O U U T I N N N E
357 // S S U U B B R R O O U U T I N NN E
358 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
359
360 // SSSSS CCCCC OOOOO PPPPPP Y Y M M
361 // S S C C O O P P Y Y MM MM
362 // S C O O P P Y Y M M M M
363 // SSSSS C O O PPPPPP Y M M M
364 // S C O O P Y M M
365 // S S C C O O P Y M M
366 // SSSSS CCCCC OOOOO P Y M M
367
368
369 // VIF THU 20 NOV 2025 22:19:13 ** SCOPYM ** DIAGNOSTICS PAGE 00020
370
371
372 // VIF THU 20 NOV 2025 22:19:13 ** SCOPYM ** GENERATED CODE PAGE 00021
373
374 int_4 _scopym (int_4 _p_ n_, real_4 _p_ sx_, int_4 _p_ incx_, real_4 _p_ sy_, int_4 _p_ incy_)
375 { // ** body not listed **
439 }
|
© 2002-2025 J.M. van der Veer (jmvdveer@xs4all.nl)
|
