#include "exlib.conf"
#include "danlib.conf"
#include "spe1a.conf"
#include "exlib.h"
#include "danlib.h"
#include "dan7x.h"
#include "dan7a.h"
#include "spe1a.h"
#include "esa.h"
Data Structures | |
| union | SPCHDR |
| struct | SPCHDR::ESI_VAX_type |
| struct | SPCHDR::ESW_VAX_type |
| struct | SPCHDR::ESW_VXW_type |
| struct | SPCHDR::ESS_VAX_type |
| struct | SPCHDR::ESS_VXW_type |
| struct | AUXHDAT |
Defines | |
| #define | CPNAME "ESA" |
| #define | CPTITL "Conversion of ESI,ESW,ESS data to ASCII" |
| #define | CPDATE "(12Aug03/Hu)" |
| #define | CEXPMNT "??????" |
| #define | CIDPRG "ESA" |
| #define | CVERSION "02mar01" |
| #define | CSTMODE 'I' |
| #define | MFILNA 70 |
| #define | EDCLEN 30 |
| #define | INISTACK 5000 |
| #define | INICHCK VX_FP_TASK |
| #define | INIOPT VX_FP_TASK |
| #define | MSTRTASK "tEsaMstr" |
| #define | MSTRPRIO 100 |
| #define | MSTRSTACK 12000 |
| #define | MSTROPT VX_FP_TASK |
| #define | MSTROPT VX_FP_TASK |
| #define | CPARNA "~/ex_home/ex_param/esapar.vxw" |
| #define | CDFNAM "~/ex_home/ex_data/spenam.spe" |
| #define | CHLPNA "~/ex_home/ex_help/esahlp.txt" |
| #define | GUNFILE "~/ex_home/ex_param/esa.guns" |
| #define | CISERV "servix" |
| #define | CIUSER "vme-info" |
| #define | CIFILE "esa/esa.info" |
| #define | ffPARFILE parfile |
| #define | ffPARMTR parfile.parmtr |
| #define | ffEXLIBPAR parfile.exlibpar |
| #define | ffPARSPE parfile.dataSpe.data7a[0] |
| #define | ccCOMMON common |
| #define | ccPARMTR common.parmtr |
| #define | ccDANLIBCOM common.danlibcom |
| #define | ccEXLIBCOM common.exlibcom |
| #define | ccHDATA common.auxhdat |
| #define | IDPAR ffPARMTR.idpar |
| #define | PIDPRG ffPARMTR.idprg |
| #define | PVERSION ffPARMTR.version |
| #define | DFLTPAR ffPARMTR.dflts |
| #define | PEXPMNT ffPARMTR.pexpmnt |
| #define | SP0NAM ffPARMTR.sp0nam |
| #define | SP1NAM ffPARMTR.sp1nam |
| #define | ASCINAM ffPARMTR.ascinam |
| #define | RSLTNAM ffPARMTR.rsltnam |
| #define | DEADTM ffPARMTR.deadtm |
| #define | DTMERR ffPARMTR.dtmerr |
| #define | STARTUP ffPARMTR.startup |
| #define | STARTEND ffPARMTR.startend |
| #define | PERRKF ffPARMTR.perrkf |
| #define | PERREC ffPARMTR.perrec |
| #define | PERRIC ffPARMTR.perric |
| #define | PERRCW ffPARMTR.perrcw |
| #define | PERRDE ffPARMTR.perrde |
| #define | EDITCMD ffPARMTR.editcmd |
| #define | OPTANA ccPARMTR.optana |
| #define | DAGsFAC ccPARMTR.dagsfac |
| #define | DSPMOD ccPARMTR.dspmod |
| #define | PFNAME ccPARMTR.pfname |
| #define | HEADER0 ccPARMTR.header0 |
| #define | HEADER1 ccPARMTR.header1 |
| #define | HEADER2 ccPARMTR.header2 |
| #define | CHDLEN "" |
| #define | CSPTYPE "" |
| #define | CROWS "" |
| #define | CCOLS "" |
| #define | CBYTES "" |
| #define | CLTXT "" |
| #define | CDFTXT "" |
| #define | INITSPCHDR |
| #define | INITAUXHDAT 0.,0.,0.,0.,0. |
| #define | ACCppppp(v) |
| #define | ACCpnnpp(v) |
| #define | ACCpnnnn(v) |
| #define | ACCnpppp(v) |
| #define | ACCnppnn(v) |
| #define | ACCnpnpn(v) |
| #define | ACCnnpnp(v) |
| #define | ACCnnnnp(v) |
| #define | ACCap(v) |
| #define | RLTCNT ACCppppp(rltcnt) |
| #define | LFTCNT ACCppppp(lftcnt) |
| #define | DATCNT ACCnpppp(datcnt) |
| #define | DATCNT2 ACCpnnnn(datcnt2) |
| #define | OUTCNT ACCnpppp(outcnt) |
| #define | OUTCNT2 ACCpnnnn(outcnt2) |
| #define | CT1CNT ACCnpppp(ct1cnt) |
| #define | CT1CNT2 ACCpnnnn(ct1cnt2) |
| #define | CT2CNT ACCnpppp(ct2cnt) |
| #define | CT2CNT2 ACCpnnnn(ct2cnt2) |
| #define | CT3CNT ACCnpppp(ct3cnt) |
| #define | CT3CNT2 ACCpnnnn(ct3cnt2) |
| #define | CT4CNT ACCnpppp(ct4cnt) |
| #define | SEQCNT ACCnpppp(seqcnt) |
| #define | SEQCNT2 ACCpnnnn(seqcnt2) |
| #define | FULCNT ACCnpppp(fulcnt) |
| #define | REJCNT ACCppppp(rejcnt) |
| #define | ERRCNT ACCppppp(errcnt) |
| #define | HDATID ACCppppp(hdatid) |
| #define | SLEN ACCnpppp(slen) |
| #define | EXPAR ACCpnnpp(expar) |
| #define | EXPAR13 ACCnppnn(expar13) |
| #define | ECFPRG ACCnpppp(ecfprg) |
| #define | GUNTYP ACCnpppp(guntyp) |
| #define | GUNTXT ACCnnnnp(guntxt) |
| #define | ULINSE ACCnpnpn(ulinse) |
| #define | GUNPAR ACCnnpnp(gunpar) |
| #define | HDEADTM ACCnnpnp(deadtm) |
| #define | HDTMERR ACCnnpnp(dtmerr) |
| #define | ERRKF ACCap(errkf) |
| #define | ERREC ACCap(errec) |
| #define | ERRIC ACCap(erric) |
| #define | ERRCW ACCap(errcw) |
| #define | ERRDE ACCap(errde) |
| #define | S5SCAL ACCnpppp(s5scal) |
| #define | MAXSPECS 3 |
| #define | MAXHTYPS 7 |
| #define | USHMAX 4 |
| #define | HDSCR_ESI_VAX "208i1 1i2 1i4 3i2 2i4 6i2 3i4 1i2 14f4" |
| #define | HDSCR_ESW_VAX "208i1 1i2 1i4 3i2 13i4 2i2 13f4 12i1 1i2 1f4 30i1 1f4" |
| #define | HDSCR_ESW_VXW "208i1 1i2 13i4 1i2 13f4 12i1 1i2 10f4 8f4 1i4" |
| #define | HDSCR_ESS_VAX "208i1 1i2 1i4 3i2 13i4 2i2 14f4 12i1 1i2 1f4 30i1 1f4 1i4" |
| #define | HDSCR_ESS_VXW "208i1 1i2 14i4 2i2 14f4 12i1 1i2 32i1 10f4 2f4 1i4" |
| #define | pHEADER spepntr[iselspe].xsphdr |
| #define | pHEADER0 spepntr[0].xsphdr |
| #define | pHEADER1 spepntr[1].xsphdr |
| #define | pHEADER2 spepntr[2].xsphdr |
| #define | INITHTYPES |
| #define | INITSPEPNTR |
| #define | FIRSTPARFILE parfile.dataSpe.data7a[0].status = FALSE; |
| #define | SHOWHDR |
| #define | SHOWXHDR Shoxhdr(); |
Enumerations | |
| enum | headertypes { MTX_HEADER, MCA_HEADER, MCT_HEADER, MS2_HEADER, MSC_HEADER, PCM_HEADER, MCA_VAX_HEADER, MCA_VXW_HEADER, ALL_VAX_HEADER, ALL_VXW_HEADER, MCA_VAX_HEADER, MCA_VXW_HEADER, ALL_VAX_HEADER, ALL_VXW_HEADER, DRM_HEADER, ECF_1_HEADER, ECF_1_HEADER, ECF_1_HEADER, ECF_1_HEADER, ECF_1_HEADER, ECF_1_HEADER, ECF_1_HEADER, ECF_1_HEADER, ECF_VAX_HEADER, ECF_0_HEADER, ECF_1_HEADER, ECF_1_HEADER, ESI_VAX_HEADER, ESW_VAX_HEADER, ESW_VXW_HEADER, ESS_VAX_HEADER, ESS_VXW_HEADER, ESS_HEADER, ECF_HEADER, ESW_HEADER, MASS_HEADER, ESW_VAX_HEADER, ESW_VXW_HEADER, ESS_VAX_HEADER, ESS_VXW_HEADER } |
Features:
Display of spectrum
Conversion of ESI, ESW, ESS Data to ASCII
modification history -------------------- 13oct08 kHu DOXYGEN comments added 12aug03 kHu New from WQS
| #define ACCap | ( | v | ) |
Value:
(*( (CHTDATA == ESS_VAX_HEADER) ? \ &(ccHDATA.v) : \ (CHTDATA == ESS_VXW_HEADER) ? \ &(((struct ESS_VXW_type *)XHSPCD)->v) : \ &(((struct ESS_VXW_type *)Illacc(#v))->v) ))
| #define ACCnnnnp | ( | v | ) |
Value:
(*( (CHTDATA == ESS_VXW_HEADER) ? \ &(((struct ESS_VXW_type *)XHSPCD)->v) : \ &(((struct ESS_VXW_type *)Illacc(#v))->v) ))
| #define ACCnnpnp | ( | v | ) |
Value:
(*( (CHTDATA == ESW_VXW_HEADER) ? \ &(((struct ESW_VXW_type *)XHSPCD)->v) : \ (CHTDATA == ESS_VXW_HEADER) ? \ &(((struct ESS_VXW_type *)XHSPCD)->v) : \ &(((struct ESS_VXW_type *)Illacc(#v))->v) ))
| #define ACCnpnpn | ( | v | ) |
Value:
(*( (CHTDATA == ESW_VAX_HEADER) ? \ &(((struct ESW_VAX_type *)XHSPCD)->v) : \ (CHTDATA == ESS_VAX_HEADER) ? \ &(((struct ESS_VAX_type *)XHSPCD)->v) : \ &(((struct ESS_VAX_type *)Illacc(#v))->v) ))
| #define ACCnppnn | ( | v | ) |
Value:
(*( (CHTDATA == ESW_VAX_HEADER) ? \ &(((struct ESW_VAX_type *)XHSPCD)->v) : \ (CHTDATA == ESW_VXW_HEADER) ? \ &(((struct ESW_VXW_type *)XHSPCD)->v) : \ &(((struct ESW_VXW_type *)Illacc(#v))->v) ))
| #define ACCnpppp | ( | v | ) |
Value:
(*( (CHTDATA == ESW_VAX_HEADER) ? \ &(((struct ESW_VAX_type *)XHSPCD)->v) : \ (CHTDATA == ESW_VXW_HEADER) ? \ &(((struct ESW_VXW_type *)XHSPCD)->v) : \ (CHTDATA == ESS_VAX_HEADER) ? \ &(((struct ESS_VAX_type *)XHSPCD)->v) : \ (CHTDATA == ESS_VXW_HEADER) ? \ &(((struct ESS_VXW_type *)XHSPCD)->v) : \ &(((struct ESS_VXW_type *)Illacc(#v))->v) ))
| #define ACCpnnnn | ( | v | ) |
Value:
(*( (CHTDATA == ESI_VAX_HEADER) ? \ &(((struct ESI_VAX_type *)XHSPCD)->v) : \ &(((struct ESI_VAX_type *)Illacc(#v))->v) ))
| #define ACCpnnpp | ( | v | ) |
Value:
(*( (CHTDATA == ESI_VAX_HEADER) ? \ &(((struct ESI_VAX_type *)XHSPCD)->v) : \ (CHTDATA == ESS_VAX_HEADER) ? \ &(((struct ESS_VAX_type *)XHSPCD)->v) : \ (CHTDATA == ESS_VXW_HEADER) ? \ &(((struct ESS_VXW_type *)XHSPCD)->v) : \ &(((struct ESS_VXW_type *)Illacc(#v))->v) ))
| #define ACCppppp | ( | v | ) |
Value:
(*( (CHTDATA == ESI_VAX_HEADER) ? \ &(((struct ESI_VAX_type *)XHSPCD)->v) : \ (CHTDATA == ESW_VAX_HEADER) ? \ &(((struct ESW_VAX_type *)XHSPCD)->v) : \ (CHTDATA == ESW_VXW_HEADER) ? \ &(((struct ESW_VXW_type *)XHSPCD)->v) : \ (CHTDATA == ESS_VAX_HEADER) ? \ &(((struct ESS_VAX_type *)XHSPCD)->v) : \ (CHTDATA == ESS_VXW_HEADER) ? \ &(((struct ESS_VXW_type *)XHSPCD)->v) : \ &(((struct ESS_VXW_type *)Illacc(#v))->v) ))
| #define ASCINAM ffPARMTR.ascinam |
| #define CBYTES "" |
| #define ccCOMMON common |
| #define ccDANLIBCOM common.danlibcom |
| #define ccEXLIBCOM common.exlibcom |
| #define ccHDATA common.auxhdat |
| #define CCOLS "" |
| #define ccPARMTR common.parmtr |
| #define CDFNAM "~/ex_home/ex_data/spenam.spe" |
| #define CDFTXT "" |
| #define CEXPMNT "??????" |
| #define CHDLEN "" |
| #define CHLPNA "~/ex_home/ex_help/esahlp.txt" |
| #define CIDPRG "ESA" |
| #define CIFILE "esa/esa.info" |
| #define CISERV "servix" |
| #define CIUSER "vme-info" |
| #define CLTXT "" |
| #define CPARNA "~/ex_home/ex_param/esapar.vxw" |
| #define CPDATE "(12Aug03/Hu)" |
| #define CPNAME "ESA" |
| #define CPTITL "Conversion of ESI,ESW,ESS data to ASCII" |
| #define CROWS "" |
| #define CSPTYPE "" |
| #define CSTMODE 'I' |
| #define CT1CNT ACCnpppp(ct1cnt) |
| #define CT1CNT2 ACCpnnnn(ct1cnt2) |
| #define CT2CNT ACCnpppp(ct2cnt) |
| #define CT2CNT2 ACCpnnnn(ct2cnt2) |
| #define CT3CNT ACCnpppp(ct3cnt) |
| #define CT3CNT2 ACCpnnnn(ct3cnt2) |
| #define CT4CNT ACCnpppp(ct4cnt) |
| #define CVERSION "02mar01" |
| #define DAGsFAC ccPARMTR.dagsfac |
| #define DATCNT ACCnpppp(datcnt) |
| #define DATCNT2 ACCpnnnn(datcnt2) |
| #define DEADTM ffPARMTR.deadtm |
| #define DFLTPAR ffPARMTR.dflts |
| #define DSPMOD ccPARMTR.dspmod |
| #define DTMERR ffPARMTR.dtmerr |
| #define ECFPRG ACCnpppp(ecfprg) |
| #define EDCLEN 30 |
| #define EDITCMD ffPARMTR.editcmd |
| #define ERRCNT ACCppppp(errcnt) |
| #define ERRCW ACCap(errcw) |
| #define ERRDE ACCap(errde) |
| #define ERREC ACCap(errec) |
| #define ERRIC ACCap(erric) |
| #define ERRKF ACCap(errkf) |
| #define EXPAR ACCpnnpp(expar) |
| #define EXPAR13 ACCnppnn(expar13) |
| #define ffEXLIBPAR parfile.exlibpar |
| #define ffPARFILE parfile |
| #define ffPARMTR parfile.parmtr |
| #define ffPARSPE parfile.dataSpe.data7a[0] |
| #define FIRSTPARFILE parfile.dataSpe.data7a[0].status = FALSE; |
| #define FULCNT ACCnpppp(fulcnt) |
| #define GUNFILE "~/ex_home/ex_param/esa.guns" |
| #define GUNPAR ACCnnpnp(gunpar) |
| #define GUNTXT ACCnnnnp(guntxt) |
| #define GUNTYP ACCnpppp(guntyp) |
| #define HDATID ACCppppp(hdatid) |
| #define HDEADTM ACCnnpnp(deadtm) |
| #define HDSCR_ESI_VAX "208i1 1i2 1i4 3i2 2i4 6i2 3i4 1i2 14f4" |
| #define HDSCR_ESS_VAX "208i1 1i2 1i4 3i2 13i4 2i2 14f4 12i1 1i2 1f4 30i1 1f4 1i4" |
| #define HDSCR_ESS_VXW "208i1 1i2 14i4 2i2 14f4 12i1 1i2 32i1 10f4 2f4 1i4" |
| #define HDSCR_ESW_VAX "208i1 1i2 1i4 3i2 13i4 2i2 13f4 12i1 1i2 1f4 30i1 1f4" |
| #define HDSCR_ESW_VXW "208i1 1i2 13i4 1i2 13f4 12i1 1i2 10f4 8f4 1i4" |
| #define HDTMERR ACCnnpnp(dtmerr) |
| #define HEADER0 ccPARMTR.header0 |
| #define HEADER1 ccPARMTR.header1 |
| #define HEADER2 ccPARMTR.header2 |
| #define IDPAR ffPARMTR.idpar |
| #define INICHCK VX_FP_TASK |
| #define INIOPT VX_FP_TASK |
| #define INISTACK 5000 |
| #define INITAUXHDAT 0.,0.,0.,0.,0. |
| #define INITHTYPES |
| #define INITSPCHDR |
Value:
{{0, \
}}
| #define INITSPEPNTR |
Value:
/* Spectrum 0 */ \ {0,0,0,0,0,0,0,0,0, \ SP0NAM, /* File name of spectrum */ \ NULL, NULL, NULL, \ &HEADER0, /* Pointer to extracted header */ \ &HEADER0.hdata.spcdat, /* Special header data */ \ &HEADER0, /* Pointer to extracted header */ \ &HEADER0.hdata.spcdat, /* Special header data */ \ NULL, \ {{0},{0},{0},{0}}}, /* USHMAX times 0 */ \ /* Spectrum 1 */ \ {0,0,0,0,0,0,0,0,0, \ SP1NAM, /* File name of spectrum */ \ NULL, NULL, NULL, \ &HEADER1, /* Pointer to extracted header */ \ &HEADER1.hdata.spcdat, /* Special header data */ \ &HEADER1, /* Pointer to extracted header */ \ &HEADER1.hdata.spcdat, /* Special header data */ \ NULL, \ {{0},{0},{0},{0}}}, /* USHMAX times 0 */ \ /* Spectrum 2 */ \ {0,0,0,0,0,0,0,0,0, \ NULL, /* File name of spectrum */ \ NULL, NULL, NULL, \ &HEADER2, /* Pointer to extracted header */ \ &HEADER2.hdata.spcdat, /* Special header data */ \ &HEADER2, /* Pointer to extracted header */ \ &HEADER2.hdata.spcdat, /* Special header data */ \ NULL, \ {{0},{0},{0},{0}}}, /* USHMAX times 0 */ \
| #define LFTCNT ACCppppp(lftcnt) |
| #define MAXHTYPS 7 |
| #define MAXSPECS 3 |
| #define MFILNA 70 |
| #define MSTROPT VX_FP_TASK |
| #define MSTROPT VX_FP_TASK |
| #define MSTRPRIO 100 |
| #define MSTRSTACK 12000 |
| #define MSTRTASK "tEsaMstr" |
| #define OPTANA ccPARMTR.optana |
| #define OUTCNT ACCnpppp(outcnt) |
| #define OUTCNT2 ACCpnnnn(outcnt2) |
| #define PERRCW ffPARMTR.perrcw |
| #define PERRDE ffPARMTR.perrde |
| #define PERREC ffPARMTR.perrec |
| #define PERRIC ffPARMTR.perric |
| #define PERRKF ffPARMTR.perrkf |
| #define PEXPMNT ffPARMTR.pexpmnt |
| #define PFNAME ccPARMTR.pfname |
| #define pHEADER0 spepntr[0].xsphdr |
| #define pHEADER1 spepntr[1].xsphdr |
| #define pHEADER2 spepntr[2].xsphdr |
| #define PIDPRG ffPARMTR.idprg |
| #define PVERSION ffPARMTR.version |
| #define REJCNT ACCppppp(rejcnt) |
| #define RLTCNT ACCppppp(rltcnt) |
| #define RSLTNAM ffPARMTR.rsltnam |
| #define S5SCAL ACCnpppp(s5scal) |
| #define SEQCNT ACCnpppp(seqcnt) |
| #define SEQCNT2 ACCpnnnn(seqcnt2) |
| #define SHOWHDR |
| #define SHOWXHDR Shoxhdr(); |
| #define SLEN ACCnpppp(slen) |
| #define SP0NAM ffPARMTR.sp0nam |
| #define SP1NAM ffPARMTR.sp1nam |
| #define STARTEND ffPARMTR.startend |
| #define STARTUP ffPARMTR.startup |
| #define ULINSE ACCnpnpn(ulinse) |
| #define USHMAX 4 |
| enum headertypes |
1.5.6