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件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2022/11/22 08:21
2022/11/22 08:22
2022/11/30 13:46