Fortran怎么創(chuàng)建和使用結(jié)構(gòu)體

小億
143
2024-04-12 15:14:13

在Fortran中，結(jié)構(gòu)體可以通過(guò)使用TYPE關(guān)鍵字來(lái)定義。下面是一個(gè)示例代碼，展示了如何創(chuàng)建和使用結(jié)構(gòu)體：

PROGRAM StructExample

  ! 定義一個(gè)結(jié)構(gòu)體類(lèi)型
  TYPE :: Person
    CHARACTER(20) :: name
    INTEGER :: age
    REAL :: height
  END TYPE Person

  ! 聲明一個(gè)結(jié)構(gòu)體變量
  TYPE(Person) :: person1

  ! 初始化結(jié)構(gòu)體變量的成員
  person1%name = 'Alice'
  person1%age = 30
  person1%height = 1.65

  ! 輸出結(jié)構(gòu)體變量的成員
  PRINT *, 'Name: ', person1%name
  PRINT *, 'Age: ', person1%age
  PRINT *, 'Height: ', person1%height

END PROGRAM StructExample

在上面的示例中，我們定義了一個(gè)名為Person的結(jié)構(gòu)體類(lèi)型，該結(jié)構(gòu)體有三個(gè)成員：name、age和height。然后我們聲明了一個(gè)名為person1的結(jié)構(gòu)體變量，給該變量的成員賦值，并輸出這些值。

通過(guò)這種方式，我們就可以在Fortran中創(chuàng)建和使用結(jié)構(gòu)體。

0 踩