Ada 程式設計/庫/介面.Fortran

計算 » 計算機科學 » 計算機程式設計 » Ada 程式設計

---

此語言特性從 Ada 95 開始可用。

介面.Fortran 是 預定義語言環境 自 Ada 95 以來的一個單元。

規格說明

with Ada.Numerics.Generic_Complex_Types;  --  see G.1.1
pragma Elaborate_All(Ada.Numerics.Generic_Complex_Types);
package Interfaces.Fortran is
   pragma Pure(Fortran);

   type Fortran_Integer is range implementation-defined;

   type Real             is digits implementation-defined;
   type Double_Precision is digits implementation-defined;

   type Logical is new Boolean;

   package Single_Precision_Complex_Types is
      new Ada.Numerics.Generic_Complex_Types (Real);

   type Complex is new Single_Precision_Complex_Types.Complex;

   subtype Imaginary is Single_Precision_Complex_Types.Imaginary;
   i : Imaginary renames Single_Precision_Complex_Types.i;
   j : Imaginary renames Single_Precision_Complex_Types.j;

   type Character_Set is implementation-defined character type;

   type Fortran_Character is array (Positive range <>) of Character_Set
      with Pack;

   function To_Fortran (Item : in Character) return Character_Set;
   function To_Ada (Item : in Character_Set) return Character;

   function To_Fortran (Item : in String) return Fortran_Character;
   function To_Ada     (Item : in Fortran_Character) return String;

   procedure To_Fortran (Item       : in String;
                         Target     : out Fortran_Character;
                         Last       : out Natural);

   procedure To_Ada (Item     : in Fortran_Character;
                     Target   : out String;
                     Last     : out Natural);

end Interfaces.Fortran;

另請參閱

華夏公益教科書

• Ada 程式設計/庫/介面

外部示例

• 在以下位置搜尋 示例：Rosetta 程式碼、GitHub (gists)、任何 Alire 包 或 此華夏公益教科書。
• 在以下位置搜尋與 Interfaces.Fortran 相關的 帖子：Stack Overflow、comp.lang.ada 或 任何與 Ada 相關的頁面。

Ada 參考手冊

Ada 95

• B.5: 與 Fortran 介面 ^[註釋]

Ada 2005

• B.5: 與 Fortran 介面 ^[註釋]

Ada 2012

• B.5: 與 Fortran 介面 ^[註釋]

開源實現

FSF GNAT

• 規格說明：i-fortra.ads
• 主體：i-fortra.adb

drake

• 規格說明：numerics/i-fortra.ads
• 主體：numerics/i-fortra.adb