program main
c
implicit double precision(a-h,o-z)
double precision I1,I2
C COMMON/CS/EQ,GAMA
DIMENSION X(10000)
CHARACTER*22 INP,OUT,DATA
WRITE(*,'(/A$)') ' INPUT FILE: '
READ(*,'(A)') INP
DATA=INP
OPEN(4,FILE=INP,STATUS='OLD',ACCESS='SEQUENTIAL')
WRITE(*,'(/A$)') ' OUTPUT FILE: '
READ(*,'(A)') OUT
OPEN(10,FILE=OUT,ACCESS='SEQUENTIAL')
C
READ(4,*) N
AFA=0.0
100 H=AFA/N
X0=0.0
DO 10 I=1,N
X(I)=X0+I*H
WRITE(10,*) 'I=',I,'X(I)=',X(I)
10 CONTINUE
I2=0
I1=f(x0)*H/2+f(AFA)*H/2
DO 20 I=1,N
I1=I1+I2
I2=H*f(x(I))
20 continue
I=2*I1
WRITE(10,*) 'FIA(AFA)=',FIA(AFA)
FIA(AFA)= (I+1)/2
I=2.718281828**(-x(i)**2/2)*1/SQRT(2*3.1415926536)
AFA=AFA+0.1
IF(AFA.LE.3.5) GOTO 100
C
END
运行以后，
---------Configuration: aa - Win32 Debug--------------------
Compiling Fortran...
D:\新建文件夹\fortran\PROJECTS\aa\aa.for
D:\新建文件夹\fortran\PROJECTS\aa\aa.for(33): error FOR3712: symbol FIA is not an array
Error executing fl32.exe.
aa.exe - 1 error(s), 0 warning(s)
应该怎么改呢？求指教！特别着急
c
implicit double precision(a-h,o-z)
double precision I1,I2
C COMMON/CS/EQ,GAMA
DIMENSION X(10000)
CHARACTER*22 INP,OUT,DATA
WRITE(*,'(/A$)') ' INPUT FILE: '
READ(*,'(A)') INP
DATA=INP
OPEN(4,FILE=INP,STATUS='OLD',ACCESS='SEQUENTIAL')
WRITE(*,'(/A$)') ' OUTPUT FILE: '
READ(*,'(A)') OUT
OPEN(10,FILE=OUT,ACCESS='SEQUENTIAL')
C
READ(4,*) N
AFA=0.0
100 H=AFA/N
X0=0.0
DO 10 I=1,N
X(I)=X0+I*H
WRITE(10,*) 'I=',I,'X(I)=',X(I)
10 CONTINUE
I2=0
I1=f(x0)*H/2+f(AFA)*H/2
DO 20 I=1,N
I1=I1+I2
I2=H*f(x(I))
20 continue
I=2*I1
WRITE(10,*) 'FIA(AFA)=',FIA(AFA)
FIA(AFA)= (I+1)/2
I=2.718281828**(-x(i)**2/2)*1/SQRT(2*3.1415926536)
AFA=AFA+0.1
IF(AFA.LE.3.5) GOTO 100
C
END
运行以后，
---------Configuration: aa - Win32 Debug--------------------
Compiling Fortran...
D:\新建文件夹\fortran\PROJECTS\aa\aa.for
D:\新建文件夹\fortran\PROJECTS\aa\aa.for(33): error FOR3712: symbol FIA is not an array
Error executing fl32.exe.
aa.exe - 1 error(s), 0 warning(s)
应该怎么改呢？求指教！特别着急
