lciof77apiext.h

Go to the documentation of this file.

#include "cfortran.h"
#include "cpointer.h"

#include "deprecation.h"

//--------------- convenient method to open a list of files for reading (read-only)

LCIO_DEPRECATED_CAPI int lcrdropenchain( PTRTYPE reader, void* filenamesv, const int nfiles, const int nchfilename );

//--------------- convenient methods to read/write the run header

LCIO_DEPRECATED_CAPI int lcwriterunheader( PTRTYPE writer, const int irun, const char* detname, const char* descr,
                         void* sdnamevec, const int nsubd, const int nchsubd) ;

LCIO_DEPRECATED_CAPI PTRTYPE lcreadnextrunheader( PTRTYPE reader, int* irun, void* detname, void* descr,
                            void* sdnamevec, int* nsubd, const int nchsubd) ;

//---------------  convenient methods for the event interface

LCIO_DEPRECATED_CAPI int lcseteventheader( PTRTYPE event, const int irun, const int ievent,
              const int timestamp, const char* detname );

LCIO_DEPRECATED_CAPI int lcgeteventheader( PTRTYPE event, int* irun, int* ievent, int* timestamp, void* detname );

LCIO_DEPRECATED_CAPI int lcdumprunheader( PTRTYPE runheader ) ;

LCIO_DEPRECATED_CAPI int lcdumpevent( PTRTYPE event ) ;

LCIO_DEPRECATED_CAPI int lcdumpeventdetailed( PTRTYPE event ) ;

//---------------  convenient methods for the mcparticle interface


LCIO_DEPRECATED_CAPI int lcgetmcparticledata( PTRTYPE mcparticle, int* pdg, int* genstatus, int* simstatus
             , double* prodvtx, float* momentum, float* mass, float* charge, 
             int* ndaughters ) ;


LCIO_DEPRECATED_CAPI int lcio2hepevt( PTRTYPE event ) ;

LCIO_DEPRECATED_CAPI int hepevt2lcio( PTRTYPE event ) ;



//---------------  convenient methods for SimTrackerHits

LCIO_DEPRECATED_CAPI int lcaddsimtrackerhit( PTRTYPE col, int cellID, double* pos, float dEdx,
                float time, PTRTYPE mcp ) ;

LCIO_DEPRECATED_CAPI int lcgetsimtrackerhit( PTRTYPE col, int i, int* cellID, double* pos, float* dEdx,
                float* time, PTRTYPE* mcp ) ;


//---------------  convenient methods for SimCalorimeterHits

LCIO_DEPRECATED_CAPI PTRTYPE lcaddsimcalohit( PTRTYPE col, int cellID0, int cellID1, float energy, float* pos ) ;

LCIO_DEPRECATED_CAPI PTRTYPE lcgetsimcalohit( PTRTYPE col, int i, int* cellID0, int* cellID1, float* energy,
             float* pos ) ;

LCIO_DEPRECATED_CAPI int lcgetsimcalohitmccont( PTRTYPE hit, int i, PTRTYPE* mcp, float* energy, float* time,
                 int* pdg ) ;


LCIO_DEPRECATED_CAPI PTRTYPE lcobjectvectorcreate( PTRTYPE* ocjectv, const int nobjv ) ;

LCIO_DEPRECATED_CAPI PTRTYPE lcintvectorcreate( int* intv, const int nintv ) ;

LCIO_DEPRECATED_CAPI PTRTYPE lcfloatvectorcreate( float* floatv, const int nfloatv ) ;

LCIO_DEPRECATED_CAPI PTRTYPE lcstringvectorcreate( void* stringv, const int nstringv, const int nchstringv) ;

LCIO_DEPRECATED_CAPI int lcgetintvector( PTRTYPE vector, int* intv, int* nintv ) ;

LCIO_DEPRECATED_CAPI int lcgetfloatvector( PTRTYPE vector, float* floatv, int* nfloatv ) ;

LCIO_DEPRECATED_CAPI int lcgetstringvector( PTRTYPE vector, void* stringv, int* nstringv, const int nchstringv) ;

                  
LCIO_DEPRECATED_CAPI PTRTYPE intvectorcreate( int* intv, const int nintv ) ;
LCIO_DEPRECATED_CAPI int intvectordelete( PTRTYPE vector ) ;

LCIO_DEPRECATED_CAPI PTRTYPE floatvectorcreate( float* floatv, const int nfloatv ) ;
LCIO_DEPRECATED_CAPI int floatvectordelete( PTRTYPE vector ) ;

LCIO_DEPRECATED_CAPI PTRTYPE stringvectorcreate( void* stringv, const int nstringv, const int nchstringv) ;
LCIO_DEPRECATED_CAPI int stringvectordelete( PTRTYPE vector ) ;
                  
LCIO_DEPRECATED_CAPI PTRTYPE pointervectorcreate( PTRTYPE* pointerv, const int npointerv ) ;
LCIO_DEPRECATED_CAPI int pointervectordelete( PTRTYPE vector ) ;


LCIO_DEPRECATED_CAPI int getintvector( PTRTYPE vector, int* intv, int* nintv ) ;

LCIO_DEPRECATED_CAPI int getfloatvector( PTRTYPE vector, float* floatv, int* nfloatv ) ;

LCIO_DEPRECATED_CAPI int getstringvector( PTRTYPE vector, void* stringv, int* nstringv, const int nchstringv) ;

LCIO_DEPRECATED_CAPI int getpointervector( PTRTYPE vector, PTRTYPE* pointerv, int* npointerv ) ;



//---------------  convenient methods for the interface nterface to store generic named parameters 
//---------------  of type int, float and string.

LCIO_DEPRECATED_CAPI int lcsetparameters( const char* classname, PTRTYPE classp, const char* method,
                const char* key, PTRTYPE vecp) ;


LCIO_DEPRECATED_CAPI int lcgetparameters( const char* classname, PTRTYPE classp, const char* method,
                const char* key, PTRTYPE vecp) ;


// now the fortran wrappers from cfortran.h
extern "C"{

#define lcrdropenchain_STRV_A2 NUM_ELEM_ARG(3)
FCALLSCFUN4(INT, lcrdropenchain, LCRDRDOPENCHAIN, lcrdropenchain,
            CFORTRANPNTR, STRINGV, INT, INT) 


#define lcwriterunheader_STRV_A5 NUM_ELEM_ARG(6)
FCALLSCFUN7(INT, lcwriterunheader, LCWRITERUNHEADER, lcwriterunheader, CFORTRANPNTR, INT, 
        STRING, STRING, STRINGV, INT, INT) 
#define lcreadnextrunheader_STRV_A3 NUM_ELEMS(1)
#define lcreadnextrunheader_STRV_A4 NUM_ELEMS(1)
#define lcreadnextrunheader_STRV_A5 NUM_ELEM_ARG(6)
FCALLSCFUN7(CFORTRANPNTR, lcreadnextrunheader, LCREADNEXTRUNHEADER, lcreadnextrunheader, 
        CFORTRANPNTR, INTV, PSTRINGV, PSTRINGV, PSTRINGV, INTV, INT) 


FCALLSCFUN5(INT, lcseteventheader, LCSETEVENTHEADER, lcseteventheader, CFORTRANPNTR, 
        INT, INT, INT, STRING ) 
#define lcgeteventheader_STRV_A5 NUM_ELEMS(1)
FCALLSCFUN5(INT, lcgeteventheader, LCGETEVENTHEADER, lcgeteventheader, CFORTRANPNTR, INTV, 
        INTV, INTV, PSTRINGV ) 
FCALLSCFUN1(INT, lcdumprunheader, LCDUMPRUNHEADER, lcdumprunheader, CFORTRANPNTR ) 
FCALLSCFUN1(INT, lcdumpevent, LCDUMPEVENT, lcdumpevent, CFORTRANPNTR ) 
FCALLSCFUN1(INT, lcdumpeventdetailed, LCDUMPEVENTDETAILED, lcdumpeventdetailed,CFORTRANPNTR)


FCALLSCFUN9(INT, lcgetmcparticledata, LCGETMCPARTICLEDATA, lcgetmcparticledata,
            CFORTRANPNTR , INTV , INTV , INTV, DOUBLEV , FLOATV , FLOATV , FLOATV , INTV ) 
FCALLSCFUN1(INT, lcio2hepevt, LCIO2HEPEVT, lcio2hepevt , CFORTRANPNTR ) 
FCALLSCFUN1(INT, hepevt2lcio, HEPEVT2LCIO, hepevt2lcio, CFORTRANPNTR ) 


FCALLSCFUN6(INT, lcaddsimtrackerhit , LCADDSIMTRACKERHIT , lcaddsimtrackerhit, 
            CFORTRANPNTR , INT , DOUBLEV , FLOAT , FLOAT , CFORTRANPNTR ) 

FCALLSCFUN7(INT, lcgetsimtrackerhit, LCGETSIMTRACKERHIT, lcgetsimtrackerhit, 
            CFORTRANPNTR , INT , INTV , DOUBLEV , FLOATV , FLOATV , CFORTRANPNTRV ) 


FCALLSCFUN5(CFORTRANPNTR, lcaddsimcalohit, LCADDSIMCALOHIT, lcaddsimcalohit,
            CFORTRANPNTR, INT , INT, FLOAT, FLOATV ) 
FCALLSCFUN6(CFORTRANPNTR , lcgetsimcalohit, LCGETSIMCALOHIT, lcgetsimcalohit,
            CFORTRANPNTR , INT , INTV ,  INTV , FLOATV , FLOATV ) 
FCALLSCFUN6(INT, lcgetsimcalohitmccont, LCGETSIMCALOHITMCCONT, lcgetsimcalohitmccont,
            CFORTRANPNTR , INT , CFORTRANPNTRV, FLOATV , FLOATV , INTV ) 

FCALLSCFUN2(CFORTRANPNTR, lcobjectvectorcreate, LCOBJECTVECTORCREATE , lcobjectvectorcreate,
            CFORTRANPNTRV, INT ) 
FCALLSCFUN2(CFORTRANPNTR, lcintvectorcreate, LCINTVECTORCREATE , lcintvectorcreate,
            INTV, INT ) 
FCALLSCFUN2(CFORTRANPNTR, lcfloatvectorcreate, LCFLOATVECTORCREATE , lcfloatvectorcreate,
            FLOATV, INT ) 
#define lcstringvectorcreate_STRV_A1 NUM_ELEM_ARG(2)
FCALLSCFUN3(CFORTRANPNTR, lcstringvectorcreate, LCSTRINGVECTORCREATE , lcstringvectorcreate,
            PSTRINGV, INT, INT ) 

FCALLSCFUN3(INT, lcgetintvector, LCGETINTVECTOR , lcgetintvector,
            CFORTRANPNTR , INTV, INTV ) 
FCALLSCFUN3(INT, lcgetfloatvector, LCGETFLOATVECTOR , lcgetfloatvector,
            CFORTRANPNTR , FLOATV, INTV ) 
#define lcgetstringvector_STRV_A2 NUM_ELEM_ARG(3)
FCALLSCFUN4(INT, lcgetstringvector, LCGETSTRINGVECTOR , lcgetstringvector,
            CFORTRANPNTR , PSTRINGV, INTV, INT ) 


FCALLSCFUN2(CFORTRANPNTR, intvectorcreate, INTVECTORCREATE , intvectorcreate,
            INTV, INT ) 
FCALLSCFUN1(INT, intvectordelete, INTVECTORDELETE, intvectordelete,
            CFORTRANPNTR) 
FCALLSCFUN2(CFORTRANPNTR, floatvectorcreate, FLOATVECTORCREATE , floatvectorcreate,
            FLOATV, INT ) 
FCALLSCFUN1(INT, floatvectordelete, FLOATVECTORDELETE, floatvectordelete,
            CFORTRANPNTR) 
#define stringvectorcreate_STRV_A1 NUM_ELEM_ARG(2)
FCALLSCFUN3(CFORTRANPNTR, stringvectorcreate, STRINGVECTORCREATE , stringvectorcreate,
            PSTRINGV, INT, INT ) 
FCALLSCFUN1(INT, stringvectordelete, STRINGVECTORDELETE, stringvectordelete,
            CFORTRANPNTR) 
FCALLSCFUN2(CFORTRANPNTR, pointervectorcreate, POINTERVECTORCREATE , pointervectorcreate,
            CFORTRANPNTRV, INT ) 
FCALLSCFUN1(INT, pointervectordelete, POINTERVECTORDELETE, pointervectordelete,
            CFORTRANPNTR) 

FCALLSCFUN3(INT, getintvector, GETINTVECTOR , getintvector,
            CFORTRANPNTR , INTV, INTV ) 
FCALLSCFUN3(INT, getfloatvector, GETFLOATVECTOR , getfloatvector,
            CFORTRANPNTR , FLOATV, INTV ) 
#define getstringvector_STRV_A2 NUM_ELEM_ARG(3)
FCALLSCFUN4(INT, getstringvector, GETSTRINGVECTOR , getstringvector,
            CFORTRANPNTR , PSTRINGV, INTV, INT ) 
FCALLSCFUN3(INT, getpointervector, GETPOINTERVECTOR , getpointervector,
            CFORTRANPNTR , CFORTRANPNTRV, INTV ) 


FCALLSCFUN5(INT, lcsetparameters, LCSETPARAMETERS, lcsetparameters,
            STRING, CFORTRANPNTR, STRING, STRING, CFORTRANPNTR ) 

FCALLSCFUN5(INT, lcgetparameters, LCGETPARAMETERS, lcgetparameters,
            STRING, CFORTRANPNTR, STRING, STRING, CFORTRANPNTR ) 

}