include/ntuple/paw_interface.h

0001 /*
0002  *  paw_interface.h  --
0003  *  Declare interface to PAW.
0004  *
0005  *  Original: 12-Jan-1996 15:58
0006  *
0007  *  Author:   Maarten Ballintijn <Maarten.Ballintijn@cern.ch>
0008  *
0009  *  $Id$
0010  *
0011  *  $Log$
0012  *  Revision 1.15  1999/11/02 15:37:41  couet
0013  *  - reorganise for NT
0014  *
0015  *  Revision 1.14  1999/07/05 16:13:03  couet
0016  *  - prototype added
0017  *
0018  *  Revision 1.13  1999/07/05 15:43:32  couet
0019  *  - hbook_interface.h in now replaced by hbook.h in CVSCOSRC
0020  *
0021  *  Revision 1.12  1999/06/28 15:08:54  couet
0022  *  - use now cfortran.h in $CVSCOSRC
0023  *
0024  *  Revision 1.11  1996/08/30 10:04:27  lecointe
0025  *  Restored Gouraud Shading in NT/PLOT
0026  *
0027  *  Revision 1.10  1996/08/21 12:55:33  lecointe
0028  *  Restore the spider plot in ntuple/scan
0029  *
0030  *  Revision 1.9  1996/05/24 09:16:06  dinofm
0031  *  Bug fixed when a FORTRAN selection function operates on a PIAF residing
0032  *  ntuple. The source file is sent to PIAF and compiled if '.f77' extension
0033  *  has been used.
0034  *
0035  *  Revision 1.8  1996/05/15 13:11:37  maartenb
0036  *  - Fix the CSELECT command.
0037  *
0038  *  Revision 1.7  1996/05/06 13:34:19  dinofm
0039  *  Code modified to take care of empty histograms detection on slave(s).
0040  *
0041  *  Revision 1.6  1996/04/23 18:38:08  maartenb
0042  *  - Add RCS keywords
0043  *
0044  *
0045  */
0046
0047 #ifndef CERN_PAW_INTERFACE
0048 #define CERN_PAW_INTERFACE
0049
0050 #include    <cfortran/cfortran.h>
0051
0052 PROTOCCALLSFSUB1(FTNPRN,ftnprn,STRING)
0053 #define FTNPRN(CHMESS) CCALLSFSUB1(FTNPRN,ftnprn,STRING,CHMESS)
0054
0055 PROTOCCALLSFSUB2(GETTP,gettp,PFLOAT,PFLOAT)
0056 #define GETTP(THETA,PHI) CCALLSFSUB2(GETTP,gettp,PFLOAT,PFLOAT,THETA,PHI)
0057
0058 PROTOCCALLSFSUB2(HFIND,hfind,INT,STRING)
0059 #define HFIND(IDD,CHROUT) CCALLSFSUB2(HFIND,hfind,INT,STRING,IDD,CHROUT)
0060
0061 PROTOCCALLSFSUB0(PACSEL,pacsel)
0062 #define PACSEL CCALLSFSUB0(PACSEL,pacsel)
0063
0064 PROTOCCALLSFSUB3(GETNBINS,getnbins,PINT,PINT,PINT)
0065 #define GETNBINS(NX,NY,NZ) CCALLSFSUB3(GETNBINS,getnbins,PINT,PINT,PINT,NX,NY,NZ)
0066
0067 PROTOCCALLSFSUB3(PAHLOG,pahlog,PLOGICAL,PLOGICAL,PLOGICAL)
0068 #define PAHLOG(LOGX,LOGY,LOGZ) CCALLSFSUB3(PAHLOG,pahlog,PLOGICAL,PLOGICAL,PLOGICAL,LOGX,LOGY,LOGZ)
0069
0070 PROTOCCALLSFSUB9(PAPLOT,paplot,INT,STRING,STRING,INT,INT,INT,INT,INT,INT)
0071 #define PAPLOT(ID,CHOPT,CHCASE,NUM,ICRANG,ICX1,ICX2,ICY1,ICY2) \
0072         CCALLSFSUB9(PAPLOT,paplot,INT,STRING,STRING,INT,INT,INT,INT,INT,INT,\
0073         ID,CHOPT,CHCASE,NUM,ICRANG,ICX1,ICX2,ICY1,ICY2)
0074
0075 PROTOCCALLSFSUB11(PASPI,paspi,INT,INT,STRING,FLOAT,INTV,INT,FLOATV,FLOATV,FLOATV,FLOATV,INT)
0076 #define PASPI(ICHEVT,NVARS,CNAMES,RZONE,IVART,IZONE,CURRENT,LOW,HIGH,AVG,SPIDER_TYPE) \
0077         CCALLSFSUB11(PASPI,paspi,INT,INT,STRING,FLOAT,INTV,INT,FLOATV,FLOATV,FLOATV,FLOATV,INT,\
0078         ICHEVT,NVARS,CNAMES,RZONE,IVART,IZONE,CURRENT,LOW,HIGH,AVG,SPIDER_TYPE)
0079
0080 PROTOCCALLSFSUB8(PADRISO,padriso,INT,INT,INT,FLOATV,FLOATV,FLOATV,FLOATV,FLOATV)
0081 #define PADRISO(NX,NY,NZ,X,Y,Z,VALUE,S) \
0082         CCALLSFSUB8(PADRISO,padriso,INT,INT,INT,FLOATV,FLOATV,FLOATV,FLOATV,FLOATV,\
0083         NX,NY,NZ,X,Y,Z,VALUE,S)
0084
0085 PROTOCCALLSFSUB1(PAUTIT,pautit,STRING)
0086 #define PAUTIT(CHTIT) CCALLSFSUB1(PAUTIT,pautit,STRING,CHTIT)
0087
0088 PROTOCCALLSFSUB0(PAWCS,pawcs)
0089 #define PAWCS CCALLSFSUB0(PAWCS,pawcs)
0090
0091 PROTOCCALLSFSUB4(PAWILD,pawild,STRING,STRING,INT,PINT)
0092 #define PAWILD(CFIRST,CSECON,ILFIRS,IRESUL) CCALLSFSUB4(PAWILD,pawild,STRING,STRING,INT,PINT,CFIRST,CSECON,ILFIRS,IRESUL)
0093
0094 PROTOCCALLSFSUB6(PAWLOC,pawloc,PINT,FLOATV,FLOATV,INT,INT,STRING)
0095 #define PAWLOC(NP,XP,YP,NTPRI,IWKID,CHOPT) CCALLSFSUB6(PAWLOC,pawloc,PINT,FLOATV,FLOATV,INT,INT,STRING,NP,XP,YP,NTPRI,IWKID,CHOPT)
0096
0097 PROTOCCALLSFFUN5(INT,PCHEVT,pchevt,STRING,INT,INT,INT,INT)
0098 #define PCHEVT(NAME,LEN,ID,NEVT,IOP) CCALLSFFUN5(PCHEVT,pchevt,STRING,INT,INT,INT,INT,NAME,LEN,ID,NEVT,IOP)
0099
0100 PROTOCCALLSFSUB2(PCHNCD,pchncd,STRING,PINT)
0101 #define PCHNCD(PATH,IERR) CCALLSFSUB2(PCHNCD,pchncd,STRING,PINT,PATH,IERR)
0102
0103 PROTOCCALLSFSUB5(PCNEXT,pcnext,INT,PINT,PINT,PINT,PINT)
0104 #define PCNEXT(IDN,NCHROW,NDIM,NROW,IEND) CCALLSFSUB5(PCNEXT,pcnext,INT,PINT,PINT,PINT,PINT,IDN,NCHROW,NDIM,NROW,IEND)
0105
0106 PROTOCCALLSFSUB2(PFHOUT,pfhout,INT,PINT)
0107 #define PFHOUT(IDH,ISTAT) CCALLSFSUB2(PFHOUT,pfhout,INT,PINT,IDH,ISTAT)
0108
0109 PROTOCCALLSFSUB2(PFKUIP,pfkuip,STRING,PINT)
0110 #define PFKUIP(CHCMD,ISTAT) CCALLSFSUB2(PFKUIP,pfkuip,STRING,PINT,CHCMD,ISTAT)
0111
0112 PROTOCCALLSFSUB1(PFSOCK,pfsock,INT)
0113 #define PFSOCK(ISLAV) CCALLSFSUB1(PFSOCK,pfsock,INT,ISLAV)
0114
0115 PROTOCCALLSFSUB3(PFPING,pfping,INT,INT,PINT)
0116 #define PFPING(ISLAV,IACT,ISTAT) CCALLSFSUB3(PFPING,pfping,INT,INT,PINT,ISLAV,IACT,ISTAT)
0117
0118 PROTOCCALLSFSUB1(PFPUSH,pfpush,PINT)
0119 #define PFPUSH(ISTAT) CCALLSFSUB1(PFPUSH,pfpush,PINT,ISTAT)
0120
0121 PROTOCCALLSFSUB2(PFMINMAX,pfminmax,PFLOAT,PFLOAT)
0122 #define PFMINMAX(RMIN,RMAX) CCALLSFSUB2(PFMINMAX,pfminmax,PFLOAT,PFLOAT,RMIN,RMAX)
0123
0124 PROTOCCALLSFSUB2(PFLABELS,pflabels,PSTRING,PINT)
0125 #define PFLABELS(CBUF,LENBUF) CCALLSFSUB2(PFLABELS,pflabels,PSTRING,PINT,CBUF,LENBUF)
0126
0127 PROTOCCALLSFSUB1(PFEMPTY,pfempty,STRING)
0128 #define PFEMPTY(CBUF) CCALLSFSUB1(PFEMPTY,pfempty,STRING,CBUF)
0129
0130 PROTOCCALLSFSUB3(PFCSEX,pfcsex,INT,STRING,PINT)
0131 #define PFCSEX(LUNIN,CHFILE,ISTAT) CCALLSFSUB3(PFCSEX,pfcsex,INT,STRING,PINT,LUNIN,CHFILE,ISTAT)
0132
0133 #endif  /*  CERN_PAW_INTERFACE  */