Re: Ada.Numerics.Long_Real_Arrays

[hnptz@yahoo.de]

On Thursday, January 26, 2017 at 8:47:07 AM UTC+1, Simon Wright wrote:
> hnptz@yahoo.de writes:
> 
> > I have nm_G.ads, nm.ads, nm.adb and test_nm.adb, and I want to specify
> > Np in test_nm.adb only, How can it be made possible ?
> 
> The thing is, you've supplied code examples that wouldn't even begin to
> compile because you've cut out so much and replaced with
> english-language text. The result is that we have no real idea what
> you're talking about.

I have conducted four files:

1. file nm_g.ads:

with Ada.Numerics.Long_Real_Arrays; 
generic 
  Np : Positive; 
package Nm_G is 
   subtype R_Vector 
     is Ada.Numerics.Long_Real_Arrays.Real_Vector (1 .. Np); 
   type R_Matrix is array (1 ..Np+1) of R_Vector; 
end Nm_G; 

2. file nm.ads:

with Ada.Numerics.Long_Real_Arrays; use Ada.Numerics.Long_Real_Arrays;
with nm_g;
package nm is
…
generic
with function f(R : R_Vector) return Long_Float;
procedure fnm ( P : in out R_Matrix);
…
end nm;

result: R_Matrix is not visible. But I don’t know Np at this moment.

3. file nm.adb:

package body nm is
…
procedure fnm ( P : in out R_Matrix) is
…
end fnm;
end nm;

result: R_Matrix is not visible. But I still don’t know Nt at this moment.

4. file test_nm.adb

with nm; use nm;
procedure test_nm is
Np : Positive := 2;
P : R_Matrix := ((1.0,2.0),(3.0,4.0),(5.0,6.0));
begin
fnm(P);
end test_nm;

result: cannot work

I admit this is only the way, I would like to set up the project. However, using an array of Real_Vectors may require a different approach.