- 207 名前：デフォルトの名無しさん [2007/01/16(火) 16:24:45 ]
- あるプログラムを作っているのですが、
配列に入れる値をテキストファイルから読み込むことが何度もあります。
その部分をサブルーチン化したいのですが、うまくいきません。
次のようなエラーが出るのですが、どう改善すればようでしょうか？
変数'x'の宣言において,整数式であるべきところが整数式ではありません.
'UNIT'指定子の値または型が正しくありません.
'FILE'指定子の値または型が正しくありません.
'UNIT'指定子の値または型が正しくありません.
'UNIT'指定子の値または型が正しくありません.
subroutine data(x,n,unit,file)
real,intent(inout),dimension(n) :: x
real,intent(in) :: n, unit, file
open(unit,file)
do i = 1,n
read(unit,*) x(i)
end do
close(unit)
end subroutine
