Repatch (from linux) of OSX IRAF

1 files changed, 83 insertions, 0 deletions

diff --git a/math/slalib/wait.f__win b/math/slalib/wait.f__win
new file mode 100644
index 00000000..b018650c
--- /dev/null
+++ b/math/slalib/wait.f__win
@@ -0,0 +1,83 @@
+      SUBROUTINE sla_WAIT (DELAY)
+*+
+*     - - - - -
+*      W A I T
+*     - - - - -
+*
+*  Interval wait
+*
+*  !!! PC only - Microsoft Fortran specific !!!
+*
+*  Given:
+*     DELAY     real      delay in seconds
+*
+*  A delay of up to 10000 seconds occurs.
+*
+*  Called:  GETTIM (Microsoft Fortran run-time library)
+*
+*  P.T.Wallace   Starlink   14 October 1991
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*
+*  License:
+*    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
+
+      REAL DELAY
+
+      INTEGER IDELAY,IH,IM,IS,I,IT,IT0,IDT
+      LOGICAL FIRST,LOOP
+
+
+
+
+*  Convert requested delay to 0.01 second ticks
+      IDELAY=NINT(MAX(MIN(DELAY,1E4),0.0)*1E2)
+
+*  Set "note start time" flag
+      FIRST=.TRUE.
+
+*  Set "wait in progress" flag
+      LOOP=.TRUE.
+
+*  Main loop
+      DO WHILE (LOOP)
+
+*     Get the current time and convert to 0.01 second ticks
+         CALL GETTIM(IH,IM,IS,I)
+         IT=((IH*60+IM)*60+IS)*100+I
+
+*     First time through the loop?
+         IF (FIRST) THEN
+
+*        Yes: note the time and reset the flag
+            IT0=IT
+            FIRST=.FALSE.
+         ELSE
+
+*        No: subtract the start time, handling 0 hours wrap
+            IDT=IT-IT0
+            IF (IDT.LT.0) IDT=IDT+8640000
+
+*        If the requested delay has elapsed, stop looping
+            LOOP=IDT.LT.IDELAY
+         END IF
+      END DO
+
+      END