第一行的 do 107 跟后面的107 continue ,这两个都是107,第四行goto 107 ,15行也是goto 107 ,到底这两个goto都是去了哪呢? 相关知识点: 试题来源: 解析 那个数字,是作为标记的.107 continue,意思就是这一行的名字叫107,内容是continue.所以,其他语句出现goto 107的,就是去107这一行.do 107,就是循环体...
一段fortran程序,do后面的数字跟continue前面的数字各有什么作用?do 107 ib=1,nnbij=ngs(ib,temp3)kb=ngb(ib,temp3)if(bv(kb).eq.0) goto 107if(nc(ij).ne.nc(temp3)) thenif(isp(ij).eq.1) thennstack=nstack+1istn(nstack)=ijisp(ij)=2nc(ij)=nc
If radius and height could not be read from input, then cycle through the loop.if(ierr /=0)thenwrite(*,*)'Error, invalid input.'cycleinteractive_loop!cycle 相当于C里的continueendif! Compute area. The ** means "raise to a power."area =2* pi * (radius**2+ radius*height)!指数运算...
If radius and height could not be read from input, then cycle through the loop.if(ierr/=0)thenwrite(*,*)'Error, invalid input.'cycleinteractive_loop!cycle 相当于C里的continueend if! Compute area. The ** means "raise to a power."area=2*pi*(radius**2+radius*height)! 指数运算比C方便!
endcase4、PAUSE,CONTINUEpause暂停程序执行，按enter可继续执行continue貌似没什么用处，可用作封装程序的标志五、循环1、DOdocounter=初值,终值,增/减量!counter的值从初值到终值按增/减量变，……!counter每取一个值对应着一次循环。增/减量不写则认为1………!循环主体也没有必要用{}……enddoFortran77中不是用...
记数变量 = 起始值,终止值,步距 ”语句,如DO 标号 ,N=1,100,1程序块标号 CONTINUEDO WHILE 语句DO 标号程序块标号 CONTINUEDO UNTIL 语句DO 标号 ,UNTIL ( 逻辑表达式) ”语句,如DO 标号程序块标号 CONTINUE8 FORTRAN77内部函数INT(X)将数字串或数值X 转换为整型数REAL(X)将数字串或数值X 转换为实型...
字符串长度需要多少字符,就赋值多少数字给它 Program ex Character(len=20) string String = “Good morning.” Write(*,*) string String(6) = “evening.” !重新设置从第六个字符之后的字符串 Write(*,*) string end 上例中 string(1:2) = “GO” !字符串最前面两个字符会变成GO ...
DO 标号,UNTIL (逻辑表达式)〞语句,如 DO 标号,UNTIL(PI.GT.3.14159)程序块标号CONTINUE 8 FORTRAN77内部函数 INT(X) 将数字串或数值X转换为整型数 REAL(X) 将数字串或数值X转换为实型数 DBEL(X) 将数字串或数值X转换为双精度型数 CMPLX(X) 将数字串或数值X转换为复型数 CHAR(X) ...
4、PAUSE, CONTINUE pause暂停程序执行,按enter可继续执行 continue貌似没什么用处,可用作封装程序的标志 五、循环 1、DO do counter=初值, 终值, 增/减量!counter的值从初值到终值按增/减量变, ……!counter每取一个值对应着一次循环。增/减量不写则认为1 ...
用tecplot啊，同道中人~~fmt="(3x,I,3x,I,3x,I)"详细用法如下程序：program ts character(len=50)::fmt fmt="(3x,I,3x,I,3x,I)"open(11,file="tst.txt",status="old")!tst.txt 是你的那个文件 do I=1,6 read(11,*)enddo read(11,fmt)I,J,K write(*,*)I,J,K pause en...