From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-1.3 required=5.0 tests=BAYES_00,INVALID_MSGID
	autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,3b74366795b5f025,start
X-Google-Attributes: gid103376,public
From: "Samir N. Muhammad" <sam818@felix.seas.gwu.edu>
Subject: How To Compile Ada Prog Interfaced With Fortran
Date: 1998/09/23
Message-ID: <QA8O1.458$4%.8751761@fozzy.nit.gwu.edu>#1/1
X-Deja-AN: 394024071
X-Trace: fozzy.nit.gwu.edu 906565040 128.164.9.3 (Wed,
 23 Sep 1998 11:37:20 EDT)
Organization: The George Washington University
User-Agent: tin/pre-1.4-980618 (UNIX) (SunOS/5.5.1 (sun4d))
NNTP-Posting-Date: Wed, 23 Sep 1998 11:37:20 EDT
Newsgroups: comp.lang.ada
Date: 1998-09-23T00:00:00+00:00
List-Id: <comp.lang.ada>

Hello Everybody

Could any one tell me what are the steps for compiling, binding, 
and linking 
an Ada program interfaced with an intrinsic Fortran function(e.g. the
MATMUL or DOT_PRODUCT). For example, an Ada program interfaced with
Fortran might look like

procedure Linear_Algebra is
......


function Dot_Product(V1:Vector_Type;V2:Vector_Type) return Scalar_Type;
pragma Import(Fortran,Dot_Product,"DOT_PRODUCT") ;


.....


begin	-- Linear_Algebra

.....

     S := Dot_Product(Vect1,Vect2) ;
......
end Linear_Algebra ;



Now anyone could argue: why not write the Dot_Product in Ada? I used Dot_Product
for illustration. The larger picture is how to utilize the already available and
highly optimized linear algebra packages such as BLAS(Basic Linear Algebra 
Subroutines) that are written in Fortran.  




Any help is highly appreciated.





Samir Muhammad,