Annotation of OpenXM_contrib/PHC/Ada/Continuation/drivers_for_path_directions.ads, Revision 1.1.1.1
1.1 maekawa 1: with text_io; use text_io;
2: with Standard_Complex_Numbers; use Standard_Complex_numbers;
3: with Standard_Floating_Vectors; use Standard_Floating_Vectors;
4: with Standard_Floating_VecVecs; use Standard_Floating_VecVecs;
5: with Standard_Complex_Solutions; use Standard_Complex_Solutions;
6:
7: package Drivers_for_Path_Directions is
8:
9: -- DESCRIPTION :
10: -- This package provides driver routines for the computation of the
11: -- direction of the solution paths.
12:
13: procedure Init_Path_Directions
14: ( n,nv : in natural; v : in out Link_to_VecVec;
15: errv : in out Link_to_Vector );
16:
17: -- DESCRIPTION :
18: -- Initializes the data for path directions.
19:
20: -- ON ENTRY :
21: -- n dimension of the solution vectors;
22: -- nv number of solution paths.
23:
24: -- ON RETURN :
25: -- v nv zero vectors of range 1..n;
26: -- errv nv entries equal to 1.0.
27:
28: procedure Toric_Continue
29: ( file : in file_type; sols : in out Solution_List;
30: proj,report : in boolean; v : in out VecVec;
31: errv : in out Vector; target : in Complex_Number );
32:
33: -- DESCRIPTION :
34: -- Performs the continuation with computation of path directions.
35:
36: procedure Write_Directions
37: ( file : in file_type; v : in VecVec; errv : in Vector );
38:
39: -- DESCRIPTION :
40: -- Writes the directions of the paths with their errors to the file.
41:
42: end Drivers_for_Path_Directions;
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>