00001
00006 #include "cfortran.h"
00007 #include "cpointer.h"
00008
00009
00010
00011
00012 PTRTYPE lcvtxcreate() ;
00013 int lcvtxdelete( PTRTYPE vtx ) ;
00014
00015 int lcvtxid( PTRTYPE vtx ) ;
00016 bool lcvtxisprimary( PTRTYPE vtx ) ;
00017 char* lcvtxgetalgorithmtype( PTRTYPE vtx ) ;
00018 float lcvtxgetchi2( PTRTYPE vtx ) ;
00019 float lcvtxgetprobability( PTRTYPE vtx ) ;
00020 int lcvtxgetposition( PTRTYPE vtx, float* pos ) ;
00021 int lcvtxgetcovmatrix( PTRTYPE vtx, float* cvmtx ) ;
00022 int lcvtxgetparameters( PTRTYPE vtx, float* vec, int* nvec ) ;
00023 PTRTYPE lcvtxgetassociatedparticle( PTRTYPE vtx ) ;
00024
00025 int lcvtxsetprimary( PTRTYPE vtx, bool pri ) ;
00026 int lcvtxsetalgorithmtype( PTRTYPE vtx, char* type ) ;
00027 int lcvtxsetchi2( PTRTYPE vtx, float chi2 ) ;
00028 int lcvtxsetprobability( PTRTYPE vtx, float prob ) ;
00029 int lcvtxsetposition( PTRTYPE vtx, float* pos ) ;
00030 int lcvtxsetcovmatrix( PTRTYPE vtx, float* cvmtx ) ;
00031 int lcvtxaddparameter( PTRTYPE vtx, float param ) ;
00032 int lcvtxsetassociatedparticle( PTRTYPE vtx, PTRTYPE rcp ) ;
00033
00034
00035
00036 extern "C"{
00037
00038 FCALLSCFUN0(CFORTRANPNTR, lcvtxcreate, LCVTXCREATE, lcvtxcreate )
00039 FCALLSCFUN1(INT, lcvtxdelete, LCVTXDELETE, lcvtxdelete, CFORTRANPNTR )
00040
00041 FCALLSCFUN1(INT, lcvtxid, LCVTXID, lcvtxid, CFORTRANPNTR)
00042 FCALLSCFUN1(LOGICAL, lcvtxisprimary, LCVTXISPRIMARY, lcvtxisprimary, CFORTRANPNTR)
00043 FCALLSCFUN1(STRING, lcvtxgetalgorithmtype, LCVTXGETALGORITHMTYPE, lcvtxgetalgorithmtype, CFORTRANPNTR)
00044 FCALLSCFUN1(FLOAT, lcvtxgetchi2, LCVTXGETCHI2, lcvtxgetchi2, CFORTRANPNTR)
00045 FCALLSCFUN1(FLOAT, lcvtxgetprobability, LCVTXGETPROBABILITY, lcvtxgetprobability, CFORTRANPNTR)
00046 FCALLSCFUN2(INT, lcvtxgetposition, LCVTXGETPOSITION, lcvtxgetposition, CFORTRANPNTR, FLOATV)
00047 FCALLSCFUN2(INT, lcvtxgetcovmatrix, LCVTXGETCOVMATRIX, lcvtxgetcovmatrix, CFORTRANPNTR, FLOATV)
00048 FCALLSCFUN3(INT, lcvtxgetparameters, LCVTXGETPARAMETERS, lcvtxgetparameters, CFORTRANPNTR, FLOATV, INTV)
00049 FCALLSCFUN1(CFORTRANPNTR, lcvtxgetassociatedparticle, LCVTXGETASSOCIATEDPARTICLE, lcvtxgetassociatedparticle, CFORTRANPNTR)
00050
00051 FCALLSCFUN2(INT, lcvtxsetprimary, LCVTXSETPRIMARY, lcvtxsetprimary, CFORTRANPNTR, LOGICAL)
00052 FCALLSCFUN2(INT, lcvtxsetalgorithmtype, LCVTXSETALGORITHMTYPE, lcvtxsetalgorithmtype, CFORTRANPNTR, STRING)
00053 FCALLSCFUN2(INT, lcvtxsetchi2, LCVTXSETCHI2, lcvtxsetchi2, CFORTRANPNTR, FLOAT)
00054 FCALLSCFUN2(INT, lcvtxsetprobability, LCVTXSETPROBABILITY, lcvtxsetprobability, CFORTRANPNTR, FLOAT)
00055 FCALLSCFUN2(INT, lcvtxsetposition, LCVTXSETPOSITION, lcvtxsetposition, CFORTRANPNTR, FLOATV)
00056 FCALLSCFUN2(INT, lcvtxsetcovmatrix, LCVTXSETCOVMATRIX, lcvtxsetcovmatrix, CFORTRANPNTR, FLOATV)
00057 FCALLSCFUN2(INT, lcvtxaddparameter, LCVTXADDPARAMETER, lcvtxaddparameter, CFORTRANPNTR, FLOAT)
00058 FCALLSCFUN2(INT, lcvtxsetassociatedparticle, LCVTXSETASSOCIATEDPARTICLE, lcvtxsetassociatedparticle, CFORTRANPNTR, CFORTRANPNTR )
00059
00060 }
00061
00062