double precision pi
      common /trig/ pi