fortran90fortan90ran90.ppt

第2章 FORTRAN 90基础知识 2.1.1 FORTRAN 语言的发展概况 四、注意点: 1、= 具有方向性： A=B B=A A B B A 5、左边只能为变量 错例： x+y=1 3=A 2、N=N+1 计数器 新 原 3、右变量应预先有值 4、当X=2时计算F（X）=X+1 X=2 F=X+1 逻辑型赋值语句： 写法：逻辑型V=逻辑型e 3.3 简单输入输出语句 3.3.1简单的输入语句 一、含义 输入：数据 内存（变量） 赋值语句：定值，少量，写程序时送值 输入语句：变动（待定），批量，执行程序时送值 二、写法 Read（设备名，格式说明）输入项表（即变量名表,用，分隔） 简单的输入语句： Read（*，*）变量名表 Read *，变量名表 表控格式、自由格式 键盘 表控格式 例：Read*，A，D，F 三、功能：执行时，遇READ暂停执行，等待用户从键盘输入数据，按回车后自动将输入的数据分别赋 给各变量，赋值顺序自左向右。然后自动执行下一条语句。 四、程序执行过程中按表控格式输入数据 需将数据按其合法形式依次输入 　　 1、各数据间有分隔符分隔符： 空格、逗号(,)和斜杠(/) 两个数据间空格可以有多个，但逗号只能有一个，多个逗号意味着对某些变量输入空数据。 PROGRAM SHURU1 IMPLICIT NONE INTEGER :: A=10, B=11, C=12, D=13, E=14 READ*, A, B, C, D, E PRINT*, A, B, C, D, E END 在程序运行时分别按下列格式输入数据： 1,2,3,4,5 或 1,,2,3,4,5 它们的输出结果分别如下： 1 2 3 4 5 或 1 11 2 3 4　 　　 2、在输入的数据行中，斜杠的作用是终止输入，斜杠后的数据时无效输入，没有输入数据的变量值默认为零 IMPLICIT NONE REAL：：X1,X2,X3,X4 READ*,X1,X2,X3,X4 PRINT*,X1,X2,X3,X4 END 在程序运行时若输入数据： 2.1,3.2,/4.5,6.8 则输出结果为： 2.100000 3.2000000 0.000000E+00 0.000000E+00 3、个数：输入数据的个数不得少于变量的个数 可分行输入 多余的数据不起作用 如上例程序在运行时输入数据： 1.1,2.1,3.1,4.1,5.1,6.1 则输出结果为： 1.100000 2.100000 3.100000 4.100000 4、 多个Read语句 每个Read必须从一个新的行读取数据(换行） 例：integer::a,b,c,d,e read*,a,b,c,d read*,e 1,2,3 4,5 6 数据不够，继续读取下一行 5 作为无效数据被放弃 5、类型应匹配：(1)整型变量不得输入带小数点的数； (2)实型变量：可以输入整数 默认该实数的小数部分为 .0 (3)复型变量：输入（实部，虚部）； COMPLEX :: P1, P2, P3 REAL :: X1, X2, X3, X4 INTEGER :: M1, M2, M3, M4 READ*, M1, M2, M3, M4 READ*, X1, X2, X3, X4 READ*, P1, P2, P3 END 该程序执行时，从键盘送入下面记录： 11,12,13,14 0.6,0.7,0.9,1 ( 1.0,0.0 ),( 1.5,1.0 ),( 2.5,-1.0 ) 输入数据后，各变量的内部值依次为： M1=11，M2=