*-- Author : John V. Morris 23/06/93
SUBROUTINE FTDEOR(JRUN,IERR)
CALL H1ENVI(IFLAG,IPROC,NPROC)
CALL HDELET(0)
CALL FTQINT
CALL FBOOKQ
IF(IL4L5.EQ.1) CALL SAREA('L4',NRUN0)
IF(IL4L5.EQ.2) CALL SAREA('FTDSGI',0)
CALL FLK2HB(NHIST,IER1)
CALL SAREA('FTDMON',0)
CALL BNT( 2, 0, 4, NAMIT)
CALL BNT( 1, 0, 14, NAMEL)
CALL BNT( 7, 0, 8,FNAMEA)
CALL BNT( 8, 0, 8,FNAMEA)
CALL BNT( 9, 0, 26, NAMEP)
CALL BNT(10, 0, 39, NAMEE)
CALL BNT(11, 0, 19, NAMES)
CALL BNT(12, 0, 8, NAMEB)
CALL BNT(13, 0, 18, NAMEV)
CALL BNT(14, 0, 9, NAMEH)
CALL BNT(15, 0, 9, NAMEC)
CALL BNT(16, 0, 18, NAMET)
CALL BHD (17,0,32,-0.5,31.5,36,0.5,36.5)
CALL SHD (17,0,40.,40.)
CALL STEXT(17 ,4,'FT Planar')
CALL STEXT(17 ,1,'Dead Cell No vs Wire Plane')
CALL BHDW (18,0,32,-0.5,31.5,36,0.5,36.5)
CALL SHDW (18,0,40.,40.,1.)
CALL STEXT(18 ,4,'FT Planar')
CALL STEXT(18 ,1,'Cell No vs Wire Plane')
CALL BHS (19,0,101,0.0,1.01)
CALL SHS (19,0,-1.)
CALL STEXT(19 ,4,'FT Planar')
CALL STEXT(19 ,1,'Relative Efficiency')
CALL BNT(20, 0, 39, NAMEE)
CALL BNT(21, 0, 19, NAMES)
CALL BNT(22, 0, 24, NAMEB)
CALL BNT(23, 0, 18, NAMEV)
CALL BNT(24, 0, 9, NAMEH)
CALL BNT(25, 0, 9, NAMEC)
CALL BNT(26, 0, 18, NAMET)
CALL BHD (27,0,48,-0.5,47.5,36,0.5,36.5)
CALL SHD (27,0,40.,40.)
CALL STEXT(27 ,4,'FT Radial')
CALL STEXT(27 ,1,'Dead Wedge Pair No vs Wire Plane')
CALL BHDW (28,0,48,-0.5,47.5,36,0.5,36.5)
CALL SHDW (28,0,40.,40.,1.)
CALL STEXT(28 ,4,'FT Radial')
CALL STEXT(28 ,1,'Wedge Pair No vs Wire Plane')
CALL BHS (29,0,101,0.0,1.01)
CALL SHS (29,0,-1.)
CALL STEXT(29 ,4,'FT Radial')
CALL STEXT(29 ,1,'Relative Efficiency')
CALL BHDW (40,0,32,0.0,32.0,36,0.0,36.0)
CALL SHDW (40,0,40.,40.,1.)
CALL STEXT(40 ,4,'FT Planar')
CALL STEXT(40 ,1,'No. of hits vs Wire Plane')
CALL BHDW (41,0,32,0.0,32.0,36,0.0,36.0)
CALL SHDW (41,0,40.,40.,1.)
CALL STEXT(41 ,4,'FT Planar')
CALL STEXT(41 ,1,'No. of used hits vs Wire Plane')
CALL BHDW (42,0,32,0.0,32.0,36,0.0,36.0)
CALL SHDW (42,0,40.,40.,1.)
CALL STEXT(42 ,4,'FT Planar')
CALL STEXT(42 ,1,'No. of unused hits vs Wire Plane')
CALL BHDW (50,0,24,0.0,24.0,36,0.0,36.0)
CALL SHDW (50,0,40.,40.,1.)
CALL STEXT(50 ,4,'FT Radial')
CALL STEXT(50 ,1,'No. of hits vs Wire Plane')
CALL BHDW (51,0,24,0.0,24.0,36,0.0,36.0)
CALL SHDW (51,0,40.,40.,1.)
CALL STEXT(51 ,4,'FT Radial')
CALL STEXT(51 ,1,'No. of used hits vs Wire Plane')
CALL BHDW (52,0,24,0.0,24.0,36,0.0,36.0)
CALL SHDW (52,0,40.,40.,1.)
CALL STEXT(52 ,4,'FT Radial')
CALL STEXT(52 ,1,'No. of unused hits vs Wire Plane')
CALL SAREA('FTRMON',0)
CALL BNT( 1, 0, 6,FNAME1)
CALL BNT( 4, 0, 8,FNAMEA)
CALL BNT( 5, 0, 8,FNAMEA)
CALL BNT( 6, 0, 8,FNAMEA)
CALL BNT(75, 0, 8,FNAMEA)
CALL BNT(76, 0, 8,FNAMEA)
CALL BNT(79, 0, 8,FNAMEA)
CALL BNT(81, 0, 8,FNAMEA)
CALL BNT(80, 0, 13,FNAMET)
CALL BNT(82, 0, 13,FNAMET)
CALL BNT(87, 0, 8,FNAMEA)
CALL BNT(88, 0, 8,FNAMEA)
CALL BNT(89, 0, 8,FNAMEA)
CALL BNT(90, 0, 8,FNAMEA)
CALL BNT(19, 0, 6,FNAMEE)
CALL BNT(100,0, 8,FNAMEP)
CALL BNT(101,0, 13,FNAMER)
CALL BNT(200,0, 10,FNAMEC)
CALL BNT(201,0, 10,FNAMEC)
CALL BNT(202,0, 10,FNAMEC)
CALL BNT(203,0, 10,FNAMEC)
CALL BNT(320,0, 5,FNAMEB)
CALL BNT(321,0, 5,FNAMEB)
CALL BNT(322,0, 5,FNAMEB)
CALL BNT(323,0, 5,FNAMEB)
CALL BNT(2016, 0, 8,FNAMEA)
CALL BNT(2017, 0, 8,FNAMEA)
CALL BNT(907, 0, 8,FNAMEA)
CALL BNT(908, 0, 8,FNAMEA)
CALL BNT(650, 0, 8,FNAMEA)
CALL BNT(651, 0, 8,FNAMEA)
CALL BNT(652, 0, 8,FNAMEA)
CALL BNT(653, 0, 8,FNAMEA)
CALL BNT(654, 0, 8,FNAMEA)
CALL BNT(655, 0, 8,FNAMEA)
CALL BNT(656, 0, 8,FNAMEA)
CALL BNT(657, 0, 8,FNAMEA)
CALL SAREA('FPOKER',0)
CALL BNT(1, 0, 8, NAMES1)
CALL BNT(2, 0, 8, NAMES2)
CALL BNT(3, 0, 8, NAMES3)
CALL BNT(4, 0, 8, NAMES4)
CALL SAREA('FTDMON',0)
CALL FMOUT(NRUN0,IERR)
CALL FMOUT(NRUN0,IERR)
CALL SVEC(1,0,AVEC)
CALL FQENDP
CALL FQENDR
IF(ISTATP(1).GE.1000) CALL FDEADP
IF(ISTATR(1).GE.1000) CALL FDEADR
IF(IL4L5.EQ.1) CALL SAREA('L4',NRUN0)
IF(IL4L5.EQ.2) CALL SAREA('FTDSGI',0)
CALL FMEANT
CALL FMOUT(NRUN0,IERR)
CALL FHTMAP
CALL FTRMON(NRUN0)
CALL FPOKEM(NRUN0)
CALL SAREA('FTDMON',0)