Initial commit

2022-08-19 15:22:33 +02:00
commit d682fae506
545 changed files with 48172 additions and 0 deletions
--- a/unix/sys_wait.f
+++ b/unix/sys_wait.f
@@ -0,0 +1,22 @@
+!!-----------------------------------------------------------------------------
+!!
+	subroutine SYS_WAIT(SECONDS)	!!
+!!      ============================
+!! wait for SECONDS
+	real SECONDS !! resolution should be better than 0.1 sec.
+
+	real tim, del
+
+	real secnds
+
+	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