The BAQ/Memo/Fortran/出来ないこと

Japanese

English

Memo

I/O中にI/O

program test
real a,fun
a = 10.0
write(10,*) fun(a)
stop
end
 
real function fun(a)
real a
write(11,*) a
fun = a*2.0
return
end

上記のプログラムだと実行時にエラーになる。

program test
real a,b,fun
a = 10.0
b = fun(a)
write(10,*) b
stop
end

とすればよい。

Last Update: 2005/3/4
Hidetada Baba
baba ＠ rarfaxp.riken.jp