implicit none integer::i,j,k integer, parameter:: n = 3 do i=1,n do j=1,n if(i==j)cycle do k=1,n if(i==k.or.j==k)cycle write(*,*) 100*i+10*j+k enddo enddo enddo end ! 已经上机调试通过，请放心使用。program mainimplicit noneinteger, parameter:: n = 3int...
end program if_example1. 这里,因为作业做完了(homework_done是真的),所以就会输出“可以看动画片!” 再来看第二种情况。还是说放学回家这个事儿,如果作业没做完,妈妈可能会让你先把作业做完,不能看动画片。在Fortran语言里,就是这样写的: program if_example2. implicit none. logical :: homework_done =....
if(逻辑判断式)then……endif 如果then后面只有一句,可写为 if(逻辑判断式) ……!then和end if可省略 (2) 多重判断: if(条件1)then……elseif(条件2)then……elseif(条件3)then……else……endif (3) 嵌套: if(逻辑判断式)thenif(逻辑判断式)thenif(逻辑判断式)thenelseif(逻辑判断式)then……else...
intent(inout):: x if (x < n) then x = x + 1 y=y+x call sub1(x,y) end if end subroutine sub1end module module1program main use module1 real(4):: x = 0,y=0 print *, 'Enter
1、[Fortran权威指南/(英)奇弗斯(Chivers,I.),(英)斯莱索尔姆(Sleightholme,J.)著;陈宝国等译.–北京:人民邮电出版社,2009.10] 2、https://www.yiibai.com/fortran/fortran_basic_input_output.html 3、[Fortran 程序设计:第四版/(美)史蒂芬·查普曼著;王志强等译.-北京:中国电力出版社,2018.10(2022.8重印)]...
1if( isnan(ErrorObj) )then!如果实数ErrorObj是NAN,也就是not a number(不是数),则2ErrorObj=1e3003endif 1if(a==b)then2...3endif 1if(ErrorObj>10000000.0)then!如果误差是无穷大,那么为了提高效率,就重新初始化这个个体2...3else4...56endif ...
IF (条件1) THEN 块1 ELSE IF (条件2)THEN 块2 …… ELSE IF (条件N)THEN 块N ELSE 块N+1 ENDIF 2.3 用DO语句实现循环 基本形式如下,必须要ENDDO。 DO I=E1,E2 …… ENDDO 2.4 注意事项 在数组使用之前,必须要申明数组的维度,即dimension array(a) 否则会报错Fortran不知道是数组还是函数。
3 Fortran 程序设计3-选择结构 关于提交作业：1.将已经运行通过的若干Fortran源文件：*.f90（或者*.for）文件压缩2.压缩文件名请自己命名为：09大气+学号或者：09应气+学号 3.将压缩文件以附件发送到本人邮箱 关于作业：1.文件名——尽量用以英文字母开头的、包含英文以及英文书写状态下的数字和下划线等其它符号）...
16 if ( ioS /= 0 ) Exit 17 GetFileN = GetFileN + 1 18 End Do 19 Rewind( iFileUnit ) 20 Return 21 end function GetFileN 1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13. 14. 15. 16. 17. 18. 19. 20. 21.
4.1.2 固定格式源代码行 在固定格式源代码中,行的长度可以超过 72 个字符,但忽略第 73 列以后的任何内容。标准 Fortran 95 仅允许 72 个字符长的行。 4.1.3 制表符格式 f95固定格式源代码文本的定义如下: 如果第 1 列至第 6 列的任一列中有制表符,都会使该行成为制表符格式的源代码行。