Initial commit

gen/fit_init.f

@@ -0,0 +1,66 @@
+      	subroutine fit_init
+!       -------------------
+
+	call fit_init0(.true.)
+	end
+	
+      	subroutine fit_init_silent
+!       --------------------------
+
+	call fit_init0(.false.)
+	end
+	
+      	subroutine fit_init0(show)
+!       --------------------------
+
+	logical show
+
+	include 'fit.inc'
+
+	integer i
+	integer iostat
+	character*8 value
+	data nset/1/
+	data isysrd/5/, isyswr/6/	! logical units
+	data nstyl/7/
+	data (styl(i),i=1,7)/5,6,7,4,3,2,1/
+	data autostyle/1/
+	data cinfo/0/
+	data usernp/0/
+	data usertit/'USER FUNCTION'/
+	data filesave/' '/
+	data nplug/0/
+	data trfmode/0/, shift/0.0,0.0/
+	data ncolor/0/
+	data legend/0/
+	data itit/' '/
+	
+	do i=1,5
+	  isw(i)=0
+	enddo
+	iscx=0
+	iscy=0
+	up=1.0
+	epsi=0.05
+	vtest=0.01
+	nxmin=1
+	nxmax=0
+	nu=0
+	itaur=0
+	nregion=0
+	call sys_loadenv
+
+	call sys_getenv('FIT_AUTOPLOT', value)
+	autoplot = (value .ne. ' ' .and. value .ne. '0'
+	1     .and. value(1:2) .ne. 'OF')
+
+	call sys_getenv('FIT_COLORS', value)
+	read(value, '(i8)', iostat=iostat) ncolor
+
+	if (npd .eq. 0) then
+	  call fit_userpdp('Numor')
+	  call fit_userpdp('Temp')
+	endif
+c	call fit_sym
+	if (show) call cho_choose(' ')
+	end