mirror of
https://git.planet-casio.com/Lephenixnoir/OpenLibm.git
synced 2025-01-01 06:23:39 +01:00
71 lines
2.7 KiB
Fortran
71 lines
2.7 KiB
Fortran
*DECK AAAAAA
|
|
SUBROUTINE AAAAAA (VER)
|
|
C***BEGIN PROLOGUE AAAAAA
|
|
C***PURPOSE SLATEC Common Mathematical Library disclaimer and version.
|
|
C***LIBRARY SLATEC
|
|
C***CATEGORY Z
|
|
C***TYPE ALL (AAAAAA-A)
|
|
C***KEYWORDS DISCLAIMER, DOCUMENTATION, VERSION
|
|
C***AUTHOR SLATEC Common Mathematical Library Committee
|
|
C***DESCRIPTION
|
|
C
|
|
C The SLATEC Common Mathematical Library is issued by the following
|
|
C
|
|
C Air Force Weapons Laboratory, Albuquerque
|
|
C Lawrence Livermore National Laboratory, Livermore
|
|
C Los Alamos National Laboratory, Los Alamos
|
|
C National Institute of Standards and Technology, Washington
|
|
C National Energy Research Supercomputer Center, Livermore
|
|
C Oak Ridge National Laboratory, Oak Ridge
|
|
C Sandia National Laboratories, Albuquerque
|
|
C Sandia National Laboratories, Livermore
|
|
C
|
|
C All questions concerning the distribution of the library should be
|
|
C directed to the NATIONAL ENERGY SOFTWARE CENTER, 9700 Cass Ave.,
|
|
C Argonne, Illinois 60439, and not to the authors of the subprograms.
|
|
C
|
|
C * * * * * Notice * * * * *
|
|
C
|
|
C This material was prepared as an account of work sponsored by the
|
|
C United States Government. Neither the United States, nor the
|
|
C Department of Energy, nor the Department of Defense, nor any of
|
|
C their employees, nor any of their contractors, subcontractors, or
|
|
C their employees, makes any warranty, expressed or implied, or
|
|
C assumes any legal liability or responsibility for the accuracy,
|
|
C completeness, or usefulness of any information, apparatus, product,
|
|
C or process disclosed, or represents that its use would not infringe
|
|
C upon privately owned rights.
|
|
C
|
|
C *Usage:
|
|
C
|
|
C CHARACTER * 16 VER
|
|
C
|
|
C CALL AAAAAA (VER)
|
|
C
|
|
C *Arguments:
|
|
C
|
|
C VER:OUT will contain the version number of the SLATEC CML.
|
|
C
|
|
C *Description:
|
|
C
|
|
C This routine contains the SLATEC Common Mathematical Library
|
|
C disclaimer and can be used to return the library version number.
|
|
C
|
|
C***REFERENCES Kirby W. Fong, Thomas H. Jefferson, Tokihiko Suyehiro
|
|
C and Lee Walton, Guide to the SLATEC Common Mathema-
|
|
C tical Library, April 10, 1990.
|
|
C***ROUTINES CALLED (NONE)
|
|
C***REVISION HISTORY (YYMMDD)
|
|
C 800424 DATE WRITTEN
|
|
C 890414 REVISION DATE from Version 3.2
|
|
C 890713 Routine modified to return version number. (WRB)
|
|
C 900330 Prologue converted to Version 4.0 format. (BAB)
|
|
C 920501 Reformatted the REFERENCES section. (WRB)
|
|
C 921215 Updated for Version 4.0. (WRB)
|
|
C 930701 Updated for Version 4.1. (WRB)
|
|
C***END PROLOGUE AAAAAA
|
|
CHARACTER * (*) VER
|
|
C***FIRST EXECUTABLE STATEMENT AAAAAA
|
|
VER = ' 4.1'
|
|
RETURN
|
|
END
|