当前位置：文江博客话题详情

Fortran：处理大小的整数值：~700000000000

发布于 2024-08-24 10:29:33 字数 200 浏览 2 评论 0原文

目前我正在温习我的 Fortran95 知识（不要问为什么）...

不过我遇到了一个问题。如何处理大整数，例如。大小：~700000000000

INTEGER(KIND=3) 无法容纳此数字。如果有人感兴趣，我提供的编译器是 Silverfrost FTN95。

我正在使用整数来运行更大的数据集。

您有什么建议吗？

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

长安忆 2024-08-31 10:29:33

标准解决方案（从 Fortran 95 开始，所以我假设您的编译器支持它）是使用 < code>SELECTED_INT_KIND 内在探测有效整数类型（其值取决于编译器）和 巨大内在。

SELECTED_INT_KIND (R) 返回整数类型的 kind 类型参数，该整数类型表示所有具有 −10^R < 的整数值 n。 n < 10^R（如果不存在此类类型，则返回 -1）。
HUGE (K) 返回 K 类型整数类型中可表示的最大数字。

例如，在我的配备 x86_64 处理器的 Mac 上 (gfortran 编译器，64 位模式），以下程序：

  print *, selected_int_kind(1)
  print *, selected_int_kind(4)
  print *, selected_int_kind(8)
  print *, selected_int_kind(16)
  print *, selected_int_kind(32)
  print *, selected_int_kind(64)
  print *, huge(0_1)
  print *, huge(0_2)
  print *, huge(0_4)
  print *, huge(0_8)
  print *, huge(0_16)
  end

输出：

           1
           2
           4
           8
          16
          -1
  127
  32767
  2147483647
  9223372036854775807
 170141183460469231731687303715884105727

它告诉我我将使用 integer(kind=8)为了你的工作。

The standard solution (since Fortran 95, so I assume your compiler supports it) is to use the SELECTED_INT_KIND intrinsic to probe for valid integer kinds (whose values are compiler dependent) and the HUGE intrinsic.

SELECTED_INT_KIND (R) returns the kind type parameter of an integer type that represents all integer values n with −10^R < n < 10^R (and returns -1 if no such type exist).
HUGE (K) returns the largest representable number in integer type of kind K.

For example, on my Mac with an x86_64 processor (gfortran compiler, 64-bit mode), the following program:

  print *, selected_int_kind(1)
  print *, selected_int_kind(4)
  print *, selected_int_kind(8)
  print *, selected_int_kind(16)
  print *, selected_int_kind(32)
  print *, selected_int_kind(64)
  print *, huge(0_1)
  print *, huge(0_2)
  print *, huge(0_4)
  print *, huge(0_8)
  print *, huge(0_16)
  end

outputs:

           1
           2
           4
           8
          16
          -1
  127
  32767
  2147483647
  9223372036854775807
 170141183460469231731687303715884105727

which tells me that I'd use an integer(kind=8) for your job.

回复收藏 0 原文

也只是曾经 2024-08-31 10:29:33

声明至少有 12 位十进制数字的整数“索引”的可移植方法是：

integer, parameter :: MyLongIntType = selected_int_kind (12)
integer (kind=MyLongIntType) :: index

“kind=”可以省略。

使用特定值（例如 3）是完全不可移植的，因此不建议使用。有些编译器使用连续的类型号，有些则使用字节数。 “selected_int_kind”将返回编译器可用的最小整数类型的类型号，该类型可以表示所请求的位数。如果不存在该类型，则返回-1，并且使用kind值声明整数时该值将失败。

gfortran 和 ifort 都返回输入到 selected_int_kind 的十进制数字的种类，最多为 18。较大的值（例如 18）通常会选择最大正值为 9223372036854775807 的 8 字节整数。这有 19 位数字，但如果编译器支持此值类型但不是更长的类型，selected_int_kind (19) 将为 -1，因为并非所有 19 位整数都可以表示。

The portable to declare an integer "index" that will have at least 12 decimal digits is:

integer, parameter :: MyLongIntType = selected_int_kind (12)
integer (kind=MyLongIntType) :: index

The "kind=" may be omitted.

Using specific values such as 3 is completely non-portable and not recommended. Some compilers use the type numbers consecutively, others use the number of bytes. The "selected_int_kind" will return the kind number of the smallest integer kind available to the compiler that can represent that requested number of digits. If no such type exists, -1 will be returned, and the value will fail when used kind value to declare an integer.

Both gfortran and ifort return a kind for decimal digits input to selected_int_kind up up to 18. Large values such as 18 will typically select an 8-byte integer with a largest positive value of 9223372036854775807. This has 19 digits, but if a compiler supports this type but not a longer one, selected_int_kind (19) will be -1, because not all 19 digit integers are representable.

回复收藏 0 原文