1 //____________________________________________________________________
5 // Check integrety of Hardware2Detector and Detector2Hardware
8 //____________________________________________________________________
10 Addr2Str(UInt_t ddl, UInt_t hwaddr)
13 UInt_t board = (hwaddr >> 7) & 0x1F;
14 UInt_t chip = (hwaddr >> 4) & 0x7;
15 UInt_t chan = hwaddr & 0xF;
16 s = Form("(0x%05X,0x%02X,0x%1X,0x%1X)", ddl, board, chip, chan);
20 //____________________________________________________________________
22 Det2Str(UShort_t det, Char_t ring, UShort_t sec, UShort_t str)
25 s = Form("FMD%d%c[%2d,%3d]", det, ring, sec, str);
29 //____________________________________________________________________
31 PrintTrans(UShort_t det, Char_t ring, UShort_t sec, UShort_t str,
32 UInt_t ddl, UInt_t hwaddr,
33 UShort_t odet, Char_t oring, UShort_t osec, UShort_t ostr)
35 static TString s1, s2, s3;
36 s1 = Det2Str(det, ring, sec, str);
37 s2 = Addr2Str(ddl,hwaddr);
38 s3 = Det2Str(odet, oring, osec, ostr);
39 Info("TestHWMap","%s -> %s -> %s", s1.Data(), s2.Data(), s3.Data());
42 //____________________________________________________________________
44 CheckTrans(UShort_t det, Char_t ring, UShort_t sec, UShort_t str,
45 UShort_t odet, Char_t oring, UShort_t osec, UShort_t ostr)
48 Waring("TestHWMap", "Detector # differ %d != %d", det, odet);
50 Waring("TestHWMap", "Ring Id differ %c != %c", ring, oring);
52 Warning("TestHWMap", "Sector # differ %d != %d", sec, osec);
54 Warning("TestHWMap", "Strip # differ %d != %d", str, ostr);
57 //____________________________________________________________________
61 AliFMDParameters* param = AliFMDParameters::Instance();
63 for (UShort_t det = 2; det <= 2; det++) {
64 for (UShort_t rng = 0; rng < 2; rng++) {
65 Char_t ring = (rng == 0 ? 'I' : 'O');
66 Int_t nsec = (ring == 'I' ? 20 : 40);
67 Int_t nstr = (ring == 'I' ? 512 : 256);
68 for (UShort_t sec = 0; sec < nsec; sec++) {
69 for (UShort_t str = 0; str < nstr; str += 128) {
71 if (!param->Detector2Hardware(det, ring, sec, str, ddl, hwaddr)) {
72 Warning("TestHWMap", "detector to hardware failed on %s",
73 Det2Str(det, ring, sec, str));
76 UShort_t odet, osec, ostr;
78 if (!param->Hardware2Detector(ddl, hwaddr, odet, oring, osec, ostr)){
79 Warning("TestHWMap", "hardware to detector failed on %s",
80 Addr2Str(ddl, hwaddr));
83 PrintTrans(det,ring,sec,str,ddl,hwaddr,odet,oring,osec,ostr);
84 CheckTrans(det,ring,sec,str,odet,oring,osec,ostr);
86 } // Loop over sectors
88 } // Loop over detectors
92 //____________________________________________________________________