在Fortran中,stop语句用于终止程序的执行。它不需要与endif语句配对使用,因为Fortran中没有endif语句。 stop语句可以在程序的任何位置使用,用于提前终止程序的执行。它可以带有一个可选的整数参数,用于指定程序终止的错误代码。如果省略该参数,则默认使用0作为错误代码。
if(逻辑判断式)then……end if 如果then后面只有一句,可写为 if(逻辑判断式)……!then和endif可省略 (2) 多重判断: if(条件1)then……else if(条件2)then……else if(条件3)then……else……end if (3) 嵌套: if(逻辑判断式)thenif(逻辑判断式)thenif(逻辑判断式)thenelse if(逻辑判断式)then……...
1、12一、引言一、引言 在在FORTRAN77中,用块中,用块IF结构来实现选择结构,结构来实现选择结构,其形式为:其形式为: IF(条件)条件)THEN then 块块 ELSE else 块块 END IF3 例:计算职工工资。正常工资例:计算职工工资。正常工资rate (yuan/h),一周超过一周超过40 hours时,超过部分按时,超过部分按1.5 rate...
可行。事实上,选择执行语句有多种搭配方式,非常灵活,例如:1. IF(A>=0) THEN ...ELSEIF(A<0) THEN ...ENDIF 2. IF(A>=0) THEN ...ELSE ...ENDIF 3. IF(A>=0) THEN ...ELSEIF(A<0) THEN ...ELSE !也就是说else后可以不跟判别语句和执行语句 ENDIF 关于选择执行语句,还...
should_be_true,msg,fname,iline)implicit nonelogical,intent(in)::should_be_truecharacter(len=*),intent(in)::msg,fnameinteger,intent(in)::ilineif(.not.should_be_true)thenwrite(*,*)'Assertion fail: "',msg,'" in file "',fname,'" at Line ',ilinestopendifreturnend subroutine#endif...
elseif (condition3) ... !执行命令 else ... endif condition 中可以使用 < , <=, ==(.eq. 相等), >=, > , /=(.ne. 不等) .and. , .not. , .or. 比较数组是,使用any 或者all select case selectcase(keywrod)case(A)...case(B)...casedefault...endselect do loop...
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...
2 然后定义文件路径并查询是否存在,不存在就创建fileDir = '.\03014\'inquire(file = trim(fileDir),EXIST=FEXIST)if(.not.FEXIST) then call system('md '//trim(fileDir)) write(*,*) 'New folder created'endif 3 定义文件名、后缀和文件序号书写格式fileName = &...
1.Fortran 的 if 语句需要 then 和 endif。如果没有,则必须写为一行。因此 if(abs(f)<=1e-10)print*,k 需改为 if(abs(f)<=1e-10) then print*,k end if 或改为 if(abs(f)<=1e-10) print*,k 2.Fortran 的循环变量应该是整数。所以 k 做为循环变量,并且从浮点数循环到浮点数...
语法就是这样的。比如:if (a(i,1).gt.amax) amax=a(i,1)是对的。如果换成另一种形式,写成 if (a(i,1) .gt. amax) then amax=a(i,1)endif.也是对的。