FORTRAN
第2章FORTRAN90基础知识：
程序单元的概念:
fortran90程序是一种分块形式的程序，整个程序由若干程序单元块组成。每个程序只有一个主程序单元。各单元体的程序体形式上相同。
程序单元可以是主程序、子程序（外部过程或内部过程）、模块MODULE（供其他程序单元引用即把该程序单元内的全部语句复制到程序单元中）或块数据程序单元BLOCK。
语言元素：指在程序设计中用到的基本成分，如字符集、常量、变量、记号（标号、关键字、名字、常数、运算符和定界符）以及其他的基本结构等。
字符集：英文字母、阿拉伯数字、下划线、21个特殊字符（$和？没有规定用法）。
数据结构：
整型INTEGER（34-2下划线后面是种别参数），n位字长的计算机的数据表示范围一般为12~211nn，种别参数由内在询问函数KIND送回，种别值提供的最小范围由内在函数SELECTED-INT-KIND送回，表示十进制幂的范围由内在函数RANGE送回；
实型REAL，小数形式和指数形式；复型COMPLEX（种别类型参数值取实部与虚部中较大者）；
字符型CHARACTER，由一对单撇号或双撇号之间的字符序列组成；
逻辑型LOGICAL。
派生数据类型TYPE；
数组INTEGER,DIMENSION(1,50)::A，可直接对数组元素进行运算如3*A,SQRT(A)；
字符子串，在字符串CHARACTER(LEN=80)::ROW中，ROW(1:3)就表示字符串ROW中第1到第3个元素组成的子串。
变量名的命名规则：不能超过31个字符；组成成分是字母、数字、下划线；第一个字符必须是字母。
第3章基本语句：
类型说明语句：类型说明（种别说明），属性说明：：变量名表
尽量避免把两个实数作相等或不相等的比较。淘汰隐式说明IMPLICIT NONE
种别说明：种别参数即对可移植数据精度和范围进行选择的机制
KIND(X) 返回变元X的种别参数值
西参与历史故事
很多人不会想到，很久以前，黑胡椒、香料和盐曾经与黄金同价，并且是欧洲各国推进亚洲扩张的早期动力。在哥伦布发现新大陆以前，欧洲人对现在餐桌上最平常的玉米、土豆和番茄也一无所知，但这一切都已成为历史。现在即使在义乌，也同样能享受到口味纯正的西式菜肴。而让人们津津乐道的是，很多菜肴的得名其实都跟一些名人轶事和历史事件关联。
在一个早春的下午，淡淡的太阳的光辉映入珊瑚海西餐厅的落地玻璃幕墙内，并沿着弧形的幕墙把整个餐厅的光线由明至暗调和出一种温软的感觉。这里是最佳西方海洋酒店的底座，与浩翰的小商品海洋相邻，却又闹中取静。厚实的地毯让每个人的行走都悄无声息，而洁白的桌布、暗红的圆形顶灯都彰显着餐厅的格调。在这里就餐，需要一种优雅的姿态和完全放松等待享受的味蕾。
餐厅的厨师长是马来西亚人，有近20年的西餐烹饪经验，对西餐文化可谓了如指掌。当一份“马伦高战场”红酒烩鸡盛装在偌大的白瓷盘中摆上餐桌时，一道道关于菜肴的历史就此展开。相传这道菜肴与拿破仑有关。1800年6月14日，拿破仑在意大利的马伦高打败了比他多两倍兵力的奥匈帝国军队，当时他已两天没进食，早已饥肠辘辘。他的随军御厨在附近的村庄中找到了一只鸡、两只小虾和两个鸡蛋以及一些面包，用军刀做成了这道菜。此后拿破仑每次打了胜仗都要吃它。餐厅里单点率很高的“罗西尼”牛排，则源自拿破仑被打败后，西欧人民普遍厌战，盼望歌舞升平。歌剧创作由此进入鼎盛时期，罗西尼在此时已写了“塞维尔的理发师”和“威廉塞尔”两部歌剧名著而誉满欧洲。他在37岁就退休封笔，他也是个爱好美食的人，这道菜是巴黎一家名菜馆为了纪念他而创作的。除珊瑚海西餐厅，在义乌很多家有西式餐点的餐厅，这道菜是不难见到的，当然挑剔的宾客完全可以用自己的味蕾品尝出哪里的口味最正宗。
值得一提的是这里的法式堂作“火焰菜”。堂作是当堂制作的意思，通常这样的菜式在其制作过程中有一定的观赏性，厨师的手艺也必须娴熟优美。在烹制过程中因为果酒受热燃烧而得名的“火焰菜”系列自然成了堂作的首选。“无名女士”甜橙汁煎饼就是一道堂作的“火焰菜”，在珊瑚海西餐厅，有两位来自荷兰的帅小伙专门为客人炮制这道菜。先将糖与黄油加热融化，再倒入橙汁、柠檬汁，为防糖水和果汁在融合过程中粘锅，制作者还会用叉子叉上半个鲜橙来回擦锅。待汤汁熬浓熬香，再把三张烙好的煎饼一一放入锅中，软化之后折成三角，让汤汁沁入。之后当然是此道堂作的最具观赏性的阶段，制作者将两种果酒倒入高温的汤汁中，顷刻之间，煎饼上空燃起淡蓝火焰，灵动而优美。而经过高温烈焰的催化，这道据说是名厨Herry Charpentier为爱德华七世的一个情人而制作的甜点便更酸甜适口了。
声明：
1.欢迎使用本指导方案，本指导方案仅供参考，若因为本指导而导致的安装错误以及其他损失，本人概不负责。
2.FORTRAN90仅能支持32位电脑。
3,若有其他安装使用技术问题，请与本人联系。
编 辑：张智超
联系方式：373134347
安装顺序：
1.打开FORTRAN编译器，点开SETUP.EXE
2.选择三个选项的第一个。
3.之后会弹出一个框图，点击否。这个是介绍本软件的。
4.然后点击next
5.对于这个，名字随便你自己，序列号为33206,0500,0010743,00007，输完之后点击next
6.点击yes
7.继续点击next，切记按照如图所示，不要改动其他东西。 8.继续点击next
9.等待几十秒后，点击允许本次操作。 10.点击是或者否都无所谓，这个是供你更新用的。
11.之后连续点击两个否，点击finish即可。
12.安装之后你回发现招不到文件夹所在，不要着急。提供两个方法！
第一，点击电脑左下角的这个，然后点击所有程序，找到这个文件夹：Compaq Visual
Fortran 6，点开，找到Developer Studio，点开即可。
第二，按照这个去找你电脑里的原始启动程序。
之后找到这个，点击DFDEV,.com。然后会有360等防火墙组织，点击允许此操作。
下面开始讲解操作过程：
1点击 file。
2 点击file里面的new。
3点击确定
4 点击第一个FILES
5 选择第四个，fortran fixed format source file 6点击ok
之后就可以开始编写程序了，其他应用技术就不多讲解了。
采用Fortran 90程序实现生成任意随机数列的方法
——谷辰先生
在科学计算/数值计算中的很多场合（比如蒙特卡洛模拟）都需要用到随机数。当然首先需注意，通过
计算机产生的随机数都是伪随机数，并不是真正的随机数，因为真正意义上的随机数在某次产生过程中是
按照物理实验过程（如掷骰子）中表现的分布概率随机产生的，其结果是不可预测的。而计算机中的随机
函数是按照一定算法模拟产生的，其结果是确定的，是可见的。所以用计算机随机函数所产生的“随机数”并不随机，是伪随机数。但是，这个一般来说不影响我们在数值模拟中的使用。
Fortran自带一个random_number(x)函数可以产生一个0~1之间的随机数（x可以是向量），但是
如果你要让每一次运行产生的随机数都不一样，则还应该调用random_seed()函数，然后系统就会根据
日期和时间随机产生种子，从而得到“真正的”随机数。
下面将从最简单生成均匀分布随机数开始，逐步到复杂的瑞利分布，通过Fortran代码范例实战的方
式讲解如何生成满足任一分布的随机数。
(1) 以下代码可以生成10组0~1之间的随机数（每组），而且每次运行结果都不一样： !*****************************************************************
program tutorial01_random_number
implicit none
integer(4) :: k
real(8) :: x(3) call random_seed()
do k = 1,10
call random_number(x)
write(*,*) x
write(*,*) end do
stop
end program tutorial01_random_number
!*****************************************************************
