From 40e5a5811c6ffce9b0974e93cdd927cbcf60c157 Mon Sep 17 00:00:00 2001 From: Joe Hunkeler Date: Tue, 11 Aug 2015 16:51:37 -0400 Subject: Repatch (from linux) of OSX IRAF --- math/slalib/veri.f.in | 52 +++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 52 insertions(+) create mode 100644 math/slalib/veri.f.in (limited to 'math/slalib/veri.f.in') diff --git a/math/slalib/veri.f.in b/math/slalib/veri.f.in new file mode 100644 index 00000000..76eb4380 --- /dev/null +++ b/math/slalib/veri.f.in @@ -0,0 +1,52 @@ + INTEGER FUNCTION sla_VERI () +*+ +* - - - - - +* V E R I +* - - - - - +* +* Report the SLALIB version number as an integer. +* +* Given: +* None +* +* The result is the SLALIB version number as an integer m*1e6+n*1e3+r, +* where m is the major version, n the minor version and r the release +* number. +* +* Notes: +* +* To obtain the version number in a printable form, see +* subroutine sla_vers(version). +* +* The sla_veri subroutine was introduced in SLALIB version 2.5-1, so +* if this function is absent, one can only tell that the release +* predates that one. +* +* Norman Gray Starlink 8 April 2005 +* +* Copyright (C) 2005 Council for the Central Laboratory of the +* Research Councils +* +* Licence: +* This program is free software; you can redistribute it and/or modify +* it under the terms of the GNU General Public License as published by +* the Free Software Foundation; either version 2 of the License, or +* (at your option) any later version. +* +* This program is distributed in the hope that it will be useful, +* but WITHOUT ANY WARRANTY; without even the implied warranty of +* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +* GNU General Public License for more details. +* +* You should have received a copy of the GNU General Public License +* along with this program (see SLA_CONDITIONS); if not, write to the +* Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, +* Boston, MA 02110-1301 USA +* +*- + + IMPLICIT NONE + + sla_VERI=@PACKAGE_VERSION_INTEGER@ + + END -- cgit