#if:根据条件表达式的值决定是否执行后续代码 #if defined(PI) write(*,*) "Value of PI is defined" #endif 复制代码 #else:与#if或#ifdef/#ifndef一起使用,指定在条件不成立时执行的代码 #ifdef DEBUG write(*,*) "Debugging information" #else write(*,*) "No debugging information" #endif 复制...
可行。事实上，选择执行语句有多种搭配方式，非常灵活，例如：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 关于选择执行语句，还...
judge:&if(判断)then…else…endifjudge 判断程序的应用。以下代码涉及之前学习到的知识,如新建文档,将内容输出到文档,合并字符,if判断 programtestimplicit noneinteger::scorecharacter(len=8)::nowcallDATE_AND_TIME(now)write(*,*)'请输出成绩:'read(*,*)scoreopen(1,file=now//'.dat',status='new',act...
第一个endif对应第二个if，第二个endif对应第一个if。if。。。else。。。是一种选择结构，if。。。elseif。。。else是一种选择结构，一种选择结构后要有一个endif，上面是if。。。else。。中嵌套了if。。。elseif。。。else，所以你区分一下就行了。
!dec$ if defined(VARIABLE_NAME) ...!dec$ else ...!dec$ endif Translate 0 Kudos Copy link Reply Steven_L_Intel1 Employee 12-31-2008 05:36 AM 3,061 Views You can use the #if syntax but have to enable the "Fortran Preprocessor" option - it is off by defau...
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...
ELSE CALL GETCWD( PREFIX ) FULLNAME = PREFIX(:LNBLNK(PREFIX)) // 1 ’/’ // NAME(:LNBLNK(NAME)) ENDIF RETURN END 编译并运行GetFilNam.f,结果如下: demo%pwd/home/users/auser/subdir demo%f95 -o getfil GetFilNam.fdemo%getfilENTER FILE NAME:getfilPATH IS: /home/users/auser/subdir...
1、1fortran逻辑运算和选择结构2fortran逻辑运算和选择结构一、引言一、引言 在在FORTRAN77中,用块中,用块IF结构来实现选择结构,结构来实现选择结构,其形式为:其形式为: IF(条件)条件)THEN then 块块 ELSE else 块块 END IF3fortran逻辑运算和选择结构 例:计算职工工资。正常工资例:计算职工工资。正常工资rate ...
仅.NOT.连接一个表达式,其余左右两边都要有表达式(可以是logical类型的变量)!.EQV.:当两边逻辑运算值相同时为真,.NEQV.:当两边逻辑运算值不同时为真2、IF(1)基本:?if(逻辑判断式)thenendif?如 11、果then后面只有一句,可写为if(逻辑判断式)!then和endif可省略(2)多重判断:if(条件1)thenelseif(条件2)...
Fortran PPT课件 (6)IF基本用法 2.2IF分支结构 IF基本用法 IF（逻辑判断式）THEN…逻辑成立时，才会执行这里的程序代码……ENDIF 2.2IF分支结构 单句执行命令时，可写为：If(speed>100.)write(*,*)“Slowdown”2.2IF分支结构 双分支条件 IF（逻辑判断式）THEN……逻辑成立，执行这一块代码…ELSE……...