; from mua.c.  Just to make it easier to translate the c, which calls
; this all the time.
function degtorad, theta
  pio180 = 0.017453293d;   /* PI over 180 degrees. */
  return,theta*pio180
end