00001
00006 #include "cfortran.h"
00007 #include "cpointer.h"
00008
00009
00010
00011
00012 PTRTYPE lcpidcreate() ;
00013 int lcpiddelete( PTRTYPE pid ) ;
00014
00015 int lcpidid( PTRTYPE pid ) ;
00016 int lcpidgettype( PTRTYPE pid ) ;
00017 int lcpidgetpdg( PTRTYPE pid ) ;
00018 float lcpidgetlikelihood( PTRTYPE pid ) ;
00019
00020 int lcpidgetalgorithmtype( PTRTYPE pid ) ;
00021 int lcpidgetparameters( PTRTYPE pid, float* vec, int* nvec ) ;
00022
00023 int lcpidsettype( PTRTYPE pid, int type ) ;
00024 int lcpidsetpdg( PTRTYPE pid, int pdg ) ;
00025 int lcpidsetlikelihood( PTRTYPE pid, float logl ) ;
00026
00027 int lcpidsetalgorithmtype( PTRTYPE pid, int algo ) ;
00028 int lcpidaddparameter( PTRTYPE pid, float param ) ;
00029
00030
00031
00032 extern "C"{
00033
00034 FCALLSCFUN0(CFORTRANPNTR, lcpidcreate, LCPIDCREATE, lcpidcreate )
00035 FCALLSCFUN1(INT, lcpiddelete, LCPIDDELETE, lcpiddelete, CFORTRANPNTR )
00036
00037 FCALLSCFUN1(INT, lcpidid, LCPIDID, lcpidid, CFORTRANPNTR)
00038 FCALLSCFUN1(INT, lcpidgettype, LCPIDGETTYPE, lcpidgettype, CFORTRANPNTR)
00039 FCALLSCFUN1(INT, lcpidgetpdg, LCPIDGETPDG, lcpidgetpdg, CFORTRANPNTR)
00040
00041 FCALLSCFUN1(FLOAT, lcpidgetlikelihood, LCPIDGETLIKELIHOOD, lcpidgetlikelihood, CFORTRANPNTR)
00042
00043
00044 FCALLSCFUN1(INT, lcpidgetalgorithmtype, LCPIDGETALGORITHMTYPE, lcpidgetalgorithmtype, CFORTRANPNTR )
00045 FCALLSCFUN3(INT, lcpidgetparameters, LCPIDGETPARAMETERS, lcpidgetparameters, CFORTRANPNTR, FLOATV, INTV)
00046
00047 FCALLSCFUN2(INT, lcpidsettype, LCPIDSETTYPE, lcpidsettype, CFORTRANPNTR, INT)
00048 FCALLSCFUN2(INT, lcpidsetpdg, LCPIDSETPDG, lcpidsetpdg, CFORTRANPNTR, INT)
00049
00050 FCALLSCFUN2(INT, lcpidsetlikelihood, LCPIDSETLIKELIHOOD, lcpidsetlikelihood, CFORTRANPNTR, FLOAT)
00051
00052 FCALLSCFUN2(INT, lcpidsetalgorithmtype, LCPIDSETALGORITHMTYPE, lcpidsetalgorithmtype, CFORTRANPNTR, INT)
00053 FCALLSCFUN2(INT, lcpidaddparameter, LCPIDADDPARAMETER, lcpidaddparameter, CFORTRANPNTR, FLOAT)
00054
00055 }
00056
00057