source/common/access_level1_2003.f

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

      ntpid=ntp_level1+20

      CALL HBNAME(ntpid,' ',0,'$CLEAR')
      CALL HBNAME(ntpid,'EVENT',GOOD1,'$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	CALL HBNAME(ntpid,'EVENT',GOOD1,'$SET')
10	*
11	CALL HBNAME(ntpid,'CLUSTER',NCLSTR1,'$SET')
12	*
13	CALL HBNAME(ntpid,'CNOISE',CNEV,'$SET')
14	*
15
16	*
17	return
18	END