>>46
write(*, '(i7, f15.7 f15.7)') x, log10(x), log(x)
　　　↓
write(*, '(f15.7, f15.7 f15.7)') x, log10(x), log(x)

にしてみよう・・・
xはrealで宣言されてるからformatを整数表示に指定することはできない．