12 PTRTYPE lcpidcreate() ;
13 int lcpiddelete( PTRTYPE pid ) ;
15 int lcpidid( PTRTYPE pid ) ;
16 int lcpidgettype( PTRTYPE pid ) ;
17 int lcpidgetpdg( PTRTYPE pid ) ;
18 float lcpidgetlikelihood( PTRTYPE pid ) ;
20 int lcpidgetalgorithmtype( PTRTYPE pid ) ;
21 int lcpidgetparameters( PTRTYPE pid,
float* vec,
int* nvec ) ;
23 int lcpidsettype( PTRTYPE pid,
int type ) ;
24 int lcpidsetpdg( PTRTYPE pid,
int pdg ) ;
25 int lcpidsetlikelihood( PTRTYPE pid,
float logl ) ;
27 int lcpidsetalgorithmtype( PTRTYPE pid,
int algo ) ;
28 int lcpidaddparameter( PTRTYPE pid,
float param ) ;
34 FCALLSCFUN0(CFORTRANPNTR, lcpidcreate, LCPIDCREATE, lcpidcreate )
35 FCALLSCFUN1(INT, lcpiddelete, LCPIDDELETE, lcpiddelete, CFORTRANPNTR )
37 FCALLSCFUN1(INT, lcpidid, LCPIDID, lcpidid, CFORTRANPNTR)
38 FCALLSCFUN1(INT, lcpidgettype, LCPIDGETTYPE, lcpidgettype, CFORTRANPNTR)
39 FCALLSCFUN1(INT, lcpidgetpdg, LCPIDGETPDG, lcpidgetpdg, CFORTRANPNTR)
41 FCALLSCFUN1(FLOAT, lcpidgetlikelihood, LCPIDGETLIKELIHOOD, lcpidgetlikelihood, CFORTRANPNTR)
44 FCALLSCFUN1(INT, lcpidgetalgorithmtype, LCPIDGETALGORITHMTYPE, lcpidgetalgorithmtype, CFORTRANPNTR )
45 FCALLSCFUN3(INT, lcpidgetparameters, LCPIDGETPARAMETERS, lcpidgetparameters, CFORTRANPNTR, FLOATV, INTV)
47 FCALLSCFUN2(INT, lcpidsettype, LCPIDSETTYPE, lcpidsettype, CFORTRANPNTR, INT)
48 FCALLSCFUN2(INT, lcpidsetpdg, LCPIDSETPDG, lcpidsetpdg, CFORTRANPNTR, INT)
50 FCALLSCFUN2(INT, lcpidsetlikelihood, LCPIDSETLIKELIHOOD, lcpidsetlikelihood, CFORTRANPNTR, FLOAT)
52 FCALLSCFUN2(INT, lcpidsetalgorithmtype, LCPIDSETALGORITHMTYPE, lcpidsetalgorithmtype, CFORTRANPNTR, INT)
53 FCALLSCFUN2(INT, lcpidaddparameter, LCPIDADDPARAMETER, lcpidaddparameter, CFORTRANPNTR, FLOAT)