* * Common block that contains the mapping of physical fastbus locations * to logical detector identification. * * $Log: gen_decode_common.cmn,v $ * Revision 1.4.24.7 2007/09/11 19:14:18 frw * fixed FPP related arrays and limits * * Revision 1.4.24.6 2007/09/10 21:18:13 frw * fixed FPP related arrays and limits * * Revision 1.4.24.5 2007/09/07 21:55:07 puckett * increased maxplanes, maxcounters to 999,changed range of index 4 of array g_decode_roc * * Revision 1.4.24.4 2007/08/27 20:24:42 puckett * Increased "max planes" from 15 to 56 * * Revision 1.4.24.3 2007/08/22 19:09:31 frw * added FPP * * Revision 1.5 4/2007 frw * added flag to identify module type in VME bins -- unused for FastBus * * Revision 1.4.24.2 2007/06/04 15:11:23 puckett * changed hit array structure for trigger-related signals * * Revision 1.4.24.1 2007/05/15 02:53:02 jones * Start to Bigcal code * * Revision 1.4 1996/01/17 15:40:59 cdaq * (SAW) Change roc index in arrays to start at zero. * (JRA) Add structures needed to produce adc threshold setting files. * * Revision 1.3 1994/10/20 12:26:44 cdaq * (JRA) Increate G_DECODE_MAXROCS from 8 to 9 * * Revision 1.2 1994/04/05 14:31:10 cdaq * Add g_decode_subaddbit for location in FB word of sub address * * Revision 1.1 1994/02/07 19:36:23 cdaq * Initial revision * *%% include 'gen_detectorids.par' * integer G_DECODE_MAXWORDS ! Must exceed number of parameter (G_DECODE_MAXWORDS=10000) ! installed FB channels integer G_DECODE_MAXROCS parameter (G_DECODE_MAXROCS=15) ! Largest ROC # + 1 integer G_DECODE_MAXSLOTS parameter (G_DECODE_MAXSLOTS=25) ! # slots in a FB crate integer G_DECODE_MAXPLANES parameter (G_DECODE_MAXPLANES=99) ! Largest plane # integer G_DECODE_MAXCOUNTERS parameter (G_DECODE_MAXCOUNTERS=999) ! Largest counter # integer G_DECODE_MAXSIGNALS parameter (G_DECODE_MAXSIGNALS=3) ! Largest signal # integer*4 g_decode_slotpointer ! Pointer into map arrays integer*4 g_decode_subaddcnt ! Number of subadds per slot integer*4 g_decode_subaddbit ! bit shift to get subadd integer*4 g_decode_modtyp ! flag to identify module type integer*4 g_decode_slotmask integer*4 g_decode_didmap integer*4 g_decode_planemap, g_decode_countermap integer*4 g_decode_sigtypmap integer*4 g_decode_nextpointer ! Next free in map arrays integer*4 g_decode_roc common /UPCOMMON/ $ g_decode_slotpointer(0:G_DECODE_MAXROCS, G_DECODE_MAXSLOTS), $ g_decode_subaddcnt(0:G_DECODE_MAXROCS,G_DECODE_MAXSLOTS), $ g_decode_subaddbit(0:G_DECODE_MAXROCS,G_DECODE_MAXSLOTS), $ g_decode_slotmask(0:G_DECODE_MAXROCS,G_DECODE_MAXSLOTS), $ g_decode_didmap(G_DECODE_MAXWORDS), $ g_decode_planemap(G_DECODE_MAXWORDS), $ g_decode_countermap(G_DECODE_MAXWORDS), $ g_decode_sigtypmap(G_DECODE_MAXWORDS), $ g_decode_nextpointer, $ g_decode_modtyp(0:G_DECODE_MAXROCS,G_DECODE_MAXSLOTS), $ g_decode_roc(0:MAXID,G_DECODE_MAXPLANES, $ G_DECODE_MAXCOUNTERS,0:G_DECODE_MAXSIGNALS) integer*4 gmax_roc_with_adc integer*4 gmax_slot_with_adc integer*4 gnum_adc_channels parameter (gmax_roc_with_adc=12) parameter (gmax_slot_with_adc=22) parameter (gnum_adc_channels=64) * use slot,roc so that g_threshold_readback(1,3,7) >>> thresholds(*) gives * the thresholds(1-64) = the 64 thresholds in roc3,slot7. integer*4 g_threshold_readback(gnum_adc_channels, & gmax_roc_with_adc,gmax_slot_with_adc) common/gen_threshold_check/ & g_threshold_readback * Local Variables: * mode: fortran * End: