c
c @(#)zoop.f	1.1
c
       real function zoop(stheta)
       include'mladv.inc'
       include'trc.inc'

        zoop = zoo1

        return
	end
