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

        nh4 = xnh41

        return
	end
