>>294
見た目間違ってなさそう。

それだけ短いプログラムだったら
計算過程を全部writeで出力したら？
変数の計算式やreadの式の直後に全部writeで
write(*,*)"S=",S
みたいに出力すればいいんじゃん？