*-- Author : Stephen Burke 12/12/95 SUBROUTINE FPFIX(JSTART,JSTOP) ********************************************************************** * * * Deal with two pairs of cells which were swapped over for the '95 * * run by re-writing the FPLC and FPHC banks. * * * * In orientation 5 cell 20 is read out as cell 22, and cell 22 is * * read out as 20. Cell 21 is read out as 23; the real 23 is lost. * * * ********************************************************************** *KEEP,BOSMDL. C ------BOSMDL C ------ *KEEP,H1EVDT. * * IDATA type of information (HEAD bank word 6) : * * 0 - real data H1 * 1 - MC data H1SIM * 2 - real data CERN tests * 3 - MC data ARCET * * MONTE = .TRUE. if IDATA=1 * KEVENT = event processed counter for H1REC * *KEEP,BCS. *KEEP,STFUNCT. * index of element before row number IROW * index of L'th element of row number IROW * L'th integer element of the IROW'th row of bank with index IND * L'th real element of the IROW'th row of bank with index IND *KEND. ********************************************************************** * Channels were swapped in '95, probably '94, probably '96, ... INFPLC = NLINK('FPLC',0) * Cell number = 4*32*3*ISM + 4*32*IORI + 4*IWCELL + IWIRE CALL WBANK(IW,INWORK,NCOPY,*9000) CALL UCOPY(IW(JPTR),IW(INWORK+1),NCOPY) CALL UCOPY(IW(INWORK+JOFF),IW(JPTR),NCFPLC) CALL UCOPY(IW(INWORK+JOFF),IW(JPTR),NCFPLC) CALL UCOPY(IW(INWORK+JOFF),IW(JPTR),NCFPLC) CALL UCOPY(IW(INWORK+JOFF),IW(JPTR),NCFPLC) CALL WDROP(IW,INWORK) INFPHC = NLINK('FPHC',0) CALL VZERO(IW(INDCR(INFPHC,1,721)),32)