	real function t(x)
        if (x.lt.-0.2) then
                p=8.68e-01-(0.2+x)/5.
        endif
        if (x.ge.-0.2 .and. x.lt.0.6) then
          p=8.68e-01 *
            exp( -(x+2.11768e-01)*(x+2.11768e-01) /2./
                 2.24107e-01/ 2.24107e-01);
	endif
        if (p.lt.0.1) p=0.1

	t=p
	end

