Initial commit

gen/fit_exit.f

@@ -0,0 +1,17 @@
+	SUBROUTINE FIT_EXIT
+!	-------------------
+
+	include 'fit.inc'
+	character ans*1
+
+	if (npkt .gt. 0) then
+	  if (npkt .gt. 1000) then
+	    write(isyswr, '(/X,A,$)')
+	1    'Do you want to save current data and parameters [n]? '
+	    read(isysrd, '(a)',err=9,end=9) ans
+	    if (ans .ne. 'Y' .and. ans .ne. 'y') goto 9
+	  endif
+	  call fit_save('last.fit3')
+	endif
+9	call gra_print
+	END