source: TRACY3/trunk/tracy/tracy/inc/tpsa_for.h @ 3

Last change on this file since 3 was 3, checked in by zhangj, 12 years ago

Initiale import
  • Property svn:executable set to *
File size: 3.2 KB
Line 
1/* Author:       Johan Bengtsson.
2
3   Definitions:  Interface to Fortran TPSA- and Lie library.  */
4
5
6extern "C" {
7  // Interfact to FORTRAN TPSA-library
8  void daini_(const int &, const int &, const int &);
9  void daall_(int &, const int &, const char [], 
10              const int &, const int &);
11  void dadal_(int &, const int &);
12  void dacon_(int &, const double &);
13  void davar_(int &, const double &, const int &);
14  void daadd_(const int &, const int &, int &);
15  void dasub_(const int &, const int &, int &);
16  void damul_(const int &, const int &, int &);
17  void dadiv_(const int &, const int &, int &);
18  void dacad_(const int &, const double &, int &);
19  // dacsu <=> dacad(a, -r, b)
20  //void dasuc_(const int &, const double &, int &);
21  void dacmu_(const int &, const double &, int &);
22  // dacdi <=> dacmu(a, 1/r, b)
23  //void dadic_(const int &, const double &, int &);
24  void dafun_(const char [], const int &, int &);
25  void dader_(const int &, const int &, int &);
26  void danot_(const int &);
27  void daeps_(const double &);
28  void dacop_(const int &, int &);
29  void daabs_(const int &, double &);
30  void daabs2_(const int &, double &);
31  void dapek_(const int &, const int [], double &);
32  void dapok_(int &, const int [], const double &);
33  void dapri_(const int &, const int &);
34  void darea_(const int &, const int &);
35  void dapoi_(const int &, const int &, int &, const int &);
36  void hash_(const int &, const int &, const int [], int &, int &);
37  void dehash_(const int &, const int &, const int &, const int &, int []);
38  void daimp_(const double [], const int [], const int [], int &);
39  void dainv_(const int [], const int &, int [], const int &);
40//  void dapin_(const int [], const int &, int [], const int &, const int []);
41  void daexp_(const int &, double [], int [], int [], char []); 
42  void dacct_(const int [], const int &, const int [], const int &,
43              int [], const int &);
44
45  // Interface to FORTRAN Lie-lib
46  void lieinit_(const int &, const int &, const int &,
47                const int &, const int &, const int &);
48  void idprset_(const int &);
49  void exp1d_(const int &, const int &, int &,
50              const double &, const int &);
51  void expnd2_(const int &, const int [], int [],
52               const double &, const int &);
53  void etinv_(const int [], int []);
54  void etpin_(const int [], int [], const int []);
55  void etcct_(const int [], const int [], int []);
56  bool mapnorm_(const int [], int &, int [], int [], int [],
57                int &, const int &);
58  bool mapnormf_(const int [], int [], int [], int [], int [],
59                 int [], const int &, const int &);
60  void gofix_(const int [], int [], int [], const int &);
61  void dhdj_(const int &, int []);
62  void ctor_(const int &, int &, int &);
63  void rtoc_(const int &, const int &, int &);
64  void fexpo_(const int &, const int [], int [], const int &, const int &,
65              const double &, const int &);
66  void liefact_(const int [], int [], int &);
67  void flofacg_(const int [], int [], const double &);
68  void intd_(const int [], int &, double &);
69  void difd_(const int &, int [], double &);
70  void etpoi_(const int &, const int &, int &);
71  void take_(const int &, const int &, int &);
72  void taked_(const int [], const int &, int []);
73  void gettura_(double [], double []);
74}
Note: See TracBrowser for help on using the repository browser.