求大神帮忙讲解一下这个fortran程序,

学习时间:2026-03-29 17:31:37 阅读：8975

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

提问回复

最佳回答

潇洒的西牛

2026-03-29 17:31:37



从文件1中读取有关数据,直到数据读到了NN值为0（猜想）根据原有的EA(N+1,2)数据来决定R1的值。话说。咱别那么懒~~~~~自已好好看看,这段代码很简单~~~~~~

求大神帮忙讲解一下这个fortran程序,

最佳回答

最新回答共有2条回答

疯狂的过客

热门文章

猜你喜欢