您所在位置：主题：求助：Visual Fortran 6.5执行出错！
mathstu
[专家分：0] 发布于 2012-11-26 02:28:00
只是个小程序，编译和链接都没有问题，可是执行的时候出现好大的问题。
程序如下：
program ANAIC
REAL *8 S(9,9),XX(9),ES(9),F(9),FF(9),EY,YY
DIMENSION L(9),X(33),LL1(8),LL2(8)
M=8
IS=1
N=33
MS=M*IS+1
KK=1
READ (6,100)X
100 FORMAT(10F10.2)
N1=N-1
DO 5 K=1,N1
5 X(K)=X(K+1)-X(K)
CALL EXCOV(N1,M,IS,MS,KK,S,F,EY,ES,XX,YY,X)
CALL ANA(N1,M,IS,MS,KK,S,YY,XX,ES,EY,L,F,FF,AIC0,II)
II1=II+1
WRITE(2,105)
WRITE(2,106)KK,F(II1)
IF(II.EQ.0)GOTO 53
K=1
DO 51 I=1,II
LL=L(I)
L1=LL/M
L2=LL-L1*M
IF(L2)3,3,4
3 L2=M
GOTO 50
4 L1=L1+1
50 LL1(K)=L1
LL2(K)=L2
51 K=K+1
DO 6 I=1,II
6 WRITE(2,107)F(I),LL2(I),LL1(I)
105 FORMAT(//,4X,'THE MODEL IS:')
106 FORMAT(2X,4HX(K,,I1,2H)=,F6.3)
107 FORMAT(15X,2H+(,F6.3,6H)*X(K-,I1,1H,I1,1H))
53 STOP
END
执行的时候，屏幕显示：
forrtl: 句柄无效。
forrtl: severe (38): error during read, unit 6, file CONIN$
Incrementally linked image--PC correlation disabled.
Press any key to continue
请教高手，这是怎么回事呢？非常感谢：）
程序如下：
program ANAIC
REAL *8 S(9,9),XX(9),ES(9),F(9),FF(9),EY,YY
DIMENSION L(9),X(33),LL1(8),LL2(8)
M=8
IS=1
N=33
MS=M*IS+1
KK=1
READ (6,100)X
100 FORMAT(10F10.2)
N1=N-1
DO 5 K=1,N1
5 X(K)=X(K+1)-X(K)
CALL EXCOV(N1,M,IS,MS,KK,S,F,EY,ES,XX,YY,X)
CALL ANA(N1,M,IS,MS,KK,S,YY,XX,ES,EY,L,F,FF,AIC0,II)
II1=II+1
WRITE(2,105)
WRITE(2,106)KK,F(II1)
IF(II.EQ.0)GOTO 53
K=1
DO 51 I=1,II
LL=L(I)
L1=LL/M
L2=LL-L1*M
IF(L2)3,3,4
3 L2=M
GOTO 50
4 L1=L1+1
50 LL1(K)=L1
LL2(K)=L2
51 K=K+1
DO 6 I=1,II
6 WRITE(2,107)F(I),LL2(I),LL1(I)
105 FORMAT(//,4X,'THE MODEL IS:')
106 FORMAT(2X,4HX(K,,I1,2H)=,F6.3)
107 FORMAT(15X,2H+(,F6.3,6H)*X(K-,I1,1H,I1,1H))
53 STOP
END
执行的时候，屏幕显示：
forrtl: 句柄无效。
forrtl: severe (38): error during read, unit 6, file CONIN$
Image PC Routine Line Source
s1.exe 0040CD49 Unknown Unknown UnknownIncrementally linked image--PC correlation disabled.
Press any key to continue
请教高手，这是怎么回事呢？非常感谢：）
我的操作系统是win7的.
我要读入X的数据是：1.3 3.9 6.9 8.3 11.5 18.7 23.2 31.6 35.0 53.5 46.5 44.0 40.5 59.9 98.6 99.6 155.3 206.3 198.1 171.9 218.8 286.7 324.6 384.9 424.8 381.5 469.6 475.2 675.3 900.9 1037.6 938.0 924.8
