C
C
define(zero,ifelse(ifdouble,1,0.d+00,0.0e+00))
define(one,ifelse(ifdouble,1,1.d+00,1.0e+00))
define(two,ifelse(ifdouble,1,2.d+00,2.0e+00))
define(three,ifelse(ifdouble,1,3.d+00,3.0e+00))
define(four,ifelse(ifdouble,1,4.d+00,4.0e+00))
define(five,ifelse(ifdouble,1,5.d+00,5.0e+00))
define(six,ifelse(ifdouble,1,6.d+00,6.0e+00))
define(seven,ifelse(ifdouble,1,7.d+00,7.0e+00))
define(nine,ifelse(ifdouble,1,9.d+00,9.0e+00))
define(ten,ifelse(ifdouble,1,10.d+00,1.0e+01))
define(twelve,ifelse(ifdouble,1,12.d+00,1.2e+01))
define(ffteen,ifelse(ifdouble,1,15.d+00,1.5e+01))
define(onept1,ifelse(ifdouble,1,1.1d+00,1.1e+00))
define(point9,ifelse(ifdouble,1,.9d+00,9.0e-01))
define(half,ifelse(ifdouble,1,.5d+00,5.0e-01))
define(qtr,ifelse(ifdouble,1,.25d+00,2.5e-01))
define(eighth,ifelse(ifdouble,1,.125d+00,1.25e-01))
define(fifth,ifelse(ifdouble,1,.2d+00,2.0e-01))
define(tenth,ifelse(ifdouble,1,.1d+00,1.0e-01))
define(sxy4th,ifelse(ifdouble,1,.015625d+00,1.5625e-02))
c


define(klein,ifelse(ifdouble,1,1.0d-08,1.0e-08))