crptdef.h

Go to the documentation of this file.

C Fixed limits on the parameters that define the length of a run file
        INTEGER*4 MAX_CRPT
        INTEGER*4 MAXDET,MAXSPEC,MAXCHAN,MAXMON,MAXVAX,MAXDAE
        INTEGER*4 MAXSEP,MAXTRG,MAXNUT,MAXUDAT,MAXPER
        REAL    RMIN_CHAN
        INTEGER*4 NCOMPTYPE,MAXTOTSPEC
C  Maximum number of blocks that can be used by CRPT
C  Make sure MAX_CRPT is a multiple of "4"
        PARAMETER (MAX_CRPT=900000+36000)
C number of detector entries MAXDET
        PARAMETER (MAXDET=640000)
C number of user defined tables for detectors MAXNUT
        PARAMETER (MAXNUT=14)
C no. of spectra (add 1 to allow space for 0th spectrum) MAXSPEC
        PARAMETER (MAXSPEC=64000)
C no. of time channels (add 1 to allow space for 0th chan) MAXCHAN
        PARAMETER (MAXCHAN=32760)
C number of monitors MAXMON
        PARAMETER (MAXMON=12)
C vax memory size (words) in total number of channels allowed VAXMAX
C probably something like (MAXDAE / 4)
        PARAMETER (MAXVAX=(6*64*1024*1024)/4)
C DAE memory size in bytes DAEMAX
        PARAMETER (MAXDAE=6*64*1024*1024)
C number of sample environment parameters
        PARAMETER (MAXSEP=50)
C number of time regimes
        PARAMETER (MAXTRG=1)
C number of user defined variables
        PARAMETER (MAXUDAT=400)
C Minimum time channel width (in microsecs) that is safe to be used with the DAE
        PARAMETER (RMIN_CHAN=0.25)
C       PARAMETER (RMIN_CHAN=0.5)    ! for ROTAX/ALF testing
C Max periods
        PARAMETER (MAXPER=256)
C Compression type used in files: 0 - nocompression, 1 - byte relative
        PARAMETER (NCOMPTYPE=1)
C Maximum combined periods*spectra
        PARAMETER (MAXTOTSPEC=64000)


c
C***************************************************************************
C  Instrument control program for the MAY85
C    Current Run Parameter Table as described in IDG/  /85  CRPT RELEASE 2.1
C    Section and parameter position definitions
C***************************************************************************
C
C  ** NOTE: the run section begins at 129 because space after the format
C           section is used for storing various status flags. This space
C           will be removed when writing to the file.
C  The start of each section is calculated from the previous section start
C  + the MAXimium length of the previous section, and then adjusted to start
C  on a block boundary.
C  The MAX values are also parameters, kept in file LIMITSDEF.PAR
C
        INCLUDE 'limitsdef.par'
        REAL    RCRPT(MAX_CRPT * 128)
        INTEGER ICRPT(MAX_CRPT * 128)
        COMMON /CRPT/ PTR_ICRPT, PTR_RCRPT
        SAVE /CRPT/
C this done by pointer aliasing
C       EQUIVALENCE (ICRPT,RCRPT)
        POINTER (PTR_ICRPT, ICRPT), (PTR_RCRPT, RCRPT)
C
C
        INTEGER*4 STATUS_SECT,RUN_SECT,INST_SECT,SE_SECT,
     +          DAE_SECT,TCB_SECT,USER_SECT,DATA_SECT,END_DATA_SECT
        INTEGER*4 CRPT_VERS,RUN_VERS,INST_VERS,SE_VERS,
     +          DAE_VERS,TCB_VERS,USER_VERS,DATA_VERS,LOG_VERS
        INTEGER*4 HD_RUN,HD_USER,HD_TITLE,HD_DATE,HD_TIME,
     +          HD_DUR,FRMT_VER_NO,AD_RUN,AD_INST,AD_SE,AD_DAE,
     +          AD_TCB,AD_USER,AD_DATA,AD_LOG,DATA_FORMAT
        INTEGER*4 ST_RUN,ST_START,ST_PAUSED,ST_PREV,
     +          ST_ICPCODE,ST_SYSCODE,ST_SPECT,ST_FIRST,ST_LAST,
     +          ST_TCB1,ST_TCB2,ST_CAMACFLAGS,ST_HEARTBEAT,
     +          ST_SEP_RUN_OK,ST_SIMULATE,ST_NOMSG,ST_HOLD,ST_ENDWANTED,
     +          ST_GOODFRM,ST_RAWFRM,ST_MAX_CRPT,ST_MAX_DET,ST_MAX_NUT,
     +          ST_MAX_SPEC,ST_MAX_CHAN,ST_MAX_MON,ST_MAX_VAX,
     +          ST_MAX_DAE,ST_MAX_SEP,ST_MAX_TRG,ST_MAX_UDAT,ST_MAX_PER,
     +          ST_MAX_TOTSPEC,
c
     +          ST_CPERIOD,ST_PERMAX,ST_TPOFFSET,ST_COUNTSUM,
     +          ST_TABLES
        INTEGER*4 R_NUMBER,R_TITLE,R_USER,
     +          R_DAYTEL,R_DAYTEL2,R_NIGHT,R_INSTIT,
     +          R_DUR,R_DURUNITS,R_DUR_FREQ,R_DMP,R_DMP_UNITS,
     +          R_DMP_FREQ,R_FREQ,R_GD_PRTN_CHRG,R_TOT_PRTN_CHRG,
     +          R_GOODFRM,R_RAWFRM,R_DUR_WANTED,R_DUR_SECS,R_MON_SUM1,
     +          R_MON_SUM2,R_MON_SUM3,R_ENDDATE,R_ENDTIME,R_PROP
        INTEGER*4 I_INST,I_MAINSHUT,I_THERMSHUT,
     +          I_XSECT,I_YSECT,I_POSN,I_MOD,
     +          I_VACUUM,I_L1,I_DET,I_MON,I_NUSE,
     +          I_TABLES
C Instrument specific:
C       HET:
        INTEGER I_RFREQ,I_RENERGY,I_RPHASE,I_RSLIT,I_SLOWCHOP
C       LOQ:
        INTEGER I_XCEN,I_YCEN,I_BESTOP,I_RADBEST,I_SDDIST,
     +          I_CHOPSIZ,I_CHFREQ,I_FOEANG
C       CRISP:
        INTEGER I_AOFI
        INTEGER*4 E_POSN,E_TYPE,E_GEOM,
     +          E_THICK,E_HEIGHT,E_WIDTH,
     +          E_OMEGA,E_CHI,E_PHI,E_SCATT,E_XSECT,E_DENS,
     +          E_CANTHICK,E_CANXSECT,E_NAME,E_NSE,E_SEBLOCK,
     +          E_EQUIP,E_EQNAME
        INTEGER*4 SEP_LENGTH,SEP_NAME,SEP_VALUE,SEP_EXPONENT,
     +          SEP_UNITS,SEP_LOW_TRIP,SEP_HIGH_TRIP,
     +          SEP_CUR_VAL,SEP_STATUS,SEP_CONTROL,SEP_RUN,
     +          SEP_LOG,SEP_STABLE,SEP_PERIOD,SEP_CAM_ADDR,
     +          SEP_CAM_SUB,SEP_OFFSET,SEP_CAM_RGRP,
     +          SEP_PRE_PROC,SEP_CAM_VALS
        INTEGER*4 A_PARS,A_minppp,A_delay,A_synch,A_SMP,A_TABLES
        INTEGER*4 T_NTRG,T_NFPP,T_NPER,T_PMAP,
     +          T_NSP1,T_NTC1,T_TCM1,T_TCP1,
     +          T_PRE1,T_TCB1
        INTEGER*4 U_len,U_dat
        INTEGER*4 D_comp,D_offset,D_CRdata,D_CRfile,D_exp_filesize,
     +          D_DATA
C
        PARAMETER (SEP_LENGTH=32)
C
        PARAMETER (STATUS_SECT=32)
        PARAMETER (RUN_SECT=129)
        PARAMETER (INST_SECT=((RUN_SECT+94)/128+1)*128 +1)
        PARAMETER (SE_SECT=
     +  ((INST_SECT+70+(2*MAXMON)+(5+MAXNUT)*MAXDET)/128+1)*128 +1)
        PARAMETER (DAE_SECT=
     +          ((SE_SECT+66+MAXSEP*SEP_LENGTH)/128+1)*128 +1)
        PARAMETER (TCB_SECT=((DAE_SECT+65+MAXDET*5)/128+1)*128 +1)
        PARAMETER (USER_SECT=
     +          ((TCB_SECT+260+(MAXCHAN+29))/128+1)*128 +1)
        PARAMETER (DATA_SECT=((USER_SECT+2+MAXUDAT)/128 +1)*128 +1)
C
C Define the offsets within the first page of CRPT which include the
C header and address pointers to other sections of the CRPT
C
        PARAMETER (HD_RUN=1,HD_USER=3,HD_TITLE=8,HD_DATE=14,
     +          HD_TIME=17,HD_DUR=19,FRMT_VER_NO=21,AD_RUN=22,
     +          AD_INST=23,AD_SE=24,AD_DAE=25,AD_TCB=26,AD_USER=27,
     +          AD_DATA=28,AD_LOG=29,DATA_FORMAT=31)
C
        PARAMETER (CRPT_VERS=2,RUN_VERS=1,INST_VERS=2,
     +          SE_VERS=2,DAE_VERS=2,
     +          TCB_VERS=1,USER_VERS=1,DATA_VERS=2,LOG_VERS=2)
        PARAMETER (ST_RUN=0,ST_START=1,ST_PAUSED=3,ST_PREV=5,
     +          ST_ICPCODE=7,ST_SYSCODE=8,ST_SPECT=9,
     +          ST_FIRST=10,ST_LAST=11,ST_TCB1=12,ST_TCB2=13,
     +          ST_CAMACFLAGS=14,ST_HEARTBEAT=15,
     +          ST_SEP_RUN_OK=16,ST_SIMULATE=17,ST_NOMSG=18,
     +          ST_HOLD=19,ST_ENDWANTED=20,ST_GOODFRM=25,ST_RAWFRM=26,
     +          ST_MAX_CRPT=27,ST_MAX_DET=28,ST_MAX_NUT=29,
     +          ST_MAX_SPEC=30,ST_MAX_CHAN=31,ST_MAX_MON=32,
     +          ST_MAX_VAX=33,ST_MAX_DAE=34,ST_MAX_SEP=35,
     +          ST_MAX_TRG=36,ST_MAX_UDAT=37,ST_MAX_PER=38,
     +          ST_MAX_TOTSPEC=39,
c space for other MAXes
     +          ST_CPERIOD=45,ST_PERMAX=46,ST_TPOFFSET=47,
     +          ST_COUNTSUM=63,ST_TABLES=64)
C
        PARAMETER (R_NUMBER=1,R_TITLE=2,R_USER=22,
     +          R_DAYTEL=27,R_DAYTEL2=32,R_NIGHT=37,R_INSTIT=42,
     +          R_DUR=62,R_DURUNITS=63,R_DUR_FREQ=64,R_DMP=65,
     +          R_DMP_UNITS=66,R_DMP_FREQ=67,R_FREQ=68,
     +          R_GD_PRTN_CHRG=69,R_TOT_PRTN_CHRG=70,R_GOODFRM=71,
     +          R_RAWFRM=72,R_DUR_WANTED=73,R_DUR_SECS=74,
     +          R_MON_SUM1=75,R_MON_SUM2=76,R_MON_SUM3=77,
     +          R_ENDDATE=78,R_ENDTIME=81,R_PROP=83)
C
        PARAMETER (I_INST=1,I_MAINSHUT=18,I_THERMSHUT=19,
     +          I_XSECT=20,I_YSECT=21,I_POSN=22,I_MOD=23,
     +          I_VACUUM=24,I_L1=25,I_DET=67,I_MON=68,I_NUSE=69,
     +          I_TABLES=70)
C Instrument Specific:
C       HET:
        PARAMETER (I_RFREQ=26,I_RENERGY=27,I_RPHASE=28,I_RSLIT=29,
     +                  I_SLOWCHOP=30)
C       LOQ:
        PARAMETER (I_XCEN=31,I_YCEN=32,I_BESTOP=33,I_RADBEST=34,
     +  I_SDDIST=35,I_CHOPSIZ=12,I_CHFREQ=3,I_FOEANG=36)
C       CRISP:
        PARAMETER (I_AOFI=37)
C
        PARAMETER (E_POSN=1,E_TYPE=2,E_GEOM=3,
     +          E_THICK=4,E_HEIGHT=5,E_WIDTH=6,
     +          E_OMEGA=7,E_CHI=8,E_PHI=9,E_SCATT=10,E_XSECT=11,
     +          E_DENS=14,E_CANTHICK=15,E_CANXSECT=16,
     +          E_NAME=20,E_EQUIP=30,E_EQNAME=31,E_NSE=65,E_SEBLOCK=66)
C
C Offsets within sample enviroment parameter blocks defining variables that
C contain SE data. The first sample enviroment block follows 
C CRPT(SE_SECT+E_NSE) and is SEP_LENGTH*4 bytes long.
C
        PARAMETER (SEP_NAME=0,SEP_VALUE=2,SEP_EXPONENT=3,
     +          SEP_UNITS=4,SEP_LOW_TRIP=6,SEP_HIGH_TRIP=7,
     +          SEP_CUR_VAL=8,SEP_STATUS=9,SEP_CONTROL=10,
     +          SEP_RUN=11,SEP_LOG=12,SEP_STABLE=13,
     +          SEP_PERIOD=14,SEP_CAM_ADDR=15,SEP_CAM_SUB=16,
     +          SEP_OFFSET=17,SEP_CAM_RGRP=18,
     +          SEP_PRE_PROC=19,SEP_CAM_VALS=20)
C
        PARAMETER (A_PARS=1,A_minppp=3,A_delay=24,A_synch=25,A_SMP=26,
     +                                          A_TABLES=65)
C
        PARAMETER (T_NTRG=1,T_NFPP=2,T_NPER=3,T_PMAP=4,
     +          T_NSP1=260,T_NTC1=261,T_TCM1=262,T_TCP1=267,
     +          T_PRE1=287,T_TCB1=288)
C
        PARAMETER (U_len=1,U_dat=2)
C
        PARAMETER (D_comp=1,D_offset=3,D_CRdata=4,D_CRfile=5,
     +          D_exp_filesize=6,
     +          D_DATA=33)
C
C check on sizes
C
        PARAMETER(END_DATA_SECT = DATA_SECT+D_DATA+MAXVAX)
C