Fortran 95学习笔记

Exit功能：可以直接“跳出”一个正在运行的循环
署名循环
循环还可以取“名字”，这个用途是可以在编写循环是能明白地直到End do这个描述的位置是否正确，尤其是在多层循环当中。署名的循环也可以配合Cycle、exit来使用。
数组（Array）
数组的声明方法：Datatype name(size)
赋初值：
real ::a,b
real ::add
add =a+b
return
end
全局变量
Common是fortran77使用“全局变量”的方法，它用来定义一块共享的内存空间
program ex
implicit none
integer ::a,b
common a,b !定义a，b是全局变量中的第1及第2个变量
Character(len=30) ::name
Integer ::age
Integer ::length
Integer ::weight
End type person
Type(person) ::a !声明一个person类型的变量
a%name !引用person中的name
Kind的使用
Kind描述如果搭配上一些Fortran90的库函数，可以增加程序代码的“跨平台”能力
Implicit real(M-P) !M到P开头的变量都视为浮点数
Implicit none !关闭默认类型功能，所有变量都要事先声明
常数的声明方法（Parameter）
Program ex
Implicit none
Real ::pi
Parameter(pi = 3.14129)
Write(*,”(F4.2)”) sin(pi/6)
.eqv.两边表达式的逻辑运算结果相同时，整个表达式就成立
.neqv.两边表达式的逻辑运算结果不同时，整个表达式就成立
多重判断
If(条件1) then
……
Else if(条件2) then
Else
……
End if
浮点数及字符的逻辑运算
使用浮点数来做逻辑运算时，要避免使用“等于”的判断。因为使用浮点数做计算时，有效位数是有限的，难免会出现计算上的误差，理想中的等号不一定会成立。要使用浮点数来做“等于”的逻辑判断时，最好用其他方法来取代（ABS这个函数是取绝对值。使用误差小于某一个值来进行判断）
>=判断是否“大于或等于”.ge.判断是否“大于或等于”
<判断是否“小于”.lt.判断是否“小于”
<=判断是否“小于或等于”.le.判断是否“小于或等于”
逻辑判断式
.and.交集，如果两边的表达式都成立，整个表达式就成立
.or.并集，两边的表达式只要有一பைடு நூலகம்成立，整个表达式就成立
.not.逻辑反向，如果后面的表达式不成立，整个表达式就成立
a=1
b=2
call showCommon()
end
subroutine showCommon()
implicit none
integer ::num1,num2
common num1,num2 !定义num1,num2是全局变量中的第1及第2个变量
write(*,*) num1,num2
return
在fortran77中则要使用Data命令设置初值
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!"
IF基本用法
If(逻辑判断式) then
……
End if If(逻辑判断式) then
……
Else
……
End if
逻辑运算符：
Fortran 90 Fortran 77
==判断是否“相等”.eq.判断是否“等于”
/=判断是否“不相等”.ne.判断是否“不等于”
>判断是否“大于”.gt.判断是否“大于”
If(.not. allocated(a))then
Allocate(a(5))
End if
函数
子程序（subroutine）的使用
子程序代码以subroutine开头，它同样要取一个名字，以end或end subroutine来结束。严格地讲，end subroutine后还可以再接上这个子程序的名字
DO循环
Integer, parameter ::index = 1
Integer, parameter ::counts = 100
Do index,counts,1
……
End do Real,parameter ::weight =45.0 !答案
Real,parameter ::e=0.001 !误差
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）没有设定
l每个case中所使用的数值必须是固定的常量，不能使用变量
Pause, continue, stop
Pause的功能就跟它的字母意义相同，程序执行到pause时，会暂停执行，直到用户按下enter键才会继续执行。
Continue无实际用途
Stop结束程序执行
Fortran 90的库中，IAND用来做二进制的AND计算，IOR用来做二进制的OR计算
Integer,allocatable ::a(:) !声明一个可变大小的一位数组
Integer ::students
Read(*,*) students
Allocate(a(students)) !配置内存空间
计算机的内存是有限的，当然也就不能无限制地去要求空间来使用。所以allocate命令在内存满载是，有可能会要求不到使用空间。Allocate命令中可以加上stat的文本框得知内存配置是否成功
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
Real ::guess
Do while(abs(guess-weight)>e)
Write(*,*) “Weight”
Read(*,*) guess
End do
循环控制：
Cycle和exit
Cycle命令可以略过循环的程序模块中，在cycle命令后面的所有程序代码，直接跳回循环的开头来进行下一次循环
Fortran 90提供库函数来判断所要记录的数值值域范围所需要的kind值
Selected_int_kind(n) :返回如果想要记录n位整数时，所应声明的kind.返回-1时，表示无法提供所想要的值域范围
Selected_real_kind(n,e) :返回如果想要能够记录具有N位有效位数、指数达到e位的浮点数所需要的kind值。返回-1表示无法满足所要求的有效位数、返回-2表示无法满足所要求的指数范围、返回-3表示两者都无法满足
Fortran 90隐含式循环的功能可以更强大
Integer ::a(5)=(/(I,I=1,5)/) !设置结果：a(1)=1,a(2)=2,a(3)=3,a(4)=4,a(5)=5
Where
Where是Fortran95添加的功能，它也是用来取出部分数组内容进行设置
Forall
Forall是fortran95添加的功能。间断地说，它也可以看出是一种使用隐含循环来使用数组的方法，不过它的功能可以做得更强大。
Allocate(a(100),stat=err) !err是事先声明号的整型变量，做allocate这个动作时会经有stat这个叙述传给err一个数值，如果err等于0则表示allocate数组成功，而如果err不等于0
则表示allocate数组失败
Deallocate(a)表示删除分配的内存
跟allocate相关的函数还有allocated，它用来检查一个可变大小的矩阵是否已经配置内存使用，他会返回一个逻辑值
Integer i
Integer ::a(5)
Forall(i=1:5)
A(1)=5
End forall
Forall详细语法为
Forall(triplet1[,triplet2[,triplet3……]],mask)
……
End forall
其中mask用来做条件判断
Fortran90可以声明可变大小数组
program ex
implicit none
integer ::a=1
integer ::b=2
call add(a,b)
end
subroutine add(first,second)
implicit none
integer ::first,second
write(*,*) first+second
end
在Fortran90里，Parameter可以作为形容词，和变量的声明同时写在一起