#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 |