00001
00006 #include "cfortran.h"
00007 #include "cpointer.h"
00008
00009
00010
00011
00012 PTRTYPE lcrcpcreate() ;
00013 int lcrcpdelete( PTRTYPE rcp ) ;
00014
00015 int lcrcpid( PTRTYPE rcp ) ;
00016 int lcrcpgettype( PTRTYPE rcp ) ;
00017 bool lcrcpiscompound( PTRTYPE rcp ) ;
00018 int lcrcpgetmomentum( PTRTYPE rcp, float* p ) ;
00019 float lcrcpgetenergy( PTRTYPE rcp ) ;
00020 int lcrcpgetcovmatrix( PTRTYPE rcp, float* cvmtx ) ;
00021 float lcrcpgetmass( PTRTYPE rcp ) ;
00022 float lcrcpgetcharge( PTRTYPE rcp ) ;
00023 int lcrcpgetreferencepoint( PTRTYPE rcp, float* refpoint ) ;
00024 PTRTYPE lcrcpgetparticleids( PTRTYPE rcp ) ;
00025 float lcrcpgetgoodnessofpid( PTRTYPE pid ) ;
00026 PTRTYPE lcrcpgetparticles( PTRTYPE rcp ) ;
00027
00028 PTRTYPE lcrcpgetclusters( PTRTYPE rcp ) ;
00029
00030 PTRTYPE lcrcpgettracks( PTRTYPE rcp ) ;
00031
00032
00033
00034 PTRTYPE lcrcpgetstartvertex( PTRTYPE rcp ) ;
00035 PTRTYPE lcrcpgetendvertex( PTRTYPE rcp ) ;
00036
00037
00038 int lcrcpsettype( PTRTYPE rcp, int type ) ;
00039 int lcrcpsetcompound( PTRTYPE rcp, bool lcompound ) ;
00040 int lcrcpsetmomentum( PTRTYPE rcp, float* p ) ;
00041 int lcrcpsetenergy( PTRTYPE rcp, float energy ) ;
00042 int lcrcpsetcovmatrix( PTRTYPE rcp, float* cvmtx ) ;
00043 int lcrcpsetmass( PTRTYPE rcp, float xmass) ;
00044 int lcrcpsetcharge( PTRTYPE rcp, float charge ) ;
00045 int lcrcpsetreferencepoint( PTRTYPE rcp, float* refpoint ) ;
00046 int lcrcpaddparticleid( PTRTYPE rcp, PTRTYPE id ) ;
00047 int lcrcpsetgoodnessofpid( PTRTYPE pid, float good ) ;
00048 int lcrcpaddparticle( PTRTYPE rcp, PTRTYPE particle ) ;
00049 int lcrcpaddcluster( PTRTYPE rcp, PTRTYPE clus ) ;
00050 int lcrcpaddtrack( PTRTYPE rcp, PTRTYPE track) ;
00051
00052 int lcrcpsetstartvertex( PTRTYPE rcp, PTRTYPE vtx ) ;
00053
00054
00055
00056 extern "C"{
00057
00058 FCALLSCFUN0(CFORTRANPNTR, lcrcpcreate, LCRCPCREATE, lcrcpcreate )
00059 FCALLSCFUN1(INT, lcrcpdelete, LCRCPDELETE, lcrcpdelete, CFORTRANPNTR )
00060
00061 FCALLSCFUN1(INT, lcrcpid, LCRCPID, lcrcpid, CFORTRANPNTR)
00062 FCALLSCFUN1(INT, lcrcpgettype, LCRCPGETTYPE, lcrcpgettype, CFORTRANPNTR)
00063 FCALLSCFUN1(LOGICAL, lcrcpiscompound, LCRCPISCOMPOUND, lcrcpiscompound, CFORTRANPNTR)
00064 FCALLSCFUN2(INT, lcrcpgetmomentum, LCRCPGETMOMENTUM, lcrcpgetmomentum, CFORTRANPNTR, FLOATV)
00065 FCALLSCFUN1(FLOAT, lcrcpgetenergy, LCRCPGETENERGY, lcrcpgetenergy, CFORTRANPNTR)
00066 FCALLSCFUN2(INT, lcrcpgetcovmatrix, LCRCPGETCOVMATRIX, lcrcpgetcovmatrix, CFORTRANPNTR, FLOATV)
00067 FCALLSCFUN1(FLOAT, lcrcpgetmass, LCRCPGETMASS, lcrcpgetmass, CFORTRANPNTR)
00068 FCALLSCFUN1(FLOAT, lcrcpgetcharge, LCRCPGETCHARGE, lcrcpgetcharge, CFORTRANPNTR)
00069 FCALLSCFUN2(INT, lcrcpgetreferencepoint, LCRCPGETREFERENCEPOINT, lcrcpgetreferencepoint, CFORTRANPNTR, FLOATV)
00070 FCALLSCFUN1(CFORTRANPNTR, lcrcpgetparticleids, LCRCPGETPARTICLEIDS, lcrcpgetparticleids, CFORTRANPNTR)
00071 FCALLSCFUN1(FLOAT, lcrcpgetgoodnessofpid, LCRCPGETGOODNESSOFPID, lcrcpgetgoodnessofpid, CFORTRANPNTR)
00072 FCALLSCFUN1(CFORTRANPNTR, lcrcpgetparticles, LCRCPGETPARTICLES, lcrcpgetparticles, CFORTRANPNTR)
00073
00074 FCALLSCFUN1(CFORTRANPNTR, lcrcpgetclusters, LCRCPGETCLUSTERS, lcrcpgetclusters, CFORTRANPNTR)
00075
00076 FCALLSCFUN1(CFORTRANPNTR, lcrcpgettracks, LCRCPGETTRACKS, lcrcpgettracks, CFORTRANPNTR)
00077
00078
00079
00080
00081 FCALLSCFUN1(CFORTRANPNTR, lcrcpgetstartvertex, LCRCPGETSTARTVERTEX, lcrcpgetstartvertex, CFORTRANPNTR)
00082 FCALLSCFUN1(CFORTRANPNTR, lcrcpgetendvertex, LCRCPGETENDVERTEX, lcrcpgetendvertex, CFORTRANPNTR)
00083
00084
00085 FCALLSCFUN2(INT, lcrcpsettype, LCRCPSETTYPE, lcrcpsettype, CFORTRANPNTR, INT)
00086
00087 FCALLSCFUN2(INT, lcrcpsetmomentum, LCRCPSETMOMENTUM, lcrcpsetmomentum, CFORTRANPNTR, FLOATV)
00088 FCALLSCFUN2(INT, lcrcpsetenergy, LCRCPSETENERGY, lcrcpsetenergy, CFORTRANPNTR, FLOAT)
00089 FCALLSCFUN2(INT, lcrcpsetcovmatrix, LCRCPSETCOVMATRIX, lcrcpsetcovmatrix, CFORTRANPNTR, FLOATV)
00090 FCALLSCFUN2(INT, lcrcpsetmass, LCRCPSETMASS, lcrcpsetmass, CFORTRANPNTR, FLOAT)
00091 FCALLSCFUN2(INT, lcrcpsetcharge, LCRCPSETCHARGE, lcrcpsetcharge, CFORTRANPNTR, FLOAT)
00092 FCALLSCFUN2(INT, lcrcpsetreferencepoint, LCRCPSETREFERENCEPOINT, lcrcpsetreferencepoint, CFORTRANPNTR, FLOATV)
00093 FCALLSCFUN2(INT, lcrcpaddparticleid, LCRCPADDPARTICLEID, lcrcpaddparticleid, CFORTRANPNTR, CFORTRANPNTR)
00094 FCALLSCFUN2(INT, lcrcpsetgoodnessofpid, LCRCPSETGOODNESSOFPID, lcrcpsetgoodnessofpid, CFORTRANPNTR, FLOAT)
00095
00096 FCALLSCFUN2(INT, lcrcpaddparticle, LCRCPADDPARTICLE, lcrcpaddparticle, CFORTRANPNTR, CFORTRANPNTR )
00097 FCALLSCFUN2(INT, lcrcpaddcluster, LCRCPADDCLUSTER, lcrcpaddcluster, CFORTRANPNTR, CFORTRANPNTR)
00098 FCALLSCFUN2(INT, lcrcpaddtrack, LCRCPADDTRACK, lcrcpaddtrack, CFORTRANPNTR, CFORTRANPNTR)
00099
00100 FCALLSCFUN2(INT, lcrcpsetstartvertex, LCRCPSETSTARTVERTEX, lcrcpsetstartvertex, CFORTRANPNTR, CFORTRANPNTR )
00101 }
00102
00103