Initial commit

2022-08-19 15:22:33 +02:00
commit d682fae506
545 changed files with 48172 additions and 0 deletions
--- a/gen/fitv.f
+++ b/gen/fitv.f
@ -0,0 +1,15 @@
+	program fitv
+
+	character str*79
+	integer l
+	call sys_get_cmdpar(str, l)
+	if (str(1:1) .eq. '"' .and. l .gt. 2) then
+	  str=str(2:l-1)
+	  l=l-2
+	endif
+	if (l .le. 1) then
+	  str='FIT Version'
+	endif
+	call fit_vers(str(33:))
+	print *,str
+	end