#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 关于选择执行语句，还...
else print*,'没有这个字符，请核对清楚再输入查询'print*,CHAR_num ENDIF enddo !character character string dispose Sub_String=CHAR_50(:8)CHAR_60=Sub_String//'+'//CHAR_50(:12)!character character string Logic operate CHAR_4=CHAR_50(:4)CHAR_6=CHAR_50(:6)IF(CHAR_4.EQ.CHAR_6) ...
新知识:可以给if块取名 judge: & if( 判断 ) then … else … endif judge 判断程序的应用。以下代码涉及之前学习到的知识,如新建文档,将内容输出到文档,合并字符,if判断 program test implicit none integer :: score character(len=8) :: now call DATE_AND_TIME(now) write(*,*) '请输出成绩:' re...
1.if...then 这是最简单的if语句结构。 if...then的语句结构如下: if (logical expression) then statement endif 还可以对if块进行命名: [name:] if (logical expression) then ! various statements . . . 2.if...then...elseif...then...else语句的基本语法如下: ...
else if(dlt.EQ.0) then x1=(-q/2)**(1/3.0)+(-q/2)**(1/3.0)x2=omig*((-q/2)**(1/3.0))+omig2*((-q/2)**(1/3.0))x3=omig2*((-q/2)**(1/3.0))+omig*((-q/2)**(1/3.0))y1=x1-b/(3*a)y2=x2-b/(3*a)y3=x3-b/(3*a)write(*,*)" 求得根的...
Fortran PPT课件 (6)IF基本用法 2.2IF分支结构 IF基本用法 IF（逻辑判断式）THEN…逻辑成立时，才会执行这里的程序代码……ENDIF 2.2IF分支结构 单句执行命令时，可写为：If(speed>100.)write(*,*)“Slowdown”2.2IF分支结构 双分支条件 IF（逻辑判断式）THEN……逻辑成立，执行这一块代码…ELSE……...
default10ELSEIF(nargin==1) THEN11CALL getarg(1, FILEIN); !Set input file only12ELSE13CALL getarg(1, FILEIN); !Set both input and output files14CALL getarg(2, FILEOUT);15ENDIF1617<Other code>1819stop20END MAIN 3. 对于Fortran 2003以后的版本,用如下函数获取参数...
1、12一、引言一、引言 在在FORTRAN77中,用块中,用块IF结构来实现选择结构,结构来实现选择结构,其形式为:其形式为: IF(条件)条件)THEN then 块块 ELSE else 块块 END IF3 例:计算职工工资。正常工资例:计算职工工资。正常工资rate (yuan/h),一周超过一周超过40 hours时,超过部分按时,超过部分按1.5 rate...
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...