ELSE IF ( NAME(1:2) .EQ. ’~/’ ) THEN CALL GETENV( ’HOME’, PREFIX ) FULLNAME = PREFIX(:LNBLNK(PREFIX)) // 1 NAME(2:LNBLNK(NAME)) ELSE CALL GETCWD( PREFIX ) FULLNAME = PREFIX(:LNBLNK(PREFIX)) // 1 ’/’ // NAME(:LNBLNK(NAME)) ENDIF RETURN END 编译并运行GetFilNam...
可行。事实上，选择执行语句有多种搭配方式，非常灵活，例如：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 关于选择执行语句，还...
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...
26、hen str(icha:icha) = char(icval-diff) end if end do return end s 27、ubroutine UpCase10. CVF中源代码信息浏览默认情况下,代码信息浏览是失效的(Go to Definition/Reference都不起作用),你可以将其启用:1. Project/Settings/Fortran, 选中Generate Source Browse Information。2. 选BrowseInfo卡页,...
cycle 相当于C里的continueend if! Compute area. The ** means "raise to a power."area=2*pi*(radius**2+radius*height)! 指数运算比C方便! Write the input variables (radius, height) and output (area) to the screen.write(*,'(1x,a7,f6.2,5x,a7,f6.2,5x,a5,f6.2)')&!"&"表示续行...
1、12一、引言一、引言 在在FORTRAN77中,用块中,用块IF结构来实现选择结构,结构来实现选择结构,其形式为:其形式为: IF(条件)条件)THEN then 块块 ELSE else 块块 END IF3 例:计算职工工资。正常工资例:计算职工工资。正常工资rate (yuan/h),一周超过一周超过40 hours时,超过部分按时,超过部分按1.5 rate...
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...
在Fortran中,stop语句用于终止程序的执行。它不需要与endif语句配对使用,因为Fortran中没有endif语句。 stop语句可以在程序的任何位置使用,用于提前终止程序的执行。它可以带...
以上两种写法完全等效，需要指出的是：FORALL只能用于数组操作，也就是说，赋值符号两边只能是数组。然而...
IF(B.LT.2.*R)THEN WRITE(*,10) 10 FORMAT(‘Error message:B less than 2*R’) ELSE WRITE(*,’(”AREA:”,F10.2)’) $ B*B―3.14159*R*R ENDIF END 本例中,第1行为注释行,第5行为带标号的语句,第7―8行为连续行,符号$为续行标志。