>>857

real(16)
と宣言して、8倍精度にしたらどうなりますか。