在DO和END DO之间的语句块不确定地重复执行,知道逻辑表达式变为真,执行了EXIT语句。EXIT语句执行后,...
赋值符号两边只能是数组。然而在实际使用中,FORALL结构的运算速度并不比do循环快,有时甚至比do循环还...
print *, 'sum',y,' term=',i end DOWHILE语句 例子 read *, n j=int(sqrt(n*1.)); i=2 do while ((mod(n,i)/=0) .and. (i<=j)) i=i+1 end do if(i<j) then print *, '不是素数,可被',i,'整除' else print *, '是素数' end if end 例子 !碾转相除法:如27和6,先用...
(K=1,J=1)(K=1,J=2)(K=2,J=1)(K=2,J=2)的顺序 现在的语法不建议用 continue 结束.你的语句这样写更符合现代语法:Do k = 1 ,2 Do j = 1 ,2 End Do End Do
exit的功能是可以直接跳出一个正在进行的循环,不论是do 循环还是do while 循环,相当于python和C中的break。 1program sime23implicitnone4integer :: tn56tn=27print_tn :do8print *, tn9tn = tn+210if(tn>=200) exit print_tn11enddoprint_tn12pause1314end ...
没有区别的,等价的。Fortran77普遍使用“do和continue组合”,continue前面是有一个标号的,是一种老的处理方式
fortran编译器优化包含语句中的do循环 我有一个用于HPC的大型Fortran代码,其中有几个方程是在计算网格上求解的。因此,在源代码中的许多地方,都将嵌套的do循环循环在entair计算域上循环,shuch为doj = 1,number_of_point_in_yenddoen 浏览1提问于2022-10-11得票数 0 ...
do while(rep) ... ! 档rep为真时,一直执行循环体。 ... end do循环控制循环控制语句主要有CYCLE和EXIT。cycle命令可以略过循环程序模块中,cycle命令后面的所有程序代码,直接跳到循环的开头来进行下一次循环。exit的功能是直接跳出当前循环,不论是do循环还是do-while循环。循环还可以...
5 在编辑区中输入以下代码: program main integer A,B,C,D,E do A=1,9,1 do B=0,9,1 do C=0,9,1 do D=0,9,1 do E=0,9,1 if((10000*A+1000*B+100*C+10*D+E)*4 .eq. $ (10000*E+1000*D+100*C+10*B+A)) then write(*,100)A,B,C,D,E endif end do end do end...
The END DO statement is the delimiting statement of a Block DO statement. If the statement label is not specified in a DO statement, the corresponding terminating statement must be an END DO statement. You can branch to an END DO statement only from within the range of the DO loop that ...