>I agree with Van. Ah, so you've implemented REAL(KIND=MERGE(4,8,PRESENT(X))) Y then? That's interesting... you are well ahead of everyone else on the planet! Cheers, -- ................................Malcolm Cohen, Nihon NAG, Tokyo.