source/common/access_level1.f

      SUBROUTINE access_level1
*
      include '../common/commontracker.f'
      include '../common/level1.f'

      ntpid=ntp_level1+20

      CALL HBNAME(ntpid,' ',0,'$CLEAR')
c*****************************************************
cccccc 10/9/2005 modified by david fedele
c      CALL HBNAME(ntpid,'EVENT',GOOD1,'$SET')
      CALL HBNAME(ntpid,'GENERAL',GOOD1,'$SET')
******************************************************
*
      CALL HBNAME(ntpid,'CPU',PKT_TYPE1,'$SET')
*
      CALL HBNAME(ntpid,'CLUSTER',NCLSTR1,'$SET')
*
      CALL HBNAME(ntpid,'CNOISE',CNEV,'$SET')
*

*
      return
      END
1	SUBROUTINE access_level1
2	*
3	include '../common/commontracker.f'
4	include '../common/level1.f'
5
6	ntpid=ntp_level1+20
7
8	CALL HBNAME(ntpid,' ',0,'$CLEAR')
9	c*****************************************************
10	cccccc 10/9/2005 modified by david fedele
11	c CALL HBNAME(ntpid,'EVENT',GOOD1,'$SET')
12	CALL HBNAME(ntpid,'GENERAL',GOOD1,'$SET')
13	******************************************************
14	*
15	CALL HBNAME(ntpid,'CPU',PKT_TYPE1,'$SET')
16	*
17	CALL HBNAME(ntpid,'CLUSTER',NCLSTR1,'$SET')
18	*
19	CALL HBNAME(ntpid,'CNOISE',CNEV,'$SET')
20	*
21
22	*
23	return
24	END