f77vers.c 4.8 KB

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