- Rearranged directory structure for forking out ANSTO

- Refactored site specific stuff into a site module
- PSI specific stuff is now in the PSI directory.
- The old version has been tagged with pre-ansto

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