LCIO  "2.7.4"
 All Classes Namespaces Functions Variables Typedefs Friends Pages
lcpid.h
1 
6 #include "cfortran.h"
7 #include "cpointer.h"
8 
9 // Warning: dont use "_" in function names as this causes two many
10 // trailing underscores on Linux
11 
12 PTRTYPE lcpidcreate() ;
13 int lcpiddelete( PTRTYPE pid ) ;
14 
15 int lcpidid( PTRTYPE pid ) ;
16 int lcpidgettype( PTRTYPE pid ) ;
17 int lcpidgetpdg( PTRTYPE pid ) ;
18 float lcpidgetlikelihood( PTRTYPE pid ) ;
19 
20 int lcpidgetalgorithmtype( PTRTYPE pid ) ;
21 int lcpidgetparameters( PTRTYPE pid, float* vec, int* nvec ) ;
22 
23 int lcpidsettype( PTRTYPE pid, int type ) ;
24 int lcpidsetpdg( PTRTYPE pid, int pdg ) ;
25 int lcpidsetlikelihood( PTRTYPE pid, float logl ) ;
26 
27 int lcpidsetalgorithmtype( PTRTYPE pid, int algo ) ;
28 int lcpidaddparameter( PTRTYPE pid, float param ) ;
29 
30 
31 // now the fortran wrappers from cfortran.h
32 extern "C"{
33 
34 FCALLSCFUN0(CFORTRANPNTR, lcpidcreate, LCPIDCREATE, lcpidcreate )
35 FCALLSCFUN1(INT, lcpiddelete, LCPIDDELETE, lcpiddelete, CFORTRANPNTR )
36 
37 FCALLSCFUN1(INT, lcpidid, LCPIDID, lcpidid, CFORTRANPNTR)
38 FCALLSCFUN1(INT, lcpidgettype, LCPIDGETTYPE, lcpidgettype, CFORTRANPNTR)
39 FCALLSCFUN1(INT, lcpidgetpdg, LCPIDGETPDG, lcpidgetpdg, CFORTRANPNTR)
40 
41 FCALLSCFUN1(FLOAT, lcpidgetlikelihood, LCPIDGETLIKELIHOOD, lcpidgetlikelihood, CFORTRANPNTR)
42 
43 
44 FCALLSCFUN1(INT, lcpidgetalgorithmtype, LCPIDGETALGORITHMTYPE, lcpidgetalgorithmtype, CFORTRANPNTR )
45 FCALLSCFUN3(INT, lcpidgetparameters, LCPIDGETPARAMETERS, lcpidgetparameters, CFORTRANPNTR, FLOATV, INTV)
46 
47 FCALLSCFUN2(INT, lcpidsettype, LCPIDSETTYPE, lcpidsettype, CFORTRANPNTR, INT)
48 FCALLSCFUN2(INT, lcpidsetpdg, LCPIDSETPDG, lcpidsetpdg, CFORTRANPNTR, INT)
49 
50 FCALLSCFUN2(INT, lcpidsetlikelihood, LCPIDSETLIKELIHOOD, lcpidsetlikelihood, CFORTRANPNTR, FLOAT)
51 
52 FCALLSCFUN2(INT, lcpidsetalgorithmtype, LCPIDSETALGORITHMTYPE, lcpidsetalgorithmtype, CFORTRANPNTR, INT)
53 FCALLSCFUN2(INT, lcpidaddparameter, LCPIDADDPARAMETER, lcpidaddparameter, CFORTRANPNTR, FLOAT)
54 
55 }
56 
57