SUBROUTINE QLKTST (LUN)
C
C	.IDENT	/26MAY7/	;10:40:00,  LV
C	.ENTRY	QLKTST - TEST LOCK STATE OF Q
C;+
C - Q L K T S T
C
C PURPOSE:	TO TEST THE LOCK STATE OF THE DATA ACQUISITION
C		SYSTEM Q.
C
C INTERFACE:	CALLING SEQUENCE:  (FORTRAN-CALLABLE SUBROUTINE)
C			CALL QLKTST (LUN)
C
C		INPUT:	LUN (INTEGER)  = LOGICAL UNIT ALREADY ASSIGNED TO
C					 LM OR TI
C
C METHOD:	THIS SUBROUTINE TESTS THE LOCK-STATE OF Q USING
C		THE FLAG FOUND IN QCOM1.  IF THE SYSTEM IS UNLOCKED,
C		THE SUBROUTINE SIMPLY RETURNS.  IF THE SYSTEM IS
C		LOCKED, AN ERROR MESSAGE IS OUTPUT ON LOGICAL
C		UNIT LUN AND THE CALLING TASK EXITS.
C
C LANGUAGE:	FORTRAN
C
C RESTRICTIONS:	ANY TASK USING THIS ROUTINE MUST BE LINKED TO QCOM1.
C;-
C REVISIONS:
C 15-JUN-76	SS	WRITTEN
C 26-MAY-77	LV	UPDATED TO CONFORM TO STANDARDS
C
C
C	DATA SPECIFICATIONS
C
	IMPLICIT INTEGER (A-Z)
	COMMON/QCOM1/C,N,RIP,RUN,REC,LOCK
C
	IF (LOCK.EQ.0) RETURN
	WRITE(LUN,105)
105	FORMAT(' REQUEST REJECTED. Q-SYSTEM IS LOCKED')
	CALL EXIT
	END