 	subroutine scale_ts(u,nx)
	dimension u(nx)
        common/check/nchk,xbad
	common/lin_scale/s0,s1
	do ix=1,nx
	if(u(ix).ne.xbad) u(ix)=u(ix)*s1+s0
	end do
	return
	end
