300 do i=1,counter
open(1,file='Pcow_pd.txt')
write(1,*),Sw_pd(i), Pcow_pd(i)
open(2,file='Krw_pd.txt')
write(2,*),Sw_pd(i), Krw_pd(i)
open(3,file='Kro_pd.txt')
write(3,*),Sw_pd(i), Kro_pd(i)
print*, counter
end do
print *,"filled =",filled
當我編譯代碼我會在寫入線一條錯誤消息,這正如已經評價我不能修復Fortran 95的缺失表達錯誤
Compile error: error 573 - Missing expression
這只是一個錯字,'write(*,*)'後面不會有逗號。投票結束爲一個簡單的錯字。我確信編譯器打印的內容比您展示的要多,請您始終將tye完整的錯誤信息複製到您的問題中。 –
我這樣做,但是當我運行時,只是Sw_pd(i),Krw_pd(i)輸出 –
您應該在循環之前打開文件。 – agentp