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	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			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