CentOS中Fortran数据结构如何定义

在CentOS系统中，使用Fortran定义数据结构通常涉及使用type关键字来创建自定义的数据类型。以下是一个简单的示例，展示了如何在Fortran中定义一个数据结构：

module my_module
  implicit none

  ! 定义一个名为 'person' 的数据结构
  type :: person
    character(len=20) :: name
    integer :: age
    real :: height
  end type person

end module my_module

在这个示例中，我们创建了一个名为my_module的模块，并在其中定义了一个名为person的数据结构。person数据结构包含三个成员：一个长度为20的字符数组name，一个整数age和一个实数height。

要在其他Fortran程序中使用这个数据结构，你需要先导入这个模块，然后声明一个该类型的变量。以下是如何使用这个数据结构的示例：

program main
  use my_module
  implicit none

  ! 声明一个 'person' 类型的变量
  type(person) :: p1

  ! 为 'p1' 的成员赋值
  p1%name = 'John Doe'
  p1%age = 30
  p1%height = 1.80

  ! 输出 'p1' 的成员值
  print *, 'Name:', p1%name
  print *, 'Age:', p1%age
  print *, 'Height:', p1%height

end program main

在这个示例中，我们首先导入了my_module模块，然后声明了一个名为p1的person类型变量。接下来，我们为p1的成员赋值，并使用print语句输出这些值。

请注意，这个示例使用了Fortran 90/95标准中的type关键字来定义数据结构。如果你使用的是较旧的Fortran版本（如Fortran 77），则需要使用不同的方法来定义数据结构。