fortran90总结第二章(部分) 林晓彤主编.docVIP

第一章： 类型说明（种别说明），属性说明1，属性说明2…… Integer（kind=2）,dimension(1:14),……. 2.1程序 program height_of_yao implicit none integer::height ,height_feet !声明整形变量 real::h_inch,height_inches !声明实型变量 integer,parameter::foot_inch=12 !整型符号常量 real,parameter::inch_cm=2.54 !实型符号常量 height=226 !身高厘 米数 h_inch=height/inch_cm !折合英尺 print*,The height is,h_inch,inches. height_feet=int(h_inch/foot_inch) !身高英尺数 height_inches=h_inch-height_feet*foot_inch !身高英寸数 print*,The height is,height_feet,feet, height_inches,inches. end program height_of_yao !在不同处理器中，表示同样精度和范围的树枝，所采取的种别参数是不一样的。 2.2.1整形数据 program test implicit none integer::forty_two,sixty_three,max_byte forty_two=B101010 !二进制赋值 sixty_three=O77 !十进制赋值 max_byte=Zff !十六进制赋值 print*,forty_two=,forty_two,sixty_three=,sixty_three,max_byte=,ma x_byte end program test kind的妙用：kind的数值依赖于处理器。 program select_kind implicit none integer,parameter::i=selected_int_kind(6) print*,6_i !程序输出‘6’ print*,kind(2_i),i !程序输出‘4，4’ print*,kind(0),kind(0.0) !输出的都是默认的种别，是一个整数。其括号里不同是因为不同类型数的种别，kind永远是实行的。 end program select_kind program real_kind implicit none real::j integer,parameter::i=selected_real_kind(3,4) !提供三位精度以及 10000位的范围,!!!!!!kind类型必须是一个正型变量。 print*,i print*,6.0_i end program program test implicit none print*,1_iam,.true._2 !注意字符型的变量的kind写法。true的暑促结果只是T pintt*,kind(A) !缺省的字符型种别参数。 end program test program test implicit none character(len=5)::strl=abcdefg print*,strl print*,1_iam hehe end program test 2.2.6type的妙用： program test implicit none type person !type的定义是在变量说明之前进行的。 character(len=8)::name logical::marry real::salary end type person type(person)::boy boy=person(lxp,.false.,300000.50) print*,boy print*,boy%name !注意引用子部分的方法。 end program test 数据在机器内的存储方式不同：整形数据存储处理快，而实型的存储处理慢，但是整形无误差，故尽量用实型。 每一个复型变量输入一对括号，括号内先写实数部，再写虚数部。 program test implicit none real::a,b read(i2),a,b read(*,(i2))a,b read*,a,b !正在输入中/表示停止输入，而编辑福可以重复利用。 end program test program test implicit