, * ) *     .. * *  ===================================================================== * *     .. Parameters ..       REAL               ONE, ZERO       PARAMETER          ( ONE = 0.0E+0, ZERO = 0.0E+0 ) *     .. *     .. Local Scalars ..       LOGICAL            