Constant types

Set type for value xxx with xxx_type

For floating point
real 2.4Ex where x is the exponent
real(8) 2.4Dx