c------------ Header Common Table for MU Radar ------------------------ #define MUIHEAD 1 #define NEWHEAD 0 parameter(MAXHT_ = 256, MAXBM_ = 16, MAXL_ = 4480) #if MUIHEAD == 1 parameter(MAX_PSEQ = 64, MAX_BEAM = 256, MAX_NTXFRQ = 5, & MAX_ANCHAN = 4, MAX_CHAN = 29, MAX_FIR = 16) #endif dimension macf(21), ibeam(MAXBM_), nicohm(16) character prgnam*8, ldtime*24, recsta*24, recend*12, hpnam*6 #if MUIHEAD == 1 dimension ihead(1076) character head*4304, & head_fir*3712, head_dcd*7656, head_txptn*8192 #else #if NEWHEAD == 1 dimension ihead(344) character head*1376 #else dimension ihead(150) character head*600 #endif #endif #if MUIHEAD == 1 dimension itxcod(MAX_PSEQ), idcdal(MAX_PSEQ), txfreq(MAX_NTXFRQ), & irxatt(MAX_ANCHAN), irxon(MAX_ANCHAN), istart(MAX_BEAM) dimension ichan(MAX_CHAN), ncoh2(MAX_CHAN), nfft(MAX_CHAN), & ndata2(MAX_CHAN), rxfreq(MAX_CHAN), nrxcic(MAX_CHAN), & icrrat(MAX_CHAN) integer*2 ibeam2(MAX_BEAM), irxsel(26), ifft1(2, MAX_CHAN), & ifft2(2, MAX_CHAN), ifft3(2, MAX_CHAN), & itxfir(MAX_FIR), igafir(2, MAX_CHAN) character oparam*16, coment*128 dimension irxfir(2, MAX_FIR, MAX_CHAN), itxsel(25) dimension idcd01(MAX_PSEQ), idcd02(MAX_PSEQ), idcd03(MAX_PSEQ), & idcd04(MAX_PSEQ), idcd05(MAX_PSEQ), idcd06(MAX_PSEQ), & idcd07(MAX_PSEQ), idcd08(MAX_PSEQ), idcd09(MAX_PSEQ) dimension idcd10(MAX_PSEQ), idcd11(MAX_PSEQ), idcd12(MAX_PSEQ), & idcd13(MAX_PSEQ), idcd14(MAX_PSEQ), idcd15(MAX_PSEQ), & idcd16(MAX_PSEQ), idcd17(MAX_PSEQ), idcd18(MAX_PSEQ) dimension idcd19(MAX_PSEQ), idcd20(MAX_PSEQ), idcd21(MAX_PSEQ), & idcd22(MAX_PSEQ), idcd23(MAX_PSEQ), idcd24(MAX_PSEQ), & idcd25(MAX_PSEQ), idcd26(MAX_PSEQ), idcd27(MAX_PSEQ) dimension idcd28(MAX_PSEQ), idcd29(MAX_PSEQ) dimension itxptn(16, MAX_PSEQ), itxphs(16, MAX_PSEQ) dimension eh_dcr(MAXHT_, MAXBM_ * MAX_CHAN), & eh_dci(MAXHT_, MAXBM_ * MAX_CHAN) common /qeachheader/ ed_dcr, eh_dci #endif #if NEWHEAD == 1 integer prgver, hdrver, gpsclk, itxfrq(4), irxfrq(4), irxatt(4), & irxon(4), ipcomp(2), polar integer*2 ibeam2(256) character oparam*16, commnt*128 #endif common /qparm/ iaz(MAXBM_), ize(MAXBM_), fscale common /qhead/ ihead, head_fir, head_dcd, head_txptn c---------------------------------------------------------------------- equivalence(head, ihead) equivalence & (head( 1: 4), lnblk ), /* Length of a data block */ & (head( 5: 8), ntblk ), /* Number of total blocks */ & (head( 9: 12), ndblk ), /* Number of data blocks (Spectra only) */ & (head( 13: 16), lnseg ), /* Length of segment */ & (head( 17: 20), lnhead), /* Length of record header */ & (head( 21: 24), nhblk ), /* Number of header blocks */ & (head( 25: 32), prgnam), /* Data taking (Signal processing) program name (8 bytes) */ & (head( 33: 56), ldtime), /* Parameter file load time (24 bytes) */ & (head( 57: 60), nprog ), /* Data taking program number */ & (head( 61: 84), recsta), /* Record start time [DD-MMM-YYYY hh:mm:ss.ss] */ & (head( 85: 96), recend), /* Record end time [hh:mm:ss.ss] */ & (head( 97:100), irec ), /* Record number */ & (head(101:104), itrec ), /* Total record number */ & (head(105:108), mobs ), /* Observation mode */ & (head(109:112), mhead1), /* Usage of each header 1 (units of height) */ & (head(113:116), mhead2), /* Usage of each header 2 */ & (head(117:120), ndata ), /* Maximum number of data points in all combined channels (or ACF lags) */ & (head(121:124), nrdata) /* Number of result data */ equivalence & (head(125:128), ntseg ), /* Number of total segments */ & (head(129:132), nhigh ), /* Number of height points */ & (head(133:136), nbeam ), /* Number of beam directions */ & (head(137:140), nchan ), /* Number of combined channels */ & (head(141:144), nccf ), /* Number of data in same height */ & (head(145:148), ipp ), /* IPP (micro s) */ & (head(149:152), jstart), /* Sample start time (micro s) */ & (head(153:156), jsint ), /* Sample interval (micro s) */ & (head(157:160), ncoh ), /* Maximum number of coherent integrations in all combined channels */ & (head(161:164), nicoh ), /* Number of incoherent integrations */ & (head(165:168), mtype ), /* Data type (FFT-mode) */ & (head(169:172), mpulse), /* Multi-pulse pattern (32 bits) */ & (head(173:256), macf ), /* Lag number of each ACF point (21 words) */ & (head(257:320), ibeam ), /* Beam directional number in first 16 beams (16 words) */ & (head(321:324), nfit ), /* Number of fitting points in dopplfit */ & (head(325:328), lsubp ), /* Length of a sub-pulse (micro s) ($-1$: 0.5micro s) */ & (head(329:332), nsubp ), /* Number of sub-pulse */ & (head(333:336), mscan ), /* Beam scanning mode */ & (head(337:344), hpnam ), /* HP parameter-file name (6 bytes) */ & (head(345:348), nomode), /* */ & (head(349:352), nehead), /* */ & (head(353:416), nicohm), /* Number of sum (ACF method) (16 words) */ & (head(417:420), nsampl) /* Number of sample points (ACF method) */ #if MUIHEAD == 1 equivalence & (head( 601: 616), oparam), /* Observation parameter name (16 bytes) */ & (head( 617: 620), iprver), /* Program Version */ & (head( 621: 624), ista ), /* Record start time (s) (since epoch) */ & (head( 625: 628), istaus), /* Record start time shorter than 1 sec (micro s) */ & (head( 629: 632), iend ), /* Record end time (s) (since epoch) */ & (head( 633: 636), iendus), /* Record end time shorter than 1 sec (micro s) */ & (head( 637: 640), npseq ), /* Number of pulse sequencies (1-64) */ & (head( 641: 896), itxcod), /* Transmit pulse pattern (32 bits x 64) */ & (head( 897: 900), ldcdal), /* Decoding code length for all channels */ & (head( 901: 904), npsqal), /* Number of pulse decoding sequencies for all channels */ & (head( 905:1160), idcdal), /* Pulse decoding pattern for all channels (32 bits x 64) */ & (head(1161:1164), isteer), /* Beam steering interval (0: one beam, 1: IPP, 2: 2 IPP, 3: FFT) */ & (head(1165:1676), ibeam2), /* Beam direction (2 bytes x 256) */ & (head(1677:1680), ibshap), /* Beam shape */ & (head(1681:1684), iazoff), /* Beam azimuth offset (0.01 degree unit) */ & (head(1685:1688), izeoff), /* Beam zenith offset (0.01 degree unit) */ & (head(1689:1692), ipolar) /* Polarization (1: right circular fixed) */ equivalence & (head(1693:1696), ntxfrq), /* Number of TX frequencies */ & (head(1697:1716), txfreq), /* TX frequency offset (5 words) */ & (head(1717:1720), igain ), /* Gain correction of TX source signal */ & (head(1721:1724), itxatt), /* TX attenuator */ & (head(1725:1740), irxatt), /* RX attenuator (4 words) */ & (head(1741:1744), itxon ), /* TX on(1)/off(0) (1-25 bits) and TX module No. (26-30 bits; 0: all) */ & (head(1745:1760), irxon ), /* RX on(1)/off(0) (4 words) RX No. 1-4 means Channel No. 26-29 */ & (head(1761:1812), irxsel), /* RX module selection (2 bytes x (25 + 1), 0: all modules) */ & (head(1813:1816), ifiltr), /* Selection of filter (same as PIO) */ & (head(1817:1820), irngzr), /* Range zero correction (ns) */ & (head(1821:2844), istart), /* Sample start time (256 words: unit of sub-pulse/4) */ & (head(2845:2848), irxseq), /* Reception sequence (Dummy) */ & (head(2849:2964), ichan ), /* Channel number in digital combine (32 bits x 29) */ & (head(2965:3080), ncoh2 ), /* Number of coherent integrations for each combined channel (29 words) */ & (head(3081:3196), nfft ), /* Number of FFT points for each combined channel (29 words) */ & (head(3197:3312), ndata2), /* Number of data points for each combined channel (29 words) */ & (head(3313:3428), ifft1 ), /* Lower and upper boundary of FFT number in each combined channel */ & (head(3429:3544), ifft2 ), /* Same as above */ & (head(3545:3660), ifft3 ) /* Same as above */ equivalence & (head(3661:3776), rxfreq), /* RX frequency offset for each combined channel (29 words) */ & (head(3777:3808), itxfir), /* FIR coefficient in TX (2 bytes x 16) */ & (head(3809:3924), igafir), /* Gain adjustment of FIR filter in RX for each combined channel (2 bytes x 2 x 29) */ & (head(3925:3928), intptn), /* CIC interpolation pattern in TX (0-15) */ & (head(3929:3932), intrat), /* CIC interpolation rate in TX (1-640) */ & (head(3933:3936), ntxcic), /* Number of CIC filter in TX (1-10) */ & (head(3937:3940), igacic), /* Gain adjustment of CIC filter in TX (log2 G) */ & (head(3941:4056), nrxcic), /* Number of CIC filter in RX for each combined channel (29 words) */ & (head(4057:4172), icrrat), /* CIC cropping rate in RX for each combined channel (29 words) */ & (head(4173:4176), sealvl), /* Above sea level (m) \hfill ...\ Memo. */ & (head(4177:4180), iheadf), /* Header flag */ & (head(4181:4260), coment) /* Comment by user (80 bytes) */ equivalence & (head_fir( 1:3712), irxfir) /* FIR coefficient in RX for each combined channel (2 x 16 x 29 words) */ & (head_fir(3713:3812), itxsel), /* TX module selection (32 bits x 25) */ equivalence & (head_dcd( 1: 4), ldcd01), /* Decoding code length in combined channel 1 */ & (head_dcd( 5: 8), npsq01), /* Number of pulse decoding sequencies in combined channel 1 */ & (head_dcd( 9: 264), idcd01), /* Pulse decoding pattern in combined channel 1 (32 bits x 64) */ & (head_dcd( 265: 268), ldcd02), /* Decoding code length in combined channel 2 */ & (head_dcd( 269: 272), npsq02), /* Number of pulse decoding sequencies in combined channel 2 */ & (head_dcd( 273: 528), idcd02), /* Pulse decoding pattern in combined channel 2 (32 bits x 64) */ & (head_dcd( 529: 532), ldcd03), /* Decoding code length in combined channel 3 */ & (head_dcd( 533: 536), npsq03), /* Number of pulse decoding sequencies in combined channel 3 */ & (head_dcd( 537: 792), idcd03), /* Pulse decoding pattern in combined channel 3 (32 bits x 64) */ & (head_dcd( 793: 796), ldcd04), /* Decoding code length in combined channel 4 */ & (head_dcd( 797: 800), npsq04), /* Number of pulse decoding sequencies in combined channel 4 */ & (head_dcd( 801:1056), idcd04), /* Pulse decoding pattern in combined channel 4 (32 bits x 64) */ & (head_dcd(1057:1060), ldcd05), /* Decoding code length in combined channel 5 */ & (head_dcd(1061:1064), npsq05), /* Number of pulse decoding sequencies in combined channel 5 */ & (head_dcd(1065:1320), idcd05), /* Pulse decoding pattern in combined channel 5 (32 bits x 64) */ & (head_dcd(1321:1324), ldcd06), /* Decoding code length in combined channel 6 */ & (head_dcd(1325:1328), npsq06), /* Number of pulse decoding sequencies in combined channel 6 */ & (head_dcd(1329:1584), idcd06) /* Pulse decoding pattern in combined channel 6 (32 bits x 64) */ equivalence & (head_dcd(1585:1588), ldcd07), /* Decoding code length in combined channel 7 */ & (head_dcd(1589:1592), npsq07), /* Number of pulse decoding sequencies in combined channel 7 */ & (head_dcd(1593:1848), idcd07), /* Pulse decoding pattern in combined channel 7 (32 bits x 64) */ & (head_dcd(1849:1852), ldcd08), /* Decoding code length in combined channel 8 */ & (head_dcd(1853:1856), npsq08), /* Number of pulse decoding sequencies in combined channel 8 */ & (head_dcd(1857:2112), idcd08), /* Pulse decoding pattern in combined channel 8 (32 bits x 64) */ & (head_dcd(2113:2116), ldcd09), /* Decoding code length in combined channel 9 */ & (head_dcd(2117:2120), npsq09), /* Number of pulse decoding sequencies in combined channel 9 */ & (head_dcd(2121:2376), idcd09), /* Pulse decoding pattern in combined channel 9 (32 bits x 64) */ & (head_dcd(2377:2380), ldcd10), /* Decoding code length in combined channel 10 */ & (head_dcd(2381:2384), npsq10), /* Number of pulse decoding sequencies in combined channel 10 */ & (head_dcd(2385:2640), idcd10), /* Pulse decoding pattern in combined channel 10 (32 bits x 64) */ & (head_dcd(2641:2644), ldcd11), /* Decoding code length in combined channel 11 */ & (head_dcd(2645:2648), npsq11), /* Number of pulse decoding sequencies in combined channel 11 */ & (head_dcd(2649:2904), idcd11), /* Pulse decoding pattern in combined channel 11 (32 bits x 64) */ & (head_dcd(2905:2908), ldcd12), /* Decoding code length in combined channel 12 */ & (head_dcd(2909:2912), npsq12), /* Number of pulse decoding sequencies in combined channel 12 */ & (head_dcd(2913:3168), idcd12) /* Pulse decoding pattern in combined channel 12 (32 bits x 64) */ equivalence & (head_dcd(3169:3172), ldcd13), /* Decoding code length in combined channel 13 */ & (head_dcd(3173:3176), npsq13), /* Number of pulse decoding sequencies in combined channel 13 */ & (head_dcd(3177:3432), idcd13), /* Pulse decoding pattern in combined channel 13 (32 bits x 64) */ & (head_dcd(3433:3436), ldcd14), /* Decoding code length in combined channel 14 */ & (head_dcd(3437:3440), npsq14), /* Number of pulse decoding sequencies in combined channel 14 */ & (head_dcd(3441:3696), idcd14), /* Pulse decoding pattern in combined channel 14 (32 bits x 64) */ & (head_dcd(3697:3700), ldcd15), /* Decoding code length in combined channel 15 */ & (head_dcd(3701:3704), npsq15), /* Number of pulse decoding sequencies in combined channel 15 */ & (head_dcd(3705:3960), idcd15), /* Pulse decoding pattern in combined channel 15 (32 bits x 64) */ & (head_dcd(3961:3964), ldcd16), /* Decoding code length in combined channel 16 */ & (head_dcd(3965:3968), npsq16), /* Number of pulse decoding sequencies in combined channel 16 */ & (head_dcd(3969:4224), idcd16), /* Pulse decoding pattern in combined channel 16 (32 bits x 64) */ & (head_dcd(4225:4228), ldcd17), /* Decoding code length in combined channel 17 */ & (head_dcd(4229:4232), npsq17), /* Number of pulse decoding sequencies in combined channel 17 */ & (head_dcd(4233:4488), idcd17), /* Pulse decoding pattern in combined channel 17 (32 bits x 64) */ & (head_dcd(4489:4492), ldcd18), /* Decoding code length in combined channel 18 */ & (head_dcd(4493:4496), npsq18), /* Number of pulse decoding sequencies in combined channel 18 */ & (head_dcd(4497:4752), idcd18) /* Pulse decoding pattern in combined channel 18 (32 bits x 64) */ equivalence & (head_dcd(4753:4756), ldcd19), /* Decoding code length in combined channel 19 */ & (head_dcd(4757:4760), npsq19), /* Number of pulse decoding sequencies in combined channel 19 */ & (head_dcd(4761:5016), idcd19), /* Pulse decoding pattern in combined channel 19 (32 bits x 64) */ & (head_dcd(5017:5020), ldcd20), /* Decoding code length in combined channel 20 */ & (head_dcd(5021:5024), npsq20), /* Number of pulse decoding sequencies in combined channel 20 */ & (head_dcd(5025:5280), idcd20), /* Pulse decoding pattern in combined channel 20 (32 bits x 64) */ & (head_dcd(5281:5284), ldcd21), /* Decoding code length in combined channel 21 */ & (head_dcd(5285:5288), npsq21), /* Number of pulse decoding sequencies in combined channel 21 */ & (head_dcd(5289:5544), idcd21), /* Pulse decoding pattern in combined channel 21 (32 bits x 64) */ & (head_dcd(5545:5548), ldcd22), /* Decoding code length in combined channel 22 */ & (head_dcd(5549:5552), npsq22), /* Number of pulse decoding sequencies in combined channel 22 */ & (head_dcd(5553:5808), idcd22), /* Pulse decoding pattern in combined channel 22 (32 bits x 64) */ & (head_dcd(5809:5812), ldcd23), /* Decoding code length in combined channel 23 */ & (head_dcd(5813:5816), npsq23), /* Number of pulse decoding sequencies in combined channel 23 */ & (head_dcd(5817:6072), idcd23), /* Pulse decoding pattern in combined channel 23 (32 bits x 64) */ & (head_dcd(6073:6076), ldcd24), /* Decoding code length in combined channel 24 */ & (head_dcd(6077:6080), npsq24), /* Number of pulse decoding sequencies in combined channel 24 */ & (head_dcd(6081:6336), idcd24) /* Pulse decoding pattern in combined channel 24 (32 bits x 64) */ equivalence & (head_dcd(6337:6340), ldcd25), /* Decoding code length in combined channel 25 */ & (head_dcd(6341:6344), npsq25), /* Number of pulse decoding sequencies in combined channel 25 */ & (head_dcd(6345:6600), idcd25), /* Pulse decoding pattern in combined channel 25 (32 bits x 64) */ & (head_dcd(6601:6604), ldcd26), /* Decoding code length in combined channel 26 */ & (head_dcd(6605:6608), npsq26), /* Number of pulse decoding sequencies in combined channel 26 */ & (head_dcd(6609:6864), idcd26), /* Pulse decoding pattern in combined channel 26 (32 bits x 64) */ & (head_dcd(6865:6868), ldcd27), /* Decoding code length in combined channel 27 */ & (head_dcd(6869:6872), npsq27), /* Number of pulse decoding sequencies in combined channel 27 */ & (head_dcd(6873:7128), idcd27), /* Pulse decoding pattern in combined channel 27 (32 bits x 64) */ & (head_dcd(7129:7132), ldcd28), /* Decoding code length in combined channel 28 */ & (head_dcd(7133:7136), npsq28), /* Number of pulse decoding sequencies in combined channel 28 */ & (head_dcd(7137:7392), idcd28), /* Pulse decoding pattern in combined channel 28 (32 bits x 64) */ & (head_dcd(7393:7396), ldcd29), /* Decoding code length in combined channel 29 */ & (head_dcd(7397:7400), npsq29), /* Number of pulse decoding sequencies in combined channel 29 */ & (head_dcd(7401:7656), idcd29) /* Pulse decoding pattern in combined channel 29 (32 bits x 64) */ equivalence & (head_txptn( 1:4096), itxptn), /* TX pulse on/off pattern (512 bits x 64) */ & (head_txptn(4097:8192), itxphs) /* TX pulse phase pattern (512 bits x 64) */ #endif #if NEWHEAD == 1 equivalence & (head(601:616), oparam), & (head(617:620), prgver), & (head(621:624), hdrver), & (head(625:628), gpsclk), & (head(629:1140), ibeam2), & (head(1141:1144), ibshap), & (head(1145:1148), iazoff), & (head(1149:1152), izeoff), & (head(1153:1168), itxfrq), & (head(1169:1184), irxfrq), & (head(1185:1188), itxatt), & (head(1189:1204), irxatt), & (head(1205:1208), itxon), & (head(1209:1224), irxon), & (head(1225:1232), ipcomp), & (head(1233:1236), ifiltr), & (head(1237:1240), polar), & (head(1241:1244), icflip), & (head(1245:1248), irxseq), & (head(1249:1376), commnt) #endif