[BACK]Return to generic_matrices_io.adb CVS log [TXT][DIR] Up to [local] / OpenXM_contrib / PHC / Ada / Math_Lib / Matrices
File: [local] / OpenXM_contrib / PHC / Ada / Math_Lib / Matrices / generic_matrices_io.adb (download)

Revision 1.1.1.1 (vendor branch), Sun Oct 29 17:45:23 2000 UTC (23 years, 7 months ago) by maekawa
Branch: PHC, MAIN
CVS Tags: v2, maekawa-ipv6, RELEASE_1_2_3, RELEASE_1_2_2_KNOPPIX_b, RELEASE_1_2_2_KNOPPIX, RELEASE_1_2_2, RELEASE_1_2_1, HEAD
Changes since 1.1: +0 -0 lines 

Import the second public release of PHCpack.

OKed by Jan Verschelde.

package body Generic_Matrices_io is

  use Ring_io;

  procedure get ( m : out Matrix ) is
  begin
    get(Standard_Input,m);
  end get;

  procedure get ( m : out Matrix; rw1,rw2 : in integer ) is
  begin
    get(Standard_Input,m,rw1,rw2);
  end get;

  procedure get ( file : in file_type; m : out Matrix ) is
  begin
    for i in m'range(1) loop
      for j in m'range(2) loop
        get(file,m(i,j));
      end loop;
    end loop;
  end get;

  procedure get ( file : in file_type;
                  m : out Matrix; rw1,rw2 : in integer ) is
  begin
    for i in rw1..rw2 loop
      for j in m'range(2) loop
        get(file,m(i,j));
      end loop;
    end loop;
  end get;

  procedure put ( m : in Matrix ) is
  begin
    put(Standard_Output,m);
  end put;

  procedure put ( m : in Matrix; rw1,rw2 : in integer ) is
  begin
    put(Standard_Output,m,rw1,rw2);
  end put;

  procedure put ( file : in file_type; m : in Matrix ) is
  begin
    for i in m'range(1) loop
      for j in m'range(2) loop
        put(file,' '); put(file,m(i,j));
      end loop;
      new_line(file);
    end loop;
  end put;

  procedure put ( file : in file_type; m : in Matrix; rw1,rw2 : in integer ) is
  begin
    for i in rw1..rw2 loop
      for j in m'range(2) loop
        put(file,' '); put(file,m(i,j));
      end loop;
      new_line(file);
    end loop;
  end put;

  procedure put ( m : in Matrix; dp : in natural ) is
  begin
    put(Standard_Output,m,dp);
  end put;

  procedure put ( m : in Matrix; rw1,rw2 : in integer; dp : in natural ) is
  begin
    put(Standard_Output,m,rw1,rw2,dp);
  end put;

  procedure put ( file : in file_type; m : in Matrix; dp : in natural ) is
  begin
    for i in m'range(1) loop
      for j in m'range(2) loop
        put(file,' '); put(file,m(i,j),dp);
      end loop;
      new_line(file);
    end loop;
  end put;

  procedure put ( file : in file_type;
                  m : in Matrix; rw1,rw2 : in integer; dp : in natural ) is
  begin
    for i in rw1..rw2 loop
      for j in m'range(2) loop
        put(file,' '); put(file,m(i,j),dp);
      end loop;
      new_line(file);
    end loop;
  end put;

end Generic_Matrices_io;