Fortran输入输出与声明--xdd

1.建议程序总体格式：　

  program ex1.

  ...

  end progr

2.想要打出 My name is "xdd".

 write(*,*)" My name is "xdd"."

3.声明类型标识符字符串处理

默认为长整形单精度浮点数（kind=4）
Fortran中不区分大小写，所以变量名A、a表示同一变量
返回字符串长度：len(str)
返回字符串去处空格后的长度：trim(str)
连接两个字符串：c=str1//str2 !使用两个/即可连接字符串
index(str1,str2) !返回str2在str1中首次出现的位置

 integer a 或 integer：：a

 real b 或 real::b

 real(kind=) c 或 real(kind=8)::c
4 complex a 或 complex::a 或 complex（kind=8）：：a
5 a=(1.0,2.0) !a=1+2
6 character ::a （a是一个字符） 或 character(len=10)::a 或 character(10)::a  !所有：：均可省略
7 a="xieshg"  !fortran90 对于字符串，单双引号均可
8 logical::a
9 a=.true.　　!注意有两个点

4.输入输出（write,read)

```
如用format，一定要放好位置
```

program ex

integer::a

real::b

a=

write(*,) a

write(*,) b

 format (I4)       !用4列显示整数a

 format(F10.)     !输出数据占10列，小数部分占6列

end program 

!write(*,"(1X,I5)") a
!write(*,"3(1X,I5)") a,b,c
!write(*,"(I5)") b
!write(*,"(A5)") str 　　!以5个字符宽度输出字符串
!write(*,"(E10.6)") a　　!以指数格式输出，一共占10位，小数部分占6位
/　　　　　　　　　　　　　 !换行

program ex0622

character(len=) str

read(*,"(A80)"),str 　　!有长度这样可以避免逗号使机器读取数据结束

write(*,"(A80)"),str

end program

5.变量先声明后使用，虽然麻烦一些，但可避免许多错误，尤其是输入错误，而且还不会报错！所以取消默认很重要。

implicit none     !关闭默认类型功能，所有变量的使用都要事先定义

声明常量，能减少编写错误的机会，增加计算机执行速度
变量赋初值时冒号也不能省略
Fortran77赋初值时，只能用DATA
所有的变量声明都要在执行语句的前面，一旦开始执行就不能再有声明

real,parameter::pi=3.1415926  　　!此处冒号不能省略
real::c=2.1　　　　!此处冒号不能省略

!Fortran77
integer a
real b
complex c
character(len=10) d
data a,b c d /1,2.0,(1.0,2.0),'xiedd'/   !Fortran77字符串要用单引号

6.变量类型自定义（a%name) 见《Fortran 95 程序设计》P65 彭国伦老师著

7.kind的使用

kind的使用
integer(kind=2)	-32768~32767
integer(kind=4)	-2147483648~2147483647
real(kind=4)	±1.1810^-38-±3.4010³⁸
real(kind=8)	±2.2310^-308-±1.7910³⁰⁸

 !判断可以记录9个位数的整数的kind值

 integer,parameter::long_int=selected_int_kind()

 !判断可以有10个有效位数，指数可以记录到50的浮点数kind值

 integer,parameter::long_real=selected_real_kind(,)

 integer(kind=long_int)::a=

 real(kind=long_real)::b=.23456789D45

write by xdd　　2019-09-19　　15:48:15

巴特西

Fortran输入输出与声明--xdd

最新文章

热门文章