c
c @(#)pon.f	1.3
c
       real function pon(stheta)
       include'mladv.inc'
       include'trc.inc'

        pon = pno31

        return
	end
