PSI sics-cvs-psi_pre-ansto

2003-06-13 00:00:00 +00:00
parent 2e3ddfb6c6
commit 3ffd0d8af4
1099 changed files with 318432 additions and 0 deletions
--- a/tecs/sys_cmdpar.f
+++ b/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