求大神帮忙讲解一下这个fortran程序,
求大神帮忙讲解一下这个fortran程序,
DO 600 M=1,40
READ(1,*) NN,N,K1,M,L
IF(NN.EQ.0)THEN
GOTO 500
END IF
z
READ(1,*) (J(I),I=1,M)
DO I=1,N+1
READ(1,*) EA(I,1)
END DO
CA=EA(N+1,2)
IF (CA.LT.PI/18.0) THEN
R1=50
ELSE IF (CA.LT.PI/9.0)THEN
R1=10
ELSE IF(CA.LT.PI/6.0) THEN
R1=5
ELSE IF(CA.LT.PI/3.0) THEN
R1=2
ELSE IF (CA.GT.PI/3.0) THEN
R1=1
END IF