TSQRT2 = 2.0*SQRT(2.0)
TSQRT2 = 2.8284271247461900976033774484193961571393437507538961463533594760

SQRT2 = SQRT(2.0)
SQRT2 = 1.4142135623730950488016887242096980785696718753769480731766797380

HSQT2 = SQRT(2.0)/2.0
HSQT2 = 0.70710678118654752440084436210484903928483593768847403658833986900

SQRT3 = SQRT(3.0)
SQRT3 = 1.7320508075688772935274463415058723669428052538103806280558069795

PI = 4.0*ATAN(1.0)
PI = 3.1415926535897932384626433832795028841971693993751058209749445923

PIH = PI/2.0
PIH = 1.5707963267948966192313216916397514420985846996875529104874722962

TPI = 2.0*PI
TPI = 6.2831853071795864769252867665590057683943387987502116419498891846

# WATCH THE SIGN OF THE CONSTANTS BELOW!
# (SOMETIMES THEY ARE DEFINED AS THE NEGATIVE OF THE BELOW, DEPENDING ON THE SUBROUTINE!)

TAUR = -1.0/2.0
TAUR = -0.5

TAUI = SQRT(3)/2
TAUI = 0.86602540378443864676372317075293618347140262690519031402790348975

TR11 = COS(2*PI/5)
TI11 = SIN(2*PI/5)
TR12 = COS(4*PI/5)
TI12 = SIN(4*PI/5)

TR11 =  0.30901699437494742410229341718281905886015458990288143106772431137
TI11 =  0.95105651629515357211643933337938214340569863412575022244730564442
TR12 = -0.80901699437494742410229341718281905886015458990288143106772431135
TI12 =  0.58778525229247312916870595463907276859765243764314599107227248076

