定义 fortran 整数数组

Question

我是 Fortran 新手。 any1 能告诉我如何定义一个整数数组吗？ 例如 我想定义一个包含 12 个月内的天数的数组。 就像...

integer,allocatable(12,1) :: days

days=[31,28,31,30,31,30,31,31,30,31,30,31]

这个语法正确吗？如果不是，请告诉我正确的。

谢谢 普拉文

Answer 1

如果您想要动态分配的数组，请尝试以下操作：

program arraytest
  implicit none
  integer, allocatable :: a(:)

  allocate(a(12))
  a = (/31,28,31,30,31,30,31,31,30,31,30,31/)
  print *, a
end program arraytest

Answer 2

integer,Dimension(12) :: a = (/ 31, 28, 31, 30, ... /)

对于“静态”数组。对于 Fortran 2003 及更高版本，[ ] 而不是 (/ /) 是正确的；我知道的所有编译器都允许该语法，即使它们没有完全实现 F2003。对于动态数组：

integer, dimension(:) :: a
! ...
allocate(a(12))
a = (/ .... /)
! ...
deallocate(a)

也是一个选项。

Answer 3

在 FORTRAN 77 中，我想说

  INTEGER DAYS(12) / 31,28,31,30,31,30,31,31,30,31,30,31 /

这是声明和初始化合二为一。

如果需要，您也可以将两者分开：

  INTEGER DAYS(12)
  DATA DAYS / 31,28,31,30,31,30,31,31,30,31,30,31 /

Answer 4

可能不需要可分配，是吗，因为它只是一个常量数组：

INTEGER :: a(12) = (/ 31,28,31,30,31,30,31,31,30,31,30,31 /)