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
내가 얻을 코드를 주석 한 바와 같이 나는포트란 95 표현의 오류를 누락
Compile error: error 573 - Missing expression
그냥 오타 일 뿐이며 'write (*, *)'뒤에 쉼표가 없어야합니다. 간단한 오타로 투표 마감. 그리고 컴파일러가 여러분이 보여주는 것보다 더 많은 것을 인쇄했다고 확신합니다. 여러분의 질문에 항상 완전한 오류 메시지를 복사하십시오. –
나는 그것을하지만, Sw_pd (i), Krw_pd (i) 출력 할 때 –
루프를 실행하기 전에 파일을 열어야한다. – agentp