Interfacing Ada with C
in [ADA]
|
Prev: Dhrystone
Next: Learning Ada
From: Ada novice on 27 Jul 2010 15:01 On Jul 27, 2:24 pm, Peter Hermann <h...(a)h.de> wrote: > YC, > Ada novice <po...(a)gmx.us> seems to be anonymous. > My Email did not arrive, as expected. I have just checked my email at GMX and saw that you have written to me. I have replied from my GMX account. > Maybe you open your identity to TEAM-...(a)LISTSERV.ACM.ORG > at least? > ph I don't know what settings I have but my email address is reachable of course. How do I open to TEAM-...(a)LISTSERV.ACM.ORG ? Thanks. YC
From: Simon Wright on 28 Jul 2010 18:26 Simon Wright <simon(a)pushface.org> writes: > Ada novice <posts(a)gmx.us> writes: >> On Jul 26, 1:21 am, Simon Wright <si...(a)pushface.org> wrote: >> >>> I've encoded a general complex eigenvalues function, interfacing to the >>> LAPACK procedure zgeev > >> Thank you very much for your commendable efforts. This is a very good >> example to demonstrate how Ada can be binded with LAPACK. > > Well, it's a start! I've taken the plunge and started a SourceForge project for this. It's at http://sourceforge.net/projects/gnat-math-extn/ -- under "Ada 2005 Math Extensions", click on [Develop] then on [Code]. I've chosen to use Mercurial (Hg) as the VCS, mainly to get a real-world feel for using a DVCS (Distributed Version Control System). To downoad the code, you'll need to install Hg - http://mercurial.selenic.com/ - because I haven't actually made a code release yet! If anyone feels moved to join in, just say (of course you need a SF account to update the SF repository, but with Hg it should be possible to work via patchsets .. ) For interest, the test program now looks like with Ada.Text_IO; use Ada.Text_IO; with Ada.Numerics.Generic_Real_Arrays; with Ada.Numerics.Generic_Complex_Types; with Ada.Numerics.Generic_Complex_Arrays.Extensions; procedure Test_Extensions is package Real_Arrays is new Ada.Numerics.Generic_Real_Arrays (Long_Float); package Complex_Types is new Ada.Numerics.Generic_Complex_Types (Long_Float); package Complex_Arrays is new Ada.Numerics.Generic_Complex_Arrays (Real_Arrays, Complex_Types); package Extensions is new Complex_Arrays.Extensions; use Complex_Arrays; Input : Complex_Matrix (1 .. 3, 1 .. 3); Result : Complex_Vector (1 .. Input'Length (1)); begin -- Values in yc's example Input := (((8.0, 0.0), (-1.0, 0.0), (-5.0, 0.0)), ((-4.0, 0.0), (4.0, 0.0), (-2.0, 0.0)), ((18.0, 0.0), (-5.0, 0.0), (-7.0, 0.0))); Result := Extensions.Eigenvalues (Input); for J in Result'Range loop Put_Line (Long_Float'Image (Result (J).Re) & " " & Long_Float'Image (Result (J).Im)); end loop; end Test_Extensions; (results as before)
From: Ada novice on 29 Jul 2010 05:19 On Jul 29, 12:26 am, Simon Wright <si...(a)pushface.org> wrote: > Simon Wright <si...(a)pushface.org> writes: > > Ada novice <po...(a)gmx.us> writes: > >> On Jul 26, 1:21 am, Simon Wright <si...(a)pushface.org> wrote: > > >>> I've encoded a general complex eigenvalues function, interfacing to the > >>> LAPACK procedure zgeev > > >> Thank you very much for your commendable efforts. This is a very good > >> example to demonstrate how Ada can be binded with LAPACK. > > > Well, it's a start! > > I've taken the plunge and started a SourceForge project for this. It's > athttp://sourceforge.net/projects/gnat-math-extn/-- under "Ada 2005 > Math Extensions", click on [Develop] then on [Code]. > > I've chosen to use Mercurial (Hg) as the VCS, mainly to get a real-world > feel for using a DVCS (Distributed Version Control System). To downoad > the code, you'll need to install Hg -http://mercurial.selenic.com/- > because I haven't actually made a code release yet! > > If anyone feels moved to join in, just say (of course you need a SF > account to update the SF repository, but with Hg it should be possible > to work via patchsets .. ) > This is great news. I would be happy to join the project. I'm not a programmer as you know :). I'm a mechanical engineer and have a sound background in numerical methods and use them a lot. I would be happy to contribute in testing, feedback and coming up with suggestions. YC
From: Simon Wright on 29 Jul 2010 15:14 Ada novice <posts(a)gmx.us> writes: > On Jul 29, 12:26 am, Simon Wright <si...(a)pushface.org> wrote: >> Simon Wright <si...(a)pushface.org> writes: >> > Ada novice <po...(a)gmx.us> writes: >> >> On Jul 26, 1:21 am, Simon Wright <si...(a)pushface.org> wrote: >> >> >>> I've encoded a general complex eigenvalues function, interfacing to the >> >>> LAPACK procedure zgeev >> >> >> Thank you very much for your commendable efforts. This is a very good >> >> example to demonstrate how Ada can be binded with LAPACK. >> >> > Well, it's a start! >> >> I've taken the plunge and started a SourceForge project for >> this. It's at http://sourceforge.net/projects/gnat-math-extn/ -- >> under "Ada 2005 Math Extensions", click on [Develop] then on [Code]. >> [...] >> >> If anyone feels moved to join in, just say (of course you need a SF >> account to update the SF repository, but with Hg it should be possible >> to work via patchsets .. ) > > This is great news. I would be happy to join the project. I'm not a > programmer as you know :). I'm a mechanical engineer and have a sound > background in numerical methods and use them a lot. I would be happy > to contribute in testing, feedback and coming up with suggestions. The project needs someone with a sound background in numerical methods, and feedback/suggestions are always more than welcome. So do join...
From: Ada novice on 29 Jul 2010 16:21
On Jul 29, 9:14 pm, Simon Wright <si...(a)pushface.org> wrote: > The project needs someone with a sound background in numerical methods, > and feedback/suggestions are always more than welcome. So do join... Thanks. I'm actually a PhD student in mechanical engineering. The good news is that I have access to many books on numerical methods. So I will be happy to help you with the testing and provides suggestions as to which algorithms can be considered better and are more used than others. I don't have experience with mercurial but I have used one VCS software namely Tortoise SVN locally on my machine for some of my LaTeX documents. Right now I don't know how to download your test codes using mercurial. I have though an account at SF. Maybe I can wait till you have a public release. Godspeed YC |