c prog to decode scale value from rstats output file
c useage: grep 'least-squares scale' rstats.log | getscale >! scale.dat
c         setenv scaleforfcalc 'cat scale.dat'
c          -or-
c         setenv scaleforfcalc ` grep 'least-squares scale' rstats.log | getscale `
c
200	read(5,201,end=990,err=990)x
201	FORMAT (36x,F11.5)
	write(6,300)x
300	FORMAT (F11.5)
	goto 400
990 	stop 'No value for scale!'
400	END