SUBROUTINE MU_TRIG_SECT(IMOD,IDIR,ISECT,MODS) C---------------------------------------------------------------------- C- C- Purpose and Methods : C- C- Inputs : IMOD : Module number C- Outputs : IDIR : direction of the chamber (-1=reversed) C- ISECT : trigger sector number C- (1=CF,2=EFN,3=EFS,0=not used in the trigger) C- Controls: None C- C- Created 23-MAY-1992 Kamel A. Bazizi C- C---------------------------------------------------------------------- IMPLICIT NONE SAVE INTEGER NMOD(200),NDIR(200),NSECT(200),MODS(200) INTEGER IMOD,IDIR,ISECT,I C C- module IDs DATA NMOD/ & 10, 11, 12, 13, 15, 16, & 20, 21, 22, 23, 25, 26, & 30, 31, 32, 33, 35, 36, & 61, 62, 64, 65, 67, & 91, 92, 94, 95, 97, 1 100,101,102,103,104,105,106,107, 1 110,111,112,113,114,115,116,117, 1 120,121,122,123,124, 127, 1 130,131,132,133,134,135,136,137, 1 140,141,142,143,144,145,146,147, 1 150,153,160,161,162,163,164,165,166,167, 1 180,183,190,191,192,193,194,195,196,197, 2 200,201,202,203,204,205,206,207, 2 210,211,212,213,214,215,216,217, 2 220,221,222,223,224, 227, 2 230,231,232,233,234,235,236,237, 2 240,241,242,243,244,245,246,247, 2 250,251,253,255, 2 260,261,262,263,264,265,266,267, 2 270,271,272,273,274,275,276,277, 2 280,281,283,285, 2 290,291,292,293,294,295,296,297, 2 300,301,302,303,304,305,306,307, S 404,400,406,402,405,401, S 414,410,416,412,417,413, S 424,420,426,422,425,421, S 434,430,436,432,437,433, S 444,440,446,442,445,441, S 454,450,456,452,457,453 / C C- module direction DATA NDIR/ & 1, 1, -1, -1, 1, -1, & 1, 1, -1, -1, 1, -1, & 1, 1, -1, -1, 1, -1, & 1, -1, 1, -1, -1, & -1, 1, -1, 1, 1, 1 -1, -1, 1, 1, -1, 1, -1, 1, 1 -1, -1, 1, 1, -1, -1, 1, 1, 1 -1, -1, 1, 1, -1, 1, 1 -1, -1, 1, 1, -1, -1, 1, 1, 1 -1, 1, 1, 1, -1, 1, -1, 1, 1 1, -1, -1, 1, -1, 1, -1, 1, -1, 1, 1 -1, 1, 1, -1, 1, -1, 1, -1, 1, -1, 2 1, 1, -1, -1, 1, 1, -1, -1, 2 1, 1, -1, -1, 1, 1, -1, -1, 2 1, 1, -1, -1, 1, -1, 2 1, 1, -1, -1, 1, 1, -1, -1, 2 1, 1, -1, -1, 1, 1, -1, -1, 2 -1, 1, 1, -1, 2 1, -1, 1, -1, 1, -1, 1, -1, 2 -1, 1, -1, 1, -1, -1, 1, 1, 2 1, -1, -1, 1, 2 -1, 1, -1, 1, -1, 1, -1, 1, 2 1, -1, 1, -1, 1, 1, -1, -1, S 1, 1, 1, 1, 1, 1, S 1, 1, 1, 1, 1, 1, S 1, 1, 1, 1, 1, 1, S 1, 1, 1, 1, 1, 1, S 1, 1, 1, 1, 1, 1, S 1, 1, 1, 1, 1, 1/ C- trigger sector DATA NSECT/ & 1, 1, 1, 1, 1, 1, & 1, 1, 1, 1, 1, 1, & 1, 1, 1, 1, 1, 1, & 2, 2, 2, 2, 2, & 3, 3, 3, 3, 3, 1 1, 1, 1, 1, 1, 1, 1, 1, 1 1, 1, 1, 1, 1, 1, 1, 1, 1 1, 1, 1, 1, 1, 1, 1 1, 1, 1, 1, 1, 1, 1, 1, 1 1, 1, 1, 1, 1, 1, 1, 1, 1 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 2 1, 1, 1, 1, 1, 1, 1, 1, 2 1, 1, 1, 1, 1, 1, 1, 1, 2 1, 1, 1, 1, 1, 1, 2 1, 1, 1, 1, 1, 1, 1, 1, 2 1, 1, 1, 1, 1, 1, 1, 1, 2 0, 0, 0, 0, 2 2, 2, 2, 2, 2, 2, 2, 2, 2 2, 2, 2, 2, 2, 2, 2, 2, 2 0, 0, 0, 0, 2 3, 3, 3, 3, 3, 3, 3, 3, 2 3, 3, 3, 3, 3, 3, 3, 3, S 0, 0, 0, 0, 0, 0, S 0, 0, 0, 0, 0, 0, S 0, 0, 0, 0, 0, 0, S 0, 0, 0, 0, 0, 0, S 0, 0, 0, 0, 0, 0, S 0, 0, 0, 0, 0, 0/ C LOGICAL FIRST DATA FIRST /.TRUE./ IF (FIRST) THEN FIRST=.FALSE. DO I=1,200 MODS(I)=NMOD(I) ENDDO ENDIF IDIR=0 ISECT=0 DO I=1,200 IF(IMOD.EQ.NMOD(I)) THEN IDIR =NDIR(I) ISECT=NSECT(I) RETURN ENDIF ENDDO C---------------------------------------------------------------------- 999 RETURN END