Fortran

输入输出及声明

由于没有Fortran 代码块的输入，因此用PYthon代码块进行简单的说明介绍！

一. 输入（WRITE）和输出（PRINT）命令

PROGRAM ex0401		# ！程序开始  ex0401 是自定义的名称
write(*,*) "hello"  # ！主程序代码
stop				# 程序结束（这一行可以忽略）
end					# 主程序代码结束

write(*,*) "Hello"
'''
*--第一个✳号代表输出的位置，通常默认为屏幕
*--第二个*号代表不特别输出格式
'''
write(UNIT=*, FMT=*) "String"  # 严格的写法示例
write(UNIT=6, FMT=*) "string"  # 最为严谨的写法
'''
注意点：
(1) 每执行一次write 之后，会自动换行到下一行为下一次的输出做准备
(2) 双引号是用来输出字符串的“string”, 若想输出双引号，需要连用两个双引号！（例如： " “”lalal"" "）
'''

end # 封装程序代码使用，表明主程序代码已经编译完毕
'''
三种常用的程序结束方式
'''
end
end PROGRAM
end PROGRAN ex0401

print*, "hello"   
'''
1. 用法基本上与write 相同
2. ✳不用括号，且只有一个✳, 表示不限定输出格式！
3. 只能针对屏幕使用，少了赋值输出位置的功能！
'''

二. 声明

基本定义：在程序代码中，程序员向编译器要求预留一些存放数据的内存空间！

2.1 整数类型（INTEGERAL）

INTEGER  a    #  整型变量 a
a = 3
write(*,*) "a+2-1 = ", a   # 注意：， 用来区分字符串和变量！
'''
整数类型中的长整型和短整型方式
integer(kind=4)  a  # For90
integer*4   a  		# For77
integer(4)  a  		# For77
上述四种方式都是要用4个字节存放整数的意思，是长整型的表示方法
integer(kind=2)  a  # For90
integer*2   a  		# For77
integer(2)  a  		# For77
上述四种方式都是要用2个字节存放整数的意思，是长整型的表示方法
'''

2.2 浮点数

不同于整数，浮点数可以保存小数部分！

real a   # 占用四字节的单精度浮点数
'''
字节精度修改的方式与整数类型相似
'''
real(kind=4)  a
real*4   	a
real(4)		a

主程序写法示例

PROGRAM ex0405
real::a
a = 2.0+1.0/3.0
write(*,*) "2.0+1.0/3.0 = ", A
end
'''
不同之处说明：
1. 声明变量类型不一样
浮点型的声明变量类型为  real  整型的声明变量类型为 integer
2. 数字表示方式不已昂
real类型中，2.0+1.0，其后带有小数点.0
integer 类型中，2+1， 其后不带小数点，仅仅是简单的表示  
'''

PROGRAM EX0406
real::a
a=3.1415927
write(*,*) "sin(", a, ")", sin(a)
'''
三角函数库函数使用方法
1. 直接使用三角函数的基本表达方式就行，例如sin(a), tan(a)
2. 三角函数使用的单位是弧度，不是角度，也就是说， 弧度 = 角度*pi/180
'''

2.3复数（COMPLEX）

complex  a    #  复数声明方式
a = (x, y)   # 表示为a = x + i*y
'''
注意到，复数是用两个数来保存的，复数也可以分为单精度和双精度
complex(kind=4) a  # 单精度
complex(kind=8) b  # 双精度
'''

2.4 字符串（CHARACTER）

character a    # 声明字符串
character(len=10) a # 声明一个长度为10字节的字符串 a
'''
单引号与双引号的区别
'''
a = "hello!"   # 可以字符串中任意使用单引号！输出双引号要连续两个双引号！
b = 'hello~ '  # 若想使用双引号，必须连续两个双引号！  For77

'''
字符串的拼接！
'''
string(6) = "lallalla"   # 6 表示要开始连接的位置，双引号的内容为要来连接的内容
first  = "happy"
second = "day"
add = first//second    # 输出结果为 “happy day”, 两个连续的斜杠 // 字符也可以连接两个字符

2.5 逻辑变量（LOGICAL）

# 声明方法
logical a, b
a = .true
b = .false

2.6 输入命令（READ）

read(*,*) a   # 表示由键盘输入一个定义数据类型的a
'''
输入变量a 时，注意变量的定义类型
'''

2.7 格式化输入输出（FORMAT）

format 设置输出格式

      PROGRAM  ex0409
      INTEGER a
      a = 100
      write(*, 100) a   # 使用行代码为100的地方设置的格式食醋胡变量a
100   FORMAT(I4)   # 100 代表代码的行号， I4 是给代码行的编号

常见的格式转换的形式说明

# 将输出形式直接写 write中
write(*, "(X1, I5)")

格式化输出一些说明

#常用的格式化输出符号 I， F， E，A, X  
【Iw.m】   
#  I  以整数类型格式输出， w 是要输出的总宽度， m 为最小输出宽度
【Fw.d】 
#  F 以浮点数类型输出， w 是字符文本框输出浮点数， d 小数部分占用d 个宽度
【Ew.d[Ee]】
# E 以指数形式输出， w是输出字符所占宽度，d 是小数部分占用宽度，指数部分最少输出e个数字
【/】  
# 换行输出，
write(*, "(I3//I3)") 10, 10

2.8 其他说明

'''
inplict 设置默认类型
'''
implict integer  a      # 以a 开头的都认为是整数类型
implict real (a-f, t)   # 以a-f t 开头的都认为是浮点数
implict none    		# 关闭默认类型功能，所有变量都要事先声明

'''
常数的声明方法
'''
parameter (pi = 3.1415926)   # 只能设置一次
real parameter::pi = 3.1415962   #  注意，pi 前面的冒号不能省略

'''
设置变量的初值
'''
integer::a = 10
real:: b = 3.0
complex :: c = (1.0, 2.0)
character(len=20):: string = "Hello Kitty!"

'''
等价声明
'''
integer a,b
equivalence(a, b)   # a b 这两个变量使用同一块内存空间

'''
声明在程序中的结构
声明变量一口气完成，要放在程序执行之前，不能留到最后在定义
'''