FUNCTION dc,z

dh = 3000.0/0.7
return,dh*qromo('ex',0,z)
end