Initial commit

2022-08-19 15:22:33 +02:00
commit d682fae506
545 changed files with 48172 additions and 0 deletions
--- a/gen/fit_title.f
+++ b/gen/fit_title.f
@ -0,0 +1,18 @@
+        SUBROUTINE fit_title(titlepar)
+C       ------------------------------
+	include 'fit.inc'
+
+	character titlepar*(*)
+C
+	if (titlepar .eq. ' ') then
+   10	  WRITE (ISYSWR,1000)
+          READ (ISYSRD,'(A)',ERR=10,END=999) ITIT
+	else
+	  itit=titlepar
+	endif
+	call sym_put_str('Title', itit)
+
+  999   CONTINUE
+
+ 1000	FORMAT (/' Title: ',$)
+        END