implicit none integer :: n,i,fi=10 real(8), allocatable :: a(:,:) open(fi,file='mat.d') read(fi,*) n allocate (a(n,n)) do i=1,n read(fi,*) a(i,1:n) enddo close(fi) do i=1,n write(*,*) a(i,1:n) enddo deallocate(a) end program ```### 実現したいこと 割付配列の要素の入出力を行うプログラムをつくっていました ### 発生している問題・エラーメッセージ コンパイルしようとすると
Syntax error in READ statement at (1)
となりコンパイルできませんでした。 ```ここに言語名を入力 Fortran
回答1件
良いと思った回答にはグッドを送りましょう。
グッドが多くついた回答ほどページの上位に表示されるので、他の人が素晴らしい回答を見つけやすくなります。
下記のような回答は推奨されていません。
このような回答には修正を依頼しましょう。
2022/11/22 08:21
2022/11/22 08:22
2022/11/30 13:46