fortran中的种别kind以及selected_real_kind的使用

szwang

[Fortran] 纯文本查看 复制代码

program test_kinds

implicit none

integer,parameter :: long=selected_real_kind(9,99)
real :: a=2.8_long

write(*,*) KIND(a)
write(*,*) long
write(*,*) precision(a)
write(*,*) range(a)
write(*,*) huge(a)

stop
end

输出结果分别为：
           4
           8
           6
          37
  3.4028235E+38
-----------------------------------------------------------
疑问：
1、KIND(a)和输出的long的数值，为什么不同？a的kind值不是通过语句real :: a=2.8_long指定的么？
2、定义的long的范围，是(9,99)，为什么输出的precision和range是8和6？
3、输出的a的最大数值，不应该是10E99吗？

谢谢各位！

szwang

pasuka 发表于 2017-6-1 10:52
请翻阅编译器帮助文档
The GNU Fortran Compiler: SELECTED_REAL_KIND
https://gcc.gnu.org/onlinedocs/gcc ...

看过例子明白了好多，多谢啦

szwang

li913 发表于 2017-6-1 10:55
a的kind=4是由定义时决定的，而不是由其值决定。将双精度 2.8_long 赋值给a，并不会改变a的kind ...

嗯，感觉有点类似整形与实行相加的时候，会有自动类型转换。这个问题中，后面数字的kind值对前面变量的kind值没有影响。多谢啦

szwang

fcode 发表于 2017-6-2 08:00
selected_real_kind(9,99)
并不是选择恰好是精度9，幅度99的kind
计算机并没有提供这么丰富多彩的kind精度 ...

嗯嗯，得到的precision（a），应该小于等于selected_real_kind返回的kind所对于的精度。
谢谢你啦。。。