Ada Programming/Libraries/Interfaces.Fortran

Interfaces.Fortran __TOC__ Interfaces Fortran is a unit of the Predefined Language Environment since Ada 95. Specification with Ada Numerics Generic_Complex_Types; see G.1.1 pragma Elaborate_All(Adadot .Numericsdot .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 Adadot .Numericsdot .Generic_Complex_Types (Real); type Complex is new Single_Precision_Complex_Typesdot .Complex; subtype Imaginary is Single_Precision_Complex_Typesdot .Imaginary; i : Imaginary renames Single_Precision_Complex_Typesdot .i; j : Imaginary renames Single_Precision_Complex_Typesdot .j; type Character_Set is implementation-defined character type; type Fortran_Character is array (Positive range box <>) 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 Interfacesdot .Fortran; See also Wikibook Ada Programming/Libraries/Interfaces Ada Reference Manual Ada 95 B 5 Interfacing with Fortran Ada 2005 B 5 Interfacing with Fortran Ada 2012 B 5 Interfacing with Fortran Open-Source Implementations i-fortra.ads i-fortra.adb numerics/i-fortra.ads numerics/i-fortra.adb