Fortran的主要版本差别Word下载.docx
《Fortran的主要版本差别Word下载.docx》由会员分享，可在线阅读，更多相关《Fortran的主要版本差别Word下载.docx（20页珍藏版）》请在冰豆网上搜索。
续行，放在该行末或下行初。
以下都是讨论Fortran90。
3、Fortran的一些特点，和C的一些不同
其实很多，在下面涉及具体方面时可以看到。
这里只是大致提一些。
（1）不分大小写
（2）每句末尾不必要写分号
（3）程序代码命令间的空格没有意义
（4）不像C，Fortran不使用{}
（5）数据类型多出了复数和逻辑判断类型。
比如复数类型
complex:
:
a!
声明复数的方法。
复数显然方便了科学计算，满足了工程方面
的需求
a=（1.0,2.0）!
a=1+i
（6）多出了乘幂运算（**）。
乘幂除了整数还可以是实数形式。
如开方，开立方
a=4.0**0.5，a=8.0**（1.0/3.0）。
（7）数组有一些整体操作的功能；
可以方便的对部分元素进行操作
（8）有些情况下可以声明大小待定的数组，很实用的功能
4、Fortran的基本程序结构
先看一看所谓的"
HelloFortran"
程序。
programmain!
程序开始，main是program的名字，完全自定义
write（*,*）"
Hello"
!
主程序
stop!
终止程序
end[program[main]]!
end用于封装代码，表示代码编写完毕。
[]中的内容可省略，下同。
再看一段实用一些的程序，好有点感性认识。
程序用于计算圆柱的表面积，要求输入底面
半径和
高。
其中展示了Fortran的一些特色用法。
程序摘自维基。
其实是一个叫
的网上引
用的维基的网页。
推荐去看看!
能查到不少有意思的东西。
programcylinder!
给主函数起个名字
Calculatetheareaofacylinder.
Declarevariablesandconstants.
constants=pi
variables=radiussquaredandheight
implicitnone!
Requireallvariablestobeexplicitlydeclared
这个一般都是要写上的。
下面会进一步说明。
integer:
ierr
character:
yn
real:
radius,height,area
real,parameter:
pi=3.1415926536!
这是常量的声明方法
interactive_loop:
do!
do循环，Fortran中的循环可以加标签，如d
o前
面的interactive_loop就是标签
Prompttheuserforradiusandheight
andreadthem.
write（*,*）'
Enterradiusandheight.'
屏幕输出
read（*,*,iostat=ierr）radius,height!
键盘输入。
isotat的值用
于判断
输入成功否。
Ifradiusandheightcouldnotbereadfrominput,
thencyclethroughtheloop.
if（ierr/=0）then
write（*,*）'
Error,invalidinput.'
cycleinteractive_loop!
cycle相当于C里的continue
endif
Computearea.The**means"
raisetoapower."
area=2*pi*（radius**2+radius*height）!
指数运算比C方便
Writetheinputvariables（radius,height）
andoutput（area）tothescreen.
write（*,'
（1x,a7,f6.2,5x,a7,f6.2,5x,a5,f6.2）'
）&
&
表示续行。
这里
还显示了格式化输出
'
radius='
radius,'
height='
height,'
area='
area
yn='
yn_loop:
内嵌的另一个do循环
Performanothercalculation?
y[n]'
read（*,'
（a1）'
）yn
if（yn=='
y'
.or.yn=='
Y'
）exityn_loop
n'
N'
）exitinteractive_loop
enddoyn_loop!
结束内嵌do循环
enddointeractive_loop
endprogramcylinder
Fortran程序的主要结构就是这样了。
一般还会有些module的部分在主函数前，函数在主函
数后。
三、数据类型及基本输入输出
1、数据类型，声明及赋初值
（1）integer：
短整型kind=2,长整型kind=4
integer（[kind=]2）:
a=3
如果声明成integer:
a，则默认为长整型。
在声明并同时赋初值时必须要写上；
类型名后面有形容词时也必须有；
其他情况可
略去
所谓形容词，可以看一下这个。
比如声明常数
real，parameter:
pi=3.1415926。
parameter就是形容词。
（2）real：
单精度kind=4（默认），双精度kind=8
real（[kind=]8）:
a=3.0
还有指数的形式，如1E10为单精度，1D10为双精度
（3）complex单精度和双精度
complex（[kind=]4）b
（4）character
character（[len=]10）c!
len为最大长度
（5）logical
logical*2:
d=.ture.（等价于logical
（2）:
d=.ture.）
（6）自定义类型type：
类似于C中的struct
Fortran77中给变量赋初值常用DATA命令，可同时给多个变量赋初值
dataa,b,string/1,2.0,'
fortran'
/
与C不同的是，Fortran中变量不声明也能使用,即有默认类型（跟implicit命令有关）。
按
照默认的
规定，以i,j,k,l,m,n开头的变量被定义为integer,其余为real。
取消该设置需在程序声明
部分之前
加implicitnone。
彭国伦建议一般都使用该语句。
另一点关于声明的不同是Fortran有"
等价声明"
：
integera,b
equivalence（a,b）
使得a,b使用同一块内存。
这样可以节省内存；
有时可精简代码。
如：
equivalence（很长名
字的变量
比如三维数组的某个元素，a），之后使用a来编写程序就简洁多了。
2、基本输入输出
输入：
read（*,*）a!
从键盘读入
输出：
text"
在屏幕上输出。
Fortran77用'
text'
。
Fort
ran90
一般"
"
和'
都可
print*，"
只能屏幕输出
（*,*）完整写为（unit=*,fmt=*）。
其中unit为输入/输出位置，如屏幕，文件等；
fmt为
格式。
如
果这两项都写成*，则按默认的方式进行，即上面描述的。
print后面的*表示按默认格式输
出。
四、流程控制
1、运算符
（1）逻辑运算符
==/=>
>
=<
<
=!
Fortran90用法
.EQ..NE..GT..GE..LT..LE.!
Fortran77用法
（2）涉及相互关系的集合运算符
.AND..OR..NOT..EQV..NEQV.
仅.NOT.连接一个表达式，其余左右两边都要有表达式（可以是logical类型的变量）
.EQV.：
当两边逻辑运算值相同时为真，.NEQV.：
当两边逻辑运算值不同时为真
2、IF
（1）基本：
if（逻辑判断式）then
……
endif
如果then后面只有一句，可写为
if（逻辑判断式）……!
then和endif可省略
（2）多重判断：
……
elseif
else
endif
（3）嵌套：
if（逻辑判断式）then
elseif（逻辑判断式）then
else
endif!
没必要跟C语句多时用{}了，因为有endif
（4）算术判断：
programexample
implicitnone
realc
write（*,*）"
inputanumber"
read（*,*）c
if（c）10,20,30!
10,20和30为行代码,根据c小于/等于/大于0，执行10/20/30行的程
序
10write（*,*）"
A"
goto40!
goto可实现跳到任意前面或后面的行代码处，但用多了破坏程序结
构
20write（*,*）"
B"
goto40
30write（*,*）"
C"
40stop
end
3、SELECTCASE
类似于C的switch语句
selectcase（变量）
case（数值1）!
比如case（1:
5）代表1<
=变量<
=5会执行该模块
……!
case（1，3，5）代表变量等于1或3或5会执行该模块
case（数值2）!
括号中数值只能是integer,character或logical型常量，不能
是real型
casedefault
endcase
4、PAUSE,CONTINUE
pause暂停程序执行，按enter可继续执行
continue貌似没什么用处，可用作封装程序的标志
五、循环
1、DO
docounter=初值,终值,增/减量!
counter的值从初值到终值按增/减量变
升级会员 