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=2.1 required=5.0 tests=BAYES_00,INVALID_MSGID,
	MSGID_RANDY,PP_MIME_FAKE_ASCII_TEXT autolearn=no autolearn_force=no
	version=3.4.4
X-Google-Language: ENGLISH,ASCII
X-Google-Thread: 103376,96424a7ea58e8817
X-Google-Attributes: gid103376,public
From: pumilia@est.it
Subject: Re: help on interfacing with fortran
Date: 2000/01/25
Message-ID: <86jgqe$q5l$1@nnrp1.deja.com>#1/1
X-Deja-AN: 577203028
References: <38818E32.FD90616B@cstc.org> <slrn883q7d.899.gisle@apal.ii.uib.no>
X-Http-Proxy: 1.0 x27.deja.com:80 (Squid/1.1.22) for client 212.239.48.50
Organization: Deja.com - Before you buy.
X-Article-Creation-Date: Tue Jan 25 06:45:34 2000 GMT
X-MyDeja-Info: XMYDJUIDpumilia
Newsgroups: comp.lang.ada
X-Http-User-Agent: Mozilla/4.7 [en] (X11; I; Linux 2.2.13 i686)
Date: 2000-01-25T00:00:00+00:00
List-Id: <comp.lang.ada>

In article <slrn883q7d.899.gisle@apal.ii.uib.no>,
  gisle@apal.ii.uib.no (Gisle S�lensminde) wrote:
> In article <38818E32.FD90616B@cstc.org>, Paolo M. Pumilia wrote:
> >
> >I would like to interface a set of fortran soubroutines and functions
> >to main Ada procedure.
> > ......
> Here is a pice of code that do what you tried to do. Since it seems
> that you have some problem with the Ada syntax in general, I have
> tried to make some hopefully useful comments in the code. The code
> seemed to work on SGI IRIX 6.5 with gnat 3.11b and g77. The code was
> compiled with:
>
> g77 -c -fno-second-underscore rnor.f
> gnatmake ada_main.adb -largs rnor.o
>
Thank you for your help;
It works perfectly now. Pseudo random numbers generated by rnor.f are
exactly the same wether is is calld by a fortran main program or by ada
procedure.
Compilation of rnor.o on a intel i686 platform has been done using
different options:

% g77 -fno-second-underscore -fno-automatic -finit-local-zero -c  rnor.f

to initialize to binary zeros parameters not passed as an argument and
to save current values of local variables in functions and subroutines.
Thank you again

Paolo Pumilia


Sent via Deja.com http://www.deja.com/
Before you buy.