1 files changed, 32 insertions, 0 deletions
diff --git a/src/slalib/wait.f_mips b/src/slalib/wait.f_mips
new file mode 100644
index 0000000..8eb80e1
--- /dev/null
+++ b/src/slalib/wait.f_mips
@@ -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