《FORTRAN 95程序设计》学习笔记.doc

《《FORTRAN 95程序设计》学习笔记.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、《FORTRAN95程序设计》学习笔记66RPGgg★目录★《FORTRAN95程序设计》学习笔记1基础知识(基础、字符串、FORMAT、隐式、TYPE)1流程与控制(if、select、do)4数组(声明、隐式循环、整体操作、可变数组)5函数与子程序(子程序、函数、全局变量)6MODULE与面向对象(重载操作符、虚函数)9文件相关(OPEN、WRITE、READ)10指针（指向变量、数组、函数）11VisualFortran编译器（DLL，VB调用）12数值算法与IMSL（数值算法插件）14常用库函数（数学、数组、零碎、子程序）15基础知识(基础、字符串、

2、FORMAT、隐式、TYPE)★【小玩意】二进制观察器：装在M..VisualStudioDF98bin，有一个Bitviewer，可以观察变量储存方式★【语法】续行：行结尾或行开头使用&符号；注释：使用!符号★【语法】数学表达式：+；-；*；/；(；)；**乘幂★【语法】程序结束：STOP(Ruby的exit)★【语法】输出：write(*,*)，完整写法：write(unit=*,fmt=*)n建议：少用print，尽量用write★【语法】声明n整型：integer(kind=4)a；其中kind是使用的bytes数，4or2u其他写法：integ

3、er*4a;integer(4)an浮点：real(kind=4)a；有效数位6位（存为1.E7），如果是kind8则为15位有效数字u此外：1E10：单精10^10，1D10：双精10^10n复数：complex::a=(2,3)u实部：real(a)；虚部：imag(a)n布尔型：Logical，.true.和.false.★【语法与函数】字符串：character(20)stringn注意理解，fortran的弱智字符串就是一个长度不能变的一维的东西，极其猥琐，和Java、Ruby不能相提并论的nstring(13:13)=“a”：对第13个字节的读、

4、存nstring(2:3)=“go”nstring(6)=“我的妈呀”：从第6个位置开始设置为“我的妈呀”na=string_a//string_b：用“//”连接两个字符串n【常用函数】char(num)，ichar(char)：ASCII码的转换相关功能n【常用函数】len(string)，len_trim(string)：长度，去掉尾部空格后的长度n【常用函数】index(string,key)：找key在string首出现的位置n【常用函数】trim(string)：返回去掉尾部空格的字符串(用途不大)n【函数】repeat(char,int)：返回

5、一个重复int次的char串ncharacter(len=20)string普通声明；character(len=*)string接收的时候可自动长度★【规范格式】FORMAT格式化ne.g.uwrite(*,100)Au100format(I4)ç这里是100号标识调用的格式n参数控制符(前面加数字为重复次数，如4I6或I6。(其中a为一个int))uA5：输入/出5个字符ç常用功能uI5[.4]：输5位整数，最少4位ç常用功能uBN，BZ：定义空格为无东西或为0uF5.4，D5.4：5位浮点数，小数占4位ç其中前面一个常用uE5.1[E2]：5位浮

6、点，小数占1位，指数占2位u4X：4个空格ç常用功能u/与：/为中止本行，为强制不换行ç强制不换行常用uTn，TLn，TRn：移动到第n列/左移n列/右移n列nWrite(*,”(2X,I5)”)a；一般使用这种方法进行格式化即可，推荐。u注意，complex要用两个浮点数来输出★IMPLICIT命令(隐式表达)n默认：I、J、K、L、M、N为整数，其余浮点(不好)n隐式声明：uimplicitinteger(A,B,C)：A、B、C开头的自动为整型，无需单独声明uimplicitinteger(A-F,I,K)：A－F、I、K开头的自动为整型uimpl

7、icitreal(M-P)：M－P开头自动视为浮点数uimplicitnone：无隐式声明，最常用，但个人认为在自己有把握的情况下还是可以自定义一些隐式来方便程序书写★【语法】常数parameter的声明n方法1：real,parameter::pi=3.14n方法2：urealpiuparameter(pi=3.14)★【常用功能】类型转换(realßàinteger)nreal(int_a)：返回int_a的浮点数nint(real_a)：返回real_a的整型★【语法】设初值：integer::a=1★【语法】等价声明：equivalence(arra

8、y(1,1,5),A)n两者使用同一块内存，如上，调