Floating-point Multiply and Add

Returns the result of a floating-point multiply-add.

**Parameters**

**A**- must be of type
**REAL(8)**. If compiled on a PowerPC platform with**-qarch**set for PowerPC compilation,`A`may alternatively be of type**REAL(4)**. **X**- must be of the same type and kind type parameter as
`A`. **Y**- must be of the same type and kind type parameter as
`A`.

**Result Type and Attributes**

Same as `A`, `X`, and `Y`.

**Results**

The result has a value equal to `A`*`X` +
`Y`.

**Examples**

The following example is only valid if compiled with the
**-qarch** option set for PowerPC compilation, because `A`,
`B`, `C` and `RES1` are single precision reals.

REAL(4) :: A, B, C, RES1 REAL(8) :: D, E, F, RES2 RES1 = FMADD(A, B, C) RES2 = FMADD(D, E, F) END