Fortran中的循环结构包括DO循环和DO WHILE循环。基本语句包括赋值语句、条件语句和IO语句。 1.DO循环结构: DO循环结构用于重复执行一段代码块,语法如下: DO variable = start, end, step !代码块 ENDDO 在循环开始前,将变量初始化为start的值,然后执行代码块。然后将变量增加step的值,并检查是否达到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 ...
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 :: ...
13、iversity of Information Science & Technology24计算循环嵌套循环次数计算循环嵌套循环次数:M=0DO I=1,3,4DO J=4,19,4 M=M+1 PRINT *, M ENDDOENDDOEND运行结果气象程序设计及绘图气象程序设计及绘图课题组课题组南京信息工程大学南京信息工程大学 Nanjing University of Information Science & Technology25嵌...
1:!$OMPparallelprint*,...!每个处理器运行一次,多次运行!$OMPend parallel2:!$OMPparallelprivate(x)call cpu_time(x)print*,...!每个处理器都运行多次!$OMPend parallel 循环 每个变量都分开独立运行 !$OMPdodoi=1,1000,2...enddo!$OMPenddo ...
我现在和Fortran一起工作很长时间,但是我有一个问题,我找不到令人满意的答案。如果我有两个数组,并希望将其中一个复制到另一个数组中:...doj=0,100enddoreal,dimension(0:100,0:100) :: array1,array2array1 = array2 计算时间也有很大的 浏览3提问于2015-08-03得票数 3 ...
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函数 可将一维数组old_array转化成M行N列的二维数组,使用方式为:RESHAPE(old_array , [M,...
赋值符号两边只能是数组。然而在实际使用中,FORALL结构的运算速度并不比do循环快,有时甚至比do循环还...
= real(i) / 10.0 y = sin(x) write(10, *) x, y end do ! Close ...
1、DQdocounter=初值,终值,增/减量!counter的值从初值到终值按增/减量变,!counter每取一个值对应着一次循环。增/减量不写则认为1?循环主体也没有必要用?enddo?Fortran77中不是用enddo来终止,而是下面这样子:?do循环最后一行的行代码counter=初值,终值,增/减量??行代码!这是do的最后一行2、DOWHILEdowhile(逻辑...