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	pam-fi	1.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