]>
Commit | Line | Data |
---|---|---|
a40bb4d3 | 1 | static char junk[] = "\n@(#)LIBF77 VERSION 20000929\n"; |
81fea2b1 JL |
2 | |
3 | /* | |
4 | */ | |
5 | ||
7b6a9399 | 6 | char __G77_LIBF77_VERSION__[] = "0.5.27 20010728 (experimental)"; |
81fea2b1 JL |
7 | |
8 | /* | |
9 | 2.00 11 June 1980. File version.c added to library. | |
10 | 2.01 31 May 1988. s_paus() flushes stderr; names of hl_* fixed | |
11 | [ d]erf[c ] added | |
12 | 8 Aug. 1989: #ifdefs for f2c -i2 added to s_cat.c | |
13 | 29 Nov. 1989: s_cmp returns long (for f2c) | |
14 | 30 Nov. 1989: arg types from f2c.h | |
15 | 12 Dec. 1989: s_rnge allows long names | |
16 | 19 Dec. 1989: getenv_ allows unsorted environment | |
17 | 28 Mar. 1990: add exit(0) to end of main() | |
18 | 2 Oct. 1990: test signal(...) == SIG_IGN rather than & 01 in main | |
19 | 17 Oct. 1990: abort() calls changed to sig_die(...,1) | |
20 | 22 Oct. 1990: separate sig_die from main | |
21 | 25 Apr. 1991: minor, theoretically invisible tweaks to s_cat, sig_die | |
22 | 31 May 1991: make system_ return status | |
23 | 18 Dec. 1991: change long to ftnlen (for -i2) many places | |
24 | 28 Feb. 1992: repair z_sqrt.c (scribbled on input, gave wrong answer) | |
25 | 18 July 1992: for n < 0, repair handling of 0**n in pow_[dr]i.c | |
26 | and m**n in pow_hh.c and pow_ii.c; | |
27 | catch SIGTRAP in main() for error msg before abort | |
28 | 23 July 1992: switch to ANSI prototypes unless KR_headers is #defined | |
29 | 23 Oct. 1992: fix botch in signal_.c (erroneous deref of 2nd arg); | |
30 | change Cabs to f__cabs. | |
31 | 12 March 1993: various tweaks for C++ | |
32 | 2 June 1994: adjust so abnormal terminations invoke f_exit just once | |
33 | 16 Sept. 1994: s_cmp: treat characters as unsigned in comparisons. | |
34 | 19 Sept. 1994: s_paus: flush after end of PAUSE; add -DMSDOS | |
35 | 12 Jan. 1995: pow_[dhiqrz][hiq]: adjust x**i to work on machines | |
36 | that sign-extend right shifts when i is the most | |
37 | negative integer. | |
38 | 26 Jan. 1995: adjust s_cat.c, s_copy.c to permit the left-hand side | |
39 | of character assignments to appear on the right-hand | |
40 | side (unless compiled with -DNO_OVERWRITE). | |
41 | 27 Jan. 1995: minor tweak to s_copy.c: copy forward whenever | |
42 | possible (for better cache behavior). | |
43 | 30 May 1995: added subroutine exit(rc) integer rc. Version not changed. | |
44 | 29 Aug. 1995: add F77_aloc.c; use it in s_cat.c and system_.c. | |
45 | 6 Sept. 1995: fix return type of system_ under -DKR_headers. | |
46 | 19 Dec. 1995: s_cat.c: fix bug when 2nd or later arg overlaps lhs. | |
47 | 19 Mar. 1996: s_cat.c: supply missing break after overlap detection. | |
48 | 13 May 1996: add [lq]bitbits.c and [lq]bitshft.c (f90 bit intrinsics). | |
49 | 19 June 1996: add casts to unsigned in [lq]bitshft.c. | |
50 | 26 Feb. 1997: adjust functions with a complex output argument | |
51 | to permit aliasing it with input arguments. | |
52 | (For now, at least, this is just for possible | |
53 | benefit of g77.) | |
54 | 4 April 1997: [cz]_div.c: tweaks invisible on most systems (that may | |
55 | affect systems using gratuitous extra precision). | |
56 | 19 Sept. 1997: [de]time_.c (Unix systems only): change return | |
57 | type to double. | |
a152cad7 CB |
58 | 2 May 1999: getenv_.c: omit environ in favor of getenv(). |
59 | c_cos.c, c_exp.c, c_sin.c, d_cnjg.c, r_cnjg.c, | |
60 | z_cos.c, z_exp.c, z_log.c, z_sin.c: cope fully with | |
61 | overlapping arguments caused by equivalence. | |
8e2b8d13 CB |
62 | 3 May 1999: "invisible" tweaks to omit compiler warnings in |
63 | abort_.c, ef1asc_.c, s_rnge.c, s_stop.c. | |
6973bf54 TM |
64 | 7 Sept. 1999: [cz]_div.c: arrange for compilation under |
65 | -DIEEE_COMPLEX_DIVIDE to make these routines | |
66 | avoid calling sig_die when the denominator | |
67 | vanishes; instead, they return pairs of NaNs | |
68 | or Infinities, depending whether the numerator | |
69 | also vanishes or not. VERSION not changed. | |
70 | 15 Nov. 1999: s_rnge.c: add casts for the case of | |
71 | sizeof(ftnint) == sizeof(int) < sizeof(long). | |
a40bb4d3 TM |
72 | 10 March 2000: z_log.c: improve accuracy of Real(log(z)) for, e.g., |
73 | z near (+-1,eps) with |eps| small. For the old | |
74 | evaluation, compile with -DPre20000310 . | |
75 | 20 April 2000: s_cat.c: tweak argument types to accord with | |
76 | calls by f2c when ftnint and ftnlen are of | |
77 | different sizes (different numbers of bits). | |
78 | 4 July 2000: adjustments to permit compilation by C++ compilers; | |
79 | VERSION string remains unchanged. NOT APPLIED FOR G77. | |
80 | 29 Sept. 2000: dtime_.c, etime_.c: use floating-point divide. | |
81 | dtime_.d, erf_.c, erfc_.c, etime.c: for use with | |
82 | "f2c -R", compile with -DREAL=float. | |
81fea2b1 JL |
83 | */ |
84 | ||
85 | #include <stdio.h> | |
86 | ||
87 | void | |
88 | g77__fvers__ () | |
89 | { | |
90 | fprintf (stderr, "__G77_LIBF77_VERSION__: %s", __G77_LIBF77_VERSION__); | |
91 | fputs (junk, stderr); | |
92 | } |