*+KEEP
******************************************************
* cons.inc
*************************
      double precision pi,rtod,dtor
      common / hcons /pi,rtod,dtor