Fortran 自定义类型 KIND

integer a

real tmp

tmp = real(a)

a = int(tmp)

通过函数 INT（） ,将数据转换成整数。

F90 自定义数据类型。相当于 struct 或者class
type :: person
integer :: age
integer:: height

end type person

声明的时候，

type(person) :: me

write(,) me%age

这里是用百分号来取它的每个域。

设置这个变量时候，可以一下全部设置。

a=person(1,2)

KIND 的使用

F90提供库函数来 判断 需要的 kind

SELECTED_INT_KIND (N)

返回想要记录n位整数时，所应该声明的kind值。 返回-1 ，表明无法提供想要的值域范围。

write(,) selected_int_kind(19)

selected_real_kind( n ,e )
返回记录n位有效位数， 指数达到e位的 kind值。

无法提供时会返回-1，-2，-3