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