Initial commit

2022-08-19 15:22:33 +02:00
commit d682fae506
545 changed files with 48172 additions and 0 deletions
--- a/gen/fit_range.f
+++ b/gen/fit_range.f
@ -0,0 +1,17 @@
+	subroutine fit_range(rstart, rend, files)
+
+	include 'fit.inc'
+
+	real rstart, rend
+	character*(*) files
+
+c	call dat_setrange(rstart, rend)
+c	if (files .eq. ' ') then
+c	  call fit_dat(filesave)
+c	elseif (files .eq. '+') then
+c	  call fit_dat('+'//filesave)
+c	else
+c	  call fit_dat(files)
+c	endif
+	print *,'RANGE command is obsolete, use options [] instead'
+	end