source/common/access_level0.f

      SUBROUTINE access_level0
*
c*****************************************************
cccccc24/09/2005 modified by david fedele  --> (1)
cccccc14/10/2005 modified by elena         --> (2)
c*****************************************************
      include '../common/level0.f'

*
      CALL HBNAME(20,' ',0,'$CLEAR')
c     CALL HBNAME(20,'EVENT',GOOD0,'$SET')   !(1)
      CALL HBNAME(20,'GENERAL',GOOD0,'$SET') !(1)
*
      CALL HBNAME(20,'CPU',PKT_TYPE,'$SET') !(2)
*
      CALL HBNAME(20,'HEADER',DAQMODE,'$SET')
*
c     CALL HBNAME(20,'CPU',PKT_TYPE,'$SET') !(2)
*
      CALL HBNAME(20,'DATA',TOTDATALENGTH,'$SET')
*
      CALL HBNAME(20,'TRAILER',TRAILER1,'$SET')
*
*
      END
1	SUBROUTINE access_level0
2	*
3	c*****************************************************
4	cccccc24/09/2005 modified by david fedele --> (1)
5	cccccc14/10/2005 modified by elena --> (2)
6	c*****************************************************
7	include '../common/level0.f'
8
9	*
10	CALL HBNAME(20,' ',0,'$CLEAR')
11	c CALL HBNAME(20,'EVENT',GOOD0,'$SET') !(1)
12	CALL HBNAME(20,'GENERAL',GOOD0,'$SET') !(1)
13	*
14	CALL HBNAME(20,'CPU',PKT_TYPE,'$SET') !(2)
15	*
16	CALL HBNAME(20,'HEADER',DAQMODE,'$SET')
17	*
18	c CALL HBNAME(20,'CPU',PKT_TYPE,'$SET') !(2)
19	*
20	CALL HBNAME(20,'DATA',TOTDATALENGTH,'$SET')
21	*
22	CALL HBNAME(20,'TRAILER',TRAILER1,'$SET')
23	*
24	*
25	END