1static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; 2 3/* 4*/ 5 6char __G77_LIBF77_VERSION__[] = "0.5.25 20010315 (release)"; 7 8/* 92.00 11 June 1980. File version.c added to library. 102.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. 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. 62 3 May 1999: "invisible" tweaks to omit compiler warnings in 63 abort_.c, ef1asc_.c, s_rnge.c, s_stop.c. 64*/ 65 66#include <stdio.h> 67 68void 69g77__fvers__ () 70{ 71 fprintf (stderr, "__G77_LIBF77_VERSION__: %s", __G77_LIBF77_VERSION__); 72 fputs (junk, stderr); 73} 74