Initial commit

gen/fit_bars.f

@@ -0,0 +1,28 @@
+	subroutine fit_bars(errb)
+!	-------------------------
+
+	implicit none
+	include 'fit.inc'
+	character errbar*1, errb*(*)
+	integer i
+
+ 1002	FORMAT (4X,'Errorbars (Y/N, default:Yes): ',$)
+
+	if (errb .eq. ' ') then
+  102	  WRITE (ISYSWR,1002)
+	  READ (ISYSRD,'(a1)',ERR=102,END=999) ERRBAR
+	else
+	  errbar=errb
+	endif
+        IF (errbar .EQ. 'N' .OR. errbar .EQ.'n' .or.
+	1    errbar .eq. '0') then
+	  do i=1,maxset
+	    styl(i)=-abs(styl(i))
+	  enddo
+	else
+	  do i=1,maxset
+	    styl(i)=abs(styl(i))
+	  enddo
+	endif
+	autostyle=0
+999	end