exit的功能是可以直接跳出一个正在进行的循环,不论是do 循环还是do while 循环,相当于python和C中的break。 1program sime23implicitnone4integer :: tn56tn=27print_tn :do8print *, tn9tn = tn+210if(tn>=200) exit print_tn11enddoprint_tn12pause1314end 1program odd_num23implicitnone4integer :: ...
当一个程序出现多层循环,对coder们来说这无疑是讨厌的,尤其是要跳出某一层循环就更加崩溃了,面对那么多的do-end do,怎么跳?到底怎么跳? Fortran语法允许在do循环前命名,这样一来就比较好识别了。 下面举个例子。 一个二维数组每个元素都乘以2,到0元素时停止计算。 注意分别跳出loop_i和loop_j时m的不同。 ...
赋值符号两边只能是数组。然而在实际使用中，FORALL结构的运算速度并不比do循环快，有时甚至比do循环还...
(1)赋值语句初始化 a)嵌套DO循环 对于M×N二维数组,如果数据有规律,示意如下: INTEGER,DIMENSION(M,N)::arrayDOi=1,M! 这是以行为主顺序存储DOj=1,Narray(i,j)=jEND DOEND DOINTEGER,DIMENSION(M,N)::arrayDOi=1,N! 这是以列为主顺序存储DOj=1,Marray(j,i)=jEND DOENDDO b)RESHAPE函数 可将一...
integer::counter=1do while(count<10>)! ...end do!while控制循环的进行 3.4.3 循环控制 ! cycle 命令 类似C++的continueinteger::counterdocounter=start,end,step! start, end, step 都可以是常量或者变量, 【step可以省略】!... ! 循环体cycle! 结束本次循环进入下一次end do! exit 命令 类似C++的br...
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...
while (logical expression) do statement 1 . . statement n endwhile 或是 dowhile ( logical expression ) statement 1 . . statement n enddo h、函数(function)与子程序(subroutine)结构: 在数值计算上重复多次的计算亦可独立写成一个函数或子程序结构,而当主程序需要时即可随时叫用,这样的一组程序称之为函...
end do end do end program array_operations_2 代码解释 二维数组定义: 定义了一个 n x m 的实数二维数组 matrix。 数组初始化: 使用嵌套的 do 循环初始化二维数组 matrix,元素的值是行索引 i 和列索引 j 的和。 数组遍历和输出: 使用嵌套的 do 循环遍历并打印二维数组 matrix 的元素。
DO ... IF (logical_expr) EXIT ... END DO 5.DO WHILE循环: DO WHILE (logical_expr) statement 1 ... statement n END DO 6.迭代DO循环,类型C中的for循环: DO index=istart,end,incr statement 1 ... statement n END DO 其中index是一个整数变量,作为循环计数器使用,整数istart,iend和incr分别...
do ... if (expression) then cycle else exit end if end do cycle:表示忽略本轮循环剩余内容,直接进入下一轮循环 exit:(用于循环时)忽略循环剩余内容,跳出(指定)循环。 用其循环和退出特定署名的循环 outer:doi=1,10inner:doj=1,20if(conditionA)thencycle outerelseif(conditionB)thenexit outerendifendd...