real, parameter :: a = 2.0