fortran90简易教程.pdf

说明：本讲义仅供参考，本讲义中源程序均在Compaq Visual Fortran 下编译通过如有错误或 不完善的地方，请谅解。 一、什么是fortran fortran 是FORmular TRANslation 的缩写，是一门比较古老的语言，但是更适合于科学 计算，由于大家都学习过C，所以下面我就把fortran 与C 在科学计算方面做一下简单的比 较： 1．Fortran 具有内建的复数数据类型Complex，这样的好处是一些内部函数，比如sin ，可以 直接对复数操作。 2 ．Fortran 数组从下标默认情况下是从 1 开始，与一般矩阵的下标相同 3 ．Fortran 没有指针，这虽然使一些数据结构无法实现，但是有利于编译器进行自动的代码 优化，一般来说，fortran 的程序比c 程序的执行效率要高一些。当然目前的 fortran90 已 经提供了指针，我认为主要的作用是实现一些数据结构。 4 ．变量采用的是静态存储变量，在调用子过程或函数时，参数传递通过引用方式传递，节 省了复制变量的时间 二、书写风格 fortran 的老版本是fortran77，教材上面的程序就是f77 格式，而新版本是fortran90 ，是 f77 的一个超集，这两种标准我都讲一讲，主要是因为我们既要看得懂老程序，同时自己写 程序时最好还是按新标准去写。 编译器推荐用Compaq Visual Fortran 6.5，支持f77 和f90 对于cvf6.5，fortran 书写风格目前有两种，一种是f77 的固定格式(fixed form)后缀一般 是.f，另一种是f90 新的自由格式(free form)，后缀一般是.f90 1.固定格式， program main c 计算abc 的平均值 real * a,b,c,aver,averag read (*,*) a,b,c aver1=averag(a,b,c) write (*,*) aver end function averag(x,y,z) average=(x+y+z)/3.0 end 2. 固定格式 program main implict none !强制变量声明 real :: a=1,b=2,c=3 !定义并赋值 write (*,*) a,b, ! 是换行符 c end 三、变量 变量名不区分大小写，变量可以不用声明而直接使用，也可以声明，但是变量的声明必 须在所有可执行语句之前。 常有六种类型声明语句 f90 f77 7 7 integer （1）:: x integer*1 x -2 x2 - 1 integer （2 ）:: y integer*2 y -215y215- 1 32 32 integer :: z integer z -2 z2 - 1 real :: x real x 绝对值在 1.18e-38 和3.40e+38 之间，还包括0 ，有效位6 －7 位 real(8):: x double precision x 绝对值在2.22e-308 和 1.79e+308 之间，还包括0 ，有效位15 位 complex :: x complex x character(5) :: z＝’abcde’ chracter*5 z logical :: x