29 lines
534 B
Fortran
29 lines
534 B
Fortran
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
|