楼主
运行后出现如下错误，请高手帮我看一下，感激不尽
--------------------Configuration: 000 - Win32 Debug--------------------
Linking...
.\Debug\00.obj : fatal error LNK1136: invalid or corrupt file
Error executing link.exe.
000.exe - 1 error(s), 0 warning(s)
DIMENSION B(30),A(30),Q(30),T(30),U(30),V(30),R(30),F(30),BX(30),TX(30),FX(30)
WRITE(5,2)
FORMAT(2X,4HREAD)
READ(5,*)B1,E,WH,RK,W1,TB,XL
N=29
NP=0
E1=1E-3
AL=1.0/29.0
EB=5.669E-8*TB**4
W=W1*3.14159/180.0
DO 10 I=2,N+1
Q(I)=B1
B2=Q(I)-.02*Q(I)
B1=B2
CONTINUE
X1=AL
NE=N
DO 30 I=2,N+1
W2=1.0-COS(W)*COS(W)
W3=X1*X1
W4=2.0*X1*COS(W)
S=0.0
Y1=AL/2.0+AL
DO 20 K=2,N
FA=Q(I)*X1*Y1*W2/(W3+Y1*Y1-W4*Y1)**1.5
S=S+FA
Y1=Y1+AL
CONTINUE
S1=0.0
Y2=AL*2.0
DO 25 K=2,N-1
FB=Q(I)*X1*Y2*W2/(W3+Y2*Y2-W4*Y2)**1.5
S1=S1+FB
Y2=Y2+AL
CONTINUE
Y3=AL
FC=Q(I)*X1*Y3*W2/(W3+Y3*Y3-W4*Y3)**1.5
FD=Q(I)*X1*W2/(W3+1.0-W4)**1.5
A(I)=(FC+4.0*S+2.0*S1+FD)/12.0*AL
X1=X1+AL
CONTINUE
DO 40 I=2,N+1
R(I)=RK*(Q(I)-A(I))
CONTINUE
U(1)=0.0
V1=1.0
DO 50 I=2,N
U(I)=1.0/(2.0-U(I-1))
V(I)=(V(I-1)-AL*AL*R(I))/(2.0-U(I-1))
CONTINUE
T(N+1)=V(N)/(1.0-U(N))
T(N)=T(N+1)
TX(N+1)=T(N+1)*TB
TX(N)=T(N)*TB
DO 60 K=2,N-1
I=N+1-K
T(I)=U(I)*T(I+1)+V(I)
TX(I)=T(I)*TB
CONTINUE
DO 70 I=2,N+1
B(I)=E*T(I)**4+(1.0-E)*A(I)
BX(I)=B(I)*EB
IF(ABS(B(I)-Q(I)).GE.E1) GO TO 70
NE=NE-1
CONTINUE
IF(NE.EQ.0) GO TO 90
DO 80 I=2,N+1
Q(I)=B(I)*WH+(1.0-WH)*Q(I)
CONTINUE
NP=NP+1
WRITE(5,85)NP,NE
FORMAT(1X,'3HNP=',I4,2X,'3HNE=',I4)
GO TO 100
WRITE(5,87)RK,W1,E,AL,XL,TB
FORMAT(1X,'3HRK=',F10.4,2X,'3HW1=',F8.2,2X,'2HE=',F6.4,2X,'3HAL=',F8.4,2X,'3HXL=',F8.4,2X,'3HTB=',F8.2)
WRITE(5,95)(BX(I),I=2,N+1)
WRITE(5,94)(B(I),I=2,N+1)
FORMAT(1X,1HB,5F12.4)
FORMAT(1X,2HBX,5F12.4)
WRITE(5,110)(TX(I),I=2,N+1)
FORMAT(1X,2HTX,5F12.4)
WRITE(5,105)(T(I),I=2,N+1)
FORMAT(1X,1HT,5F12.4)
DO 120 I=2,N+1
F(I)=B(I)-A(I)
FX(I)=F(I)*EB
WRITE(5,130)(FX(I),I=2,N+1)
FORMAT(1X,2HFX,5F12.6)
WRITE(5,125)(F(I),I=2,N+1)
FORMAT(1X,1HF,5F12.4)
C=0.0
DO 140 I=3,N
C=C+F(I)
CONTINUE
G=((F(2)+F(N+1))/(2.0+C)*AL
GM=G*XL*EB
ATA=G/SIN(W/2.0)
WRITE(5,160)G,GM,ATA
FORMAT(1X,'2HG=',F14.4,2X,'3HGM=',F14.4,2X,'4HATA=',F10.6)
STOP
END
--------------------Configuration: 000 - Win32 Debug--------------------
Linking...
.\Debug\00.obj : fatal error LNK1136: invalid or corrupt file
Error executing link.exe.
000.exe - 1 error(s), 0 warning(s)
DIMENSION B(30),A(30),Q(30),T(30),U(30),V(30),R(30),F(30),BX(30),TX(30),FX(30)
WRITE(5,2)
FORMAT(2X,4HREAD)
READ(5,*)B1,E,WH,RK,W1,TB,XL
N=29
NP=0
E1=1E-3
AL=1.0/29.0
EB=5.669E-8*TB**4
W=W1*3.14159/180.0
DO 10 I=2,N+1
Q(I)=B1
B2=Q(I)-.02*Q(I)
B1=B2
CONTINUE
X1=AL
NE=N
DO 30 I=2,N+1
W2=1.0-COS(W)*COS(W)
W3=X1*X1
W4=2.0*X1*COS(W)
S=0.0
Y1=AL/2.0+AL
DO 20 K=2,N
FA=Q(I)*X1*Y1*W2/(W3+Y1*Y1-W4*Y1)**1.5
S=S+FA
Y1=Y1+AL
CONTINUE
S1=0.0
Y2=AL*2.0
DO 25 K=2,N-1
FB=Q(I)*X1*Y2*W2/(W3+Y2*Y2-W4*Y2)**1.5
S1=S1+FB
Y2=Y2+AL
CONTINUE
Y3=AL
FC=Q(I)*X1*Y3*W2/(W3+Y3*Y3-W4*Y3)**1.5
FD=Q(I)*X1*W2/(W3+1.0-W4)**1.5
A(I)=(FC+4.0*S+2.0*S1+FD)/12.0*AL
X1=X1+AL
CONTINUE
DO 40 I=2,N+1
R(I)=RK*(Q(I)-A(I))
CONTINUE
U(1)=0.0
V1=1.0
DO 50 I=2,N
U(I)=1.0/(2.0-U(I-1))
V(I)=(V(I-1)-AL*AL*R(I))/(2.0-U(I-1))
CONTINUE
T(N+1)=V(N)/(1.0-U(N))
T(N)=T(N+1)
TX(N+1)=T(N+1)*TB
TX(N)=T(N)*TB
DO 60 K=2,N-1
I=N+1-K
T(I)=U(I)*T(I+1)+V(I)
TX(I)=T(I)*TB
CONTINUE
DO 70 I=2,N+1
B(I)=E*T(I)**4+(1.0-E)*A(I)
BX(I)=B(I)*EB
IF(ABS(B(I)-Q(I)).GE.E1) GO TO 70
NE=NE-1
CONTINUE
IF(NE.EQ.0) GO TO 90
DO 80 I=2,N+1
Q(I)=B(I)*WH+(1.0-WH)*Q(I)
CONTINUE
NP=NP+1
WRITE(5,85)NP,NE
FORMAT(1X,'3HNP=',I4,2X,'3HNE=',I4)
GO TO 100
WRITE(5,87)RK,W1,E,AL,XL,TB
FORMAT(1X,'3HRK=',F10.4,2X,'3HW1=',F8.2,2X,'2HE=',F6.4,2X,'3HAL=',F8.4,2X,'3HXL=',F8.4,2X,'3HTB=',F8.2)
WRITE(5,95)(BX(I),I=2,N+1)
WRITE(5,94)(B(I),I=2,N+1)
FORMAT(1X,1HB,5F12.4)
FORMAT(1X,2HBX,5F12.4)
WRITE(5,110)(TX(I),I=2,N+1)
FORMAT(1X,2HTX,5F12.4)
WRITE(5,105)(T(I),I=2,N+1)
FORMAT(1X,1HT,5F12.4)
DO 120 I=2,N+1
F(I)=B(I)-A(I)
FX(I)=F(I)*EB
WRITE(5,130)(FX(I),I=2,N+1)
FORMAT(1X,2HFX,5F12.6)
WRITE(5,125)(F(I),I=2,N+1)
FORMAT(1X,1HF,5F12.4)
C=0.0
DO 140 I=3,N
C=C+F(I)
CONTINUE
G=((F(2)+F(N+1))/(2.0+C)*AL
GM=G*XL*EB
ATA=G/SIN(W/2.0)
WRITE(5,160)G,GM,ATA
FORMAT(1X,'2HG=',F14.4,2X,'3HGM=',F14.4,2X,'4HATA=',F10.6)
STOP
END
