Fortran 95简单教程(
Implicit integer (A,B,C) !A、B、C开头的都被视为整型数
Implicit integer(A-F,I,K) !A到F及I、K开头的变量都视为整型数
Implicit real(M-P) !M到P开头的变量都视为浮点数
Implicit none !关闭默认类型功能,所有变量都要事先声明
|
Program ex
Implicit none
Real ::pi
Parameter(pi = 3.14129)
Write(*,”(F4.2)”) sin(pi/6)
end
|
Fortran 90 | Fortran 77 |
program ex90
implicit none
integer ::a=1
real ::b=2.0
complex ::c=(1.0,2.0)
character (len=20)::str="Hello Acuzio!"
write (*,*) a,b,c,str
end
|
program ex77
implicit none
integer a
real b
complex c
character (len=20) str
data a,b,c,str/1,2.0,(1.0,2.0),’Hello ‘/
write (*,*) a,b,c,str
end
|
Integer a,b
Equivalence(a,b)
|
Type ::person
Character(len=30)::name
Integer ::age
Integer ::length
Integer ::weight
End type person
|
Type(person) ::a!声明一个person类型的变量
a%name !引用person中的name
|
If(逻辑判断式) then
……
End if
|
If(逻辑判断式) then
……
Else
……
End if
|
Fortran 90 | Fortran 77 | |||
== | 判断是否“相等” | .eq. | 判断是否“等于” | |
/= | 判断是否“不相等” | .ne. | 判断是否“不等于” | |
> | 判断是否“大于” | .gt. | 判断是否“大于” | |
>= | 判断是否“大于或等于” | .ge. | 判断是否“大于或等于” | |
< | 判断是否“小于” | .lt. | 判断是否“小于” | |
<= | 判断是否“小于或等于” | .le. | 判断是否“小于或等于” |
.and. | 交集,如果两边的表达式都成立,整个表达式就成立 |
.or. | 并集,两边的表达式只要有一个成立,整个表达式就成立 |
.not. | 逻辑反向,如果后面的表达式不成立,整个表达式就成立 |
.eqv. | 两边表达式的逻辑运算结果相同时,整个表达式就成立 |
.neqv. | 两边表达式的逻辑运算结果不同时,整个表达式就成立 |
If(条件1) then
……
Else if(条件2) then
Else
……
End if
|
Select case(变量)
Case(数值)
……
Case(数值2)
……
Case default
……
End select
|
Integer, parameter ::index =1
Integer, parameter ::counts =100
Do index,counts,1
……
End do
|
Real,parameter ::weight =45.0!答案
Real,parameter ::e=0.001!误差
Real ::guess
Do while(abs(guess-weight)>e)
Write(*,*) “Weight”
Read(*,*) guess
End do
|
integer A(5)
Data a /1,2,3,4,5/
|
Integer a(5)
Data a /5*3/ !5个3
|
Integer A(5)
Integer i
Data(A(i),i=2,4) /2,3,4/
!这是一个隐含式循环,I会从2增加到4,依照顺序到后面取数字。初值设定结果为A(2)=2、A(3)=3、A(4)=4,A(1)和A(5)没有设定
|
Fortran 95简单教程(相关推荐
- python在数据分析的应用_Python运用于数据分析的简单教程
这篇文章主要介绍了Python运用于数据分析的简单教程,主要介绍了如何运用Python来进行数据导入.变化.统计和假设检验等基本的数据分析,需要的朋友可以参考下 我这里来分享一下如何通过Python来 ...
- python-ABM-mesa库:Agent Based Model 简单教程:可视化与排队论
python-mesa:Agent Based Model 简单教程 教程链接:https://mesa.readthedocs.io/en/latest/tutorials/intro_tutori ...
- ASP.NET Core 异常和错误处理 - ASP.NET Core 基础教程 - 简单教程,简单编程
原文:ASP.NET Core 异常和错误处理 - ASP.NET Core 基础教程 - 简单教程,简单编程 ASP.NET Core 异常和错误处理 上一章节中,我们学习了 ASP.NET Cor ...
- idea 从svn导入多个项目_IDEA导入项目简单教程
该教程用于IDEA初学者导入eclipse项目,或者导入其他已经写好的Java源程序的简单教程. 我们用IDEA打开一个已经写好的项目源文件时,如果没有配置好,就会出现:JDK配置失误报错.程序无法启 ...
- expect简单教程
expect简单教程 一.概述 expect是Unix系统中用来进行自动化控制和测试的软件工具,由Don Libes制作,作为Tcl脚本语言的一个扩展,应用在交互式软件中如telnet,ftp,Pas ...
- ASP.NET Core macOS 环境配置 - ASP.NET Core 基础教程 - 简单教程,简单编程
ASP.NET Core macOS 环境配置 - ASP.NET Core 基础教程 - 简单教程,简单编程 原文:ASP.NET Core macOS 环境配置 - ASP.NET Core 基础 ...
- Git和Github简单教程
网络上关于Git和GitHub的教程不少,但是这些教程有的命令太少不够用,有的命令太多,使得初期学习的时候需要额外花不少时间在一些当前用不到的命令上. 这篇文章主要的目标是用较少的时间学习Git和Gi ...
- ASP.NET Core Razor 标签助手 - ASP.NET Core 基础教程 - 简单教程,简单编程
原文:ASP.NET Core Razor 标签助手 - ASP.NET Core 基础教程 - 简单教程,简单编程 ASP.NET Core Razor 标签助手 上一章节我们介绍了视图导入,学习了 ...
- ASP.NET Core 登录登出 - ASP.NET Core 基础教程 - 简单教程,简单编程
ASP.NET Core 登录登出 - ASP.NET Core 基础教程 - 简单教程,简单编程 原文:ASP.NET Core 登录登出 - ASP.NET Core 基础教程 - 简单教程,简单 ...
- wcf简单教程(10) ajax调用,wcf简单教程(10) ajax调用
wcf简单教程(10) ajax调用 [2021-02-11 16:23:59] 简介: php去除nbsp的方法:首先创建一个PHP代码示例文件:然后通过"preg_replace(&q ...
最新文章
- PHP 5.4 的新特性
- android沉浸代码,3秒钟搞定Android沉浸式状态栏
- 工作学习资料备份记录
- 力扣 两两交换链表中的节点
- ofo 回应假装老外秒退押金;董明珠雷军十亿赌约到期;高通苹果摩擦再升级 | 极客头条...
- nyoj--82--一笔画问题
- apache无权限访问(You don't have permission to access /docs/index.html on this server)
- 321. Create Maximum Number
- Latex符号查询网站
- linux终端文件保存,Linux 终端中命令输出保存到文件中的方法
- froglt教你使用色相环配色(原创理论)
- 雷军,扎克伯格,乔布斯等巨佬的办公桌
- java导入excel数据为树形处理
- 统一社会信用代码校验和生成
- 【总结】仰望星空,脚踏实地 2017.09-2018.02
- 安装VC 6.0,出现 DOSX.EX must be in your AUTOEXEC.NT的信息
- PB 中获取时间的方法
- 基于萤火虫优化算法的图像分割
- 用windows10电脑升级ipad系统
- git 错误error: failed to push some refs to