- 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_cmdpar.f

@@ -0,0 +1,23 @@
+!!-----------------------------------------------------------------------------
+!!
+	subroutine SYS_GET_CMDPAR(STR, L)	!!
+!!	---------------------------------
+!!
+	character*(*) STR !!
+	integer L	!!
+
+        integer i,iargc
+        
+	l=0
+	str=' '
+	do i=1,iargc()
+	  if (l .lt. len(str)) then
+	    call getarg(i, str(l+1:))
+	    call str_trim(str, str, l)
+	    l=l+1
+	  endif
+	enddo
+	if (l .gt. 0) then
+	  if (str(1:l) .eq. ' ') l=0
+	endif
+	end