海洋环境数值计算2013-2课件.pptVIP

海洋环境数值计算 海洋环境数值计算（2013.3-2013.6）(2)商少平spshang@xmu.edu.cn 三、FORTRAN语言简介 （一）发展历史 Fortran是英文FORmula TRANslation的缩写，意为“公式翻译”。它是为科学、工程问题中的那些能够用数学公式表达的问题而设计的语言，主要用于数值计算，于1954年提出。 1956、1958、1962——FORTRANⅠ、Ⅱ、Ⅳ 1966——FORTRAN66 1980——FORTRAN77 1992——FORTRAN90 1997——FORTRAN95 2004——FORTRAN2003 2010——FORTRAN2008 三、FORTRAN语言简介 （二）代码编写格式 Intel FORTRAN 11.0 支持FORTRAN90、95，并支持FORTRAN2003的部分扩展。 支持自由代码格式（源文件的后缀必须是“.f90”）： 程序行：132列，可从第一列或任何一列开始 多语句行分隔符：“；” 连续行：自由格式255行，固定格式511行，句末和连续语句头都应有符号“” 注释：“！”，可出现在语句头或正常命令后（至少有个空格） 三、FORTRAN语言简介 （三）常用功能 1、变量或程序英文名 可用字符：“0-9”，“a-z”，“A-Z”，“_”；第一个字符必须是字母 2、语句标号 标号：1-5位10进制正整数 3、语句标签 标签：英文名+“：” 三、FORTRAN语言简介 （三）常用功能 4、变量类型及定义 类型定义 变量名 实型数：real; 单精度：real*4，双精度：real*8 整型数：integer; integer*1, integer*2, integer*4 缺省状态下，以I、J、K、L、M、N开始的变量都是整型数 字符型：character *? 如： character st*5 定义st为长度为5字符的字符型变量 5、数组及定义 类型 数组名（数组下界1：数组上界1，数组下界2：数组上界2，……） 如：real*4 a(0:10,20) 定义a为二维数组，第一维下界是0，上界是10，第二维下界为1，上界为20。数组下界缺省为1 三、FORTRAN语言简介 （三）常用功能 6、基本运算符 加： + 减： - 乘： * 除： / 乘方： ** 运算的优先次序为： ① 括号 ② 函数 ③ ** ④ * / ⑤ ＋ － 三、FORTRAN语言简介 （三）常用功能 7、字符运算 加：// 8、关系运算符 ＞ (大于) ：.gt. ≥ (大于或等于) ：.ge. = ＜ (小于) ：.lt. ≤ (小于或等于) ：.le. = ＝ (等于) ：.eq. == ≠ (不等于) ：.ne. /= 9、逻辑运算符 .and. , .or. 三、FORTRAN语言简介 （三）常用功能 10、常用函数 三、FORTRAN语言简介 （三）常用功能 11、打开数据文件： open(通道，file=‘文件名’,status=‘状态’,err=行号） 通道：0-255，一般0、5为操作台 状态为：new——新文件，old——已有文件 行号：文件打开出错时跳转处理的行号，如状态为new，但已有，或状态为old，但不存在。 三、FORTRAN语言简介 （三）常用功能 12、输入 read(通道，格式或格式行号, end=行号） 变量1，变量2，… 通道要和打开数据文件的通道一致，*为操作台键盘输入 格式可以用格式语句或 ‘（格式）’代替 行号为读数期间遇到缺数或末尾（可以是一行）时的跳转行 格式语句： 行号 format(格式) 格式：x——空格，Ic——整数，fd.e——实型数 c,d,e为正整数， 三、FORTRAN语言简介 （三）常用功能 13、输出 write(通道，格式或格式行号） 变量1，变量2，… 通道要和打开数据文件的通道一致，*为操作台显示 格式可以用格式语句或 ‘（格式）’代替 格式语句： 行号 format(格式) 格式：x——空格，Ic——整数，fd.e——实型数 c,d,e为正整数， print 格式行号，变量系列 三、FORTRAN语言简介 （三）常用功能 14、循环语句 do i=i1，i2，i