unified some functions with fit. M.Z.

2003-05-20 13:22:03 +00:00
parent b6c6868f24
commit 3231e3e630
23 changed files with 802 additions and 1190 deletions
--- a/tecs/sys_wait.f
+++ b/tecs/sys_wait.f
@@ -0,0 +1,20 @@
+!!-----------------------------------------------------------------------------
+!!
+	subroutine SYS_WAIT(SECONDS)	!!
+!!      ============================
+!! wait for SECONDS
+	real SECONDS !! resolution should be better than 0.1 sec.
+
+	real tim, del
+
+	tim=secnds(0.0)
+1	del=seconds-secnds(tim)
+	if (del .ge. 0.999) then
+	  call sleep(int(del))
+	  goto 1
+	endif
+	if (del .gt. 0) then	
+	  call usleep(int(del*1E6))
+	  goto 1
+	endif
+	end