Initial commit

gen/fit_list.f

@@ -0,0 +1,35 @@
+        SUBROUTINE fit_LIST
+C       -------------------
+	implicit none
+
+	include 'fit.inc'
+
+	integer i
+	real yth,yth1,yth2
+
+	real fifun ! function
+
+	if (nu .gt. 0) then
+ 1000	  format (/,7x,'x',9x,'y',8x,'sig',7x,'yth',6x,'y-yth',
+	1         3x,'(y-yth)/sig')
+          write (isyswr,1000)
+	  do i=nxmin,nxmax
+	    actset=iset(i)
+	    yth=fifun(xval(i))
+	    yth1=YVAL(i)-yth
+	    yth2=yth1/sig(i)
+	    write (isyswr,1001) xval(i),YVAL(i),sig(i),yth,yth1,yth2
+ 1001	    format (1X,6F10.3)
+	  enddo
+	else
+	  write(isyswr,1010) ymon
+1010	  format (/'coulmn y is scaled to monitor ',f12.2
+	1         /'mon is the measured monitor'/
+	1         /,7x,'x',9x,'y',8x,'sig',7x,'mon',6x,'set')
+	  do i=nxmin,nxmax
+            write (isyswr,1011) xval(i),YVAL(i),sig(i),rmon(i),iset(i)
+1011	    format (1x,3f10.3,f12.2,i6)
+	  enddo
+	endif
+
+        end