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_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