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 :: ...
Fortran中的循环结构包括DO循环和DO WHILE循环。基本语句包括赋值语句、条件语句和IO语句。 1.DO循环结构: DO循环结构用于重复执行一段代码块,语法如下: DO variable = start, end, step !代码块 ENDDO 在循环开始前,将变量初始化为start的值,然后执行代码块。然后将变量增加step的值,并检查是否达到end的值,如果...
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函数 可将一维数组old_array转化...
$OMPparallelprivate(x)call cpu_time(x)print*,...!每个处理器都运行多次!$OMPend parallel 循环 每个变量都分开独立运行 !$OMPdodoi=1,1000,2...enddo!$OMPenddo 使用‘nowait’,可以让第二个运行等待第一次运行完成 !$OMPparallel!$OMPdodoi=1...enddo!$OMPenddonowait!$OMPdodoi=1,1000...!$OMP...
fortran的3个简单语句,有谁会fortran的解释下do i = 1,nz(i) = x(i) + y(i)enddodo i = 2,nz(i) = z(i - 1)×2enddodo i = 2,nz(i) = z(1)×2**(i - 1)enddo 答案 1) 对i循环计算数组将x(i)+y(i)的值赋给z(i) i取值从1~n2)对i循环(取2到n间隔1)将z(1~n-1...
do i = 1,nz(i) = x(i) + y(i)enddodo i = 2,nz(i) = z(i - 1)*2enddodo i = 2,nz(i) = z(1)*2**(i - 1)enddo 扫码下载作业帮搜索答疑一搜即得 答案解析 查看更多优质解析 解答一 举报 1) 对i循环计算数组将x(i)+y(i)的值赋给z(i) i取值从1~n2)对i循环(取2到n...
赋值符号两边只能是数组。然而在实际使用中,FORALL结构的运算速度并不比do循环快,有时甚至比do循环还...
selectcase(keywrod)case(A)...case(B)...casedefault...endselect do loop do i=1,n,2 !从1到n继续间隔为2的循环运行 ... !执行命令 enddo dowhile()...enddo 隐式循环 a=[(i,i=1,10)]相当于:doi=1,10a(i)=ienddo 署名的do循环 outer:doi...
do person = 1, number_of_people print *,person,'^I',weight(person),'^I', height(person) enddo end program ch0902 忘了改program名了,但是也证明了内部program的名称和外部文件名称可以不同,以外部文件名为准。 输出: (ps:输出有些杂乱,因为还没有掌握输出书写的一些方式。) ...
open(unit=1,file='gm_lc.inp',status='old')do j=1,nm_lc do m=m_ini,m_end read(1,*), bj_lc(j), gm_lc(m,j)enddo enddo 先进行内部m的循环,然后再进行外部j的循环。所以读入到文件中的数据,先是一维的一个,然后是一串二维的,然后再是一维的一个,再是一串二维的。二维...