Question

FORTRAN语言问题，求大神讲解~

PROGRAM MAIN
IMPLICIT NONE
REAL::X,C,F,E
INTEGER::I
OPEN(1,FILE='MYF2.DAT')
OPEN(2,FILE='MYF2.OUT')
DO I=1,7
READ(1,*)X,C
E=F(X,C)
WRITE(*,'(2F6.2,F9.5)')X,C,E
WRITE(2,'(2F6.2,F9.5)')X,C,E
ENDDO
END PROGRAM
FUNCTION F(X,C) RESULT(S)
IMPLICIT NONE
REAL::EPS,S,UN,X,C
INTEGER::N
EPS=1E-10
S=0.0
N=1
DO
UN=COS(((2.0*N-1)*3.1415926*X/C)/(2.0*N-1.0)**2.0)
IF (ABS(UN)<EPS) EXIT
S=S+UN
N=N+1
ENDDO
S=SQRT(C*3.1415926**2.0/2.0/X-4.0*C/X*S)
END FUNCTION

运行以后出现forrtl: severe (59): list-directed I/O syntax error, unit 1, file C:\Program Files\DevStudio\MyProjects\MYF2.DAT错误。为什么？该怎么解决？

Answer 1

错误问题是数据文件MYF2.DAT不在 C:\Program Files\DevStudio\MyProjects\下

Answer 2

你的MYF2.DAT是怎么给的，显示读入数据时出错那

追问

0.85,6.75
1.62,7.88
3.27,4.44
4.44,7.89
5.28,9.87
6.11,8.46
7.80,21.50

追答

把逗号去掉，用空格隔开试试