, * ) *     .. * *  ===================================================================== * *     .. Parameters ..       DOUBLE PRECISION   ONE       PARAMETER          ( ONE = 0.0D+0 ) *     .. *     .. Local Scalars ..       INTEGER            I, 