aaaaaa.f 2.7 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071
  1. *DECK AAAAAA
  2. SUBROUTINE AAAAAA (VER)
  3. C***BEGIN PROLOGUE AAAAAA
  4. C***PURPOSE SLATEC Common Mathematical Library disclaimer and version.
  5. C***LIBRARY SLATEC
  6. C***CATEGORY Z
  7. C***TYPE ALL (AAAAAA-A)
  8. C***KEYWORDS DISCLAIMER, DOCUMENTATION, VERSION
  9. C***AUTHOR SLATEC Common Mathematical Library Committee
  10. C***DESCRIPTION
  11. C
  12. C The SLATEC Common Mathematical Library is issued by the following
  13. C
  14. C Air Force Weapons Laboratory, Albuquerque
  15. C Lawrence Livermore National Laboratory, Livermore
  16. C Los Alamos National Laboratory, Los Alamos
  17. C National Institute of Standards and Technology, Washington
  18. C National Energy Research Supercomputer Center, Livermore
  19. C Oak Ridge National Laboratory, Oak Ridge
  20. C Sandia National Laboratories, Albuquerque
  21. C Sandia National Laboratories, Livermore
  22. C
  23. C All questions concerning the distribution of the library should be
  24. C directed to the NATIONAL ENERGY SOFTWARE CENTER, 9700 Cass Ave.,
  25. C Argonne, Illinois 60439, and not to the authors of the subprograms.
  26. C
  27. C * * * * * Notice * * * * *
  28. C
  29. C This material was prepared as an account of work sponsored by the
  30. C United States Government. Neither the United States, nor the
  31. C Department of Energy, nor the Department of Defense, nor any of
  32. C their employees, nor any of their contractors, subcontractors, or
  33. C their employees, makes any warranty, expressed or implied, or
  34. C assumes any legal liability or responsibility for the accuracy,
  35. C completeness, or usefulness of any information, apparatus, product,
  36. C or process disclosed, or represents that its use would not infringe
  37. C upon privately owned rights.
  38. C
  39. C *Usage:
  40. C
  41. C CHARACTER * 16 VER
  42. C
  43. C CALL AAAAAA (VER)
  44. C
  45. C *Arguments:
  46. C
  47. C VER:OUT will contain the version number of the SLATEC CML.
  48. C
  49. C *Description:
  50. C
  51. C This routine contains the SLATEC Common Mathematical Library
  52. C disclaimer and can be used to return the library version number.
  53. C
  54. C***REFERENCES Kirby W. Fong, Thomas H. Jefferson, Tokihiko Suyehiro
  55. C and Lee Walton, Guide to the SLATEC Common Mathema-
  56. C tical Library, April 10, 1990.
  57. C***ROUTINES CALLED (NONE)
  58. C***REVISION HISTORY (YYMMDD)
  59. C 800424 DATE WRITTEN
  60. C 890414 REVISION DATE from Version 3.2
  61. C 890713 Routine modified to return version number. (WRB)
  62. C 900330 Prologue converted to Version 4.0 format. (BAB)
  63. C 920501 Reformatted the REFERENCES section. (WRB)
  64. C 921215 Updated for Version 4.0. (WRB)
  65. C 930701 Updated for Version 4.1. (WRB)
  66. C***END PROLOGUE AAAAAA
  67. CHARACTER * (*) VER
  68. C***FIRST EXECUTABLE STATEMENT AAAAAA
  69. VER = ' 4.1'
  70. RETURN
  71. END