1 /* *****************************************************************
2 
3    This file, and all other pel*.h and pel*.cc files in the Gambit
4 source code, are derived from the source code for Pelican, an
5 implementation of the Huber-Sturmfels algorithm for solving sparse
6 systems of polynomials written by Birk Huber.  That code in turn
7 incorporated the source code for HOMPACK and Qhull, which are included
8 here after being modified in the construction of both Pelican and
9 Gambit.  We are grateful to the authors of Pelican, Qhull, and
10 HOMPACK, for code that has been enormously useful in Gambit.
11     More information about Qhull can be obtained from:
12 
13 http://www.geom.edu/software/qhull/
14 
15     For more information concerning HOMPACK see:
16 
17 http://netlib2.cs.utk.edu/hompack/
18 
19 ***************************************************************** */
20 
21 /*-------------------------------------------------------------------
22 Call_Hompack.c    created 9/15/1994         last modified 9/15/1994
23                              Birk Huber     (birk@math.cornell.edu
24 ALL RIGHTS RESERVED
25 
26   This File represents the interface between Pelican and Hompacks
27   FIXPNF path tracker. The HOMPACK routines it calls have actually
28   been translated from fortran into c with f2c and then modified a
29   little so as not to require the f2c library.
30 
31   The two routines the user needs to be aware of are init_HPK
32   which takes a pelican Pvector, converts it to "tableau" format,
33   and initialies all the nescessary global variables to represent
34   the homotopy.   Call_HPK_Hom wich takes a double vector and uses
35   it as a starting point for path continuation.
36 --------------------------------------------------------------------*/
37 
38 #ifndef CALL_HPK_H
39 #define CALL_HPK_H
40 
41 #include "pelhomot.h"
42 
43 void print_proj_trans();
44 
45 int HPK_cont(Dvector X, int tweak);
46 
47 #endif  /* CALL_HPK_H */
48