Fortran導出數(shù)據(jù)類型

Fortran語言可以定義導出的數(shù)據(jù)類型。導出的數(shù)據(jù)類型也被稱為一個結構，它可以包含不同類型的數(shù)據(jù)對象。

導出的數(shù)據(jù)類型被用來代表一個記錄。例如要跟蹤在圖書館的書，可能希望跟蹤的每本書有如下屬性：

• 標題- Title
• 作者 - Author
• 科目 - Subject
• 編號 - Book ID

定義一個導出的數(shù)據(jù)類型

定義一個派生數(shù)據(jù)類型，類型和端類型的語句被使用。類型語句定義了一個新的數(shù)據(jù)類型，項目不止一個成員。類型聲明的格式是這樣的：

type type_name      
   declarations
end type 

這里是會聲明書的結構方式：

type Books
   character(len=50) :: title
   character(len=50) :: author
   character(len=150) :: subject
   integer :: book_id
end type Books

訪問結構成員

一個派生數(shù)據(jù)類型的對象被稱為結構

類型書籍(Books) 的結構像一個類型聲明語句創(chuàng)建如下：

type(Books) :: book1 

結構的組成部分可以使用該組件選擇字符(%)進行訪問 :

book1%title = "C Programming"
book1%author = "Nuha Ali"
book1%subject = "C Programming Tutorial"
book1%book_id = 6495407

請注意，％符號前后沒有空格。

示例

下面的程序說明了上述概念：

program deriveDataType

   !type declaration
   type Books
      character(len=50) :: title
      character(len=50) :: author
      character(len=150) :: subject
      integer :: book_id
   end type Books
   
   !declaring type variables
   type(Books) :: book1 
   type(Books) :: book2 
   
   !accessing the components of the structure
   
   book1%title = "C Programming"
   book1%author = "Nuha Ali"
   book1%subject = "C Programming Tutorial"
   book1%book_id = 6495407 
   
   book2%title = "Telecom Billing"
   book2%author = "Zara Ali"
   book2%subject = "Telecom Billing Tutorial"
   book2%book_id = 6495700
  
   !display book info
   
   Print *, book1%title 
   Print *, book1%author 
   Print *, book1%subject 
   Print *, book1%book_id  
   
   Print *, book2%title 
   Print *, book2%author 
   Print *, book2%subject 
   Print *, book2%book_id  

end program deriveDataType

當上述代碼被編譯和執(zhí)行時，它產生了以下結果：

 C Programming                                     
 Nuha Ali                                          
 C Programming Tutorial            
     6495407
 Telecom Billing                                   
 Zara Ali                                          
 Telecom Billing Tutorial            
     6495700

結構數(shù)組

還可以創(chuàng)建一個派生類型的數(shù)組：

type(Books), dimension(2) :: list

數(shù)組的單個元素，可以訪問如下：

list(1)%title = "C Programming"
list(1)%author = "Nuha Ali"
list(1)%subject = "C Programming Tutorial"
list(1)%book_id = 6495407

下面的程序說明了這個概念：

program deriveDataType

   !type declaration
   type Books
      character(len=50) :: title
      character(len=50) :: author
      character(len=150) :: subject
      integer :: book_id
   end type Books
   
   !declaring array of books
   type(Books), dimension(2) :: list 
    
   !accessing the components of the structure
   
   list(1)%title = "C Programming"上一篇：Fortran模塊下一篇：Fortran指針