From d54fe7c1f704a63824c5bfa0ece65245572e9b27 Mon Sep 17 00:00:00 2001
From: Joseph Hunkeler <jhunkeler@gmail.com>
Date: Wed, 4 Mar 2015 21:21:30 -0500
Subject: Initial commit

---
 src/slalib/wait.f_convex | 32 ++++++++++++++++++++++++++++++++
 1 file changed, 32 insertions(+)
 create mode 100644 src/slalib/wait.f_convex

(limited to 'src/slalib/wait.f_convex')

diff --git a/src/slalib/wait.f_convex b/src/slalib/wait.f_convex
new file mode 100644
index 0000000..8eb80e1
--- /dev/null
+++ b/src/slalib/wait.f_convex
@@ -0,0 +1,32 @@
+      SUBROUTINE sla_WAIT (DELAY)
+*+
+*     - - - - -
+*      W A I T
+*     - - - - -
+*
+*  Interval wait
+*
+*  !!! Version for: SPARC/SunOS4, 
+*                   SPARC/Solaris2, 
+*                   DEC Mips/Ultrix
+*                   DEC AXP/Digital Unix
+*                   Intel/Linux
+*                   Convex
+*
+*  Given:
+*     DELAY     real      delay in seconds
+*
+*  Called:  SLEEP (a Fortran Intrinsic on all obove platforms)
+*
+*  P.T.Wallace   Starlink   22 January 1998
+*
+*  Copyright (C) 1998 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      REAL DELAY
+
+      CALL SLEEP(NINT(DELAY))
+
+      END
-- 
cgit