C****************************************************************
C* 								*
C*								*
C*	DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY *
C*	EITHER FOR THE CREATION OR FOR THE CLINICAL EFFICACY	*
C*	OF THIS PROGRAM. USERS MUST ASSUME FULL RESPONSIBILITY	*
C*	FOR ANY RESULTS OR DIAGNOSES OBTAINED FROM THE USE	*
C*	OF THIS PROGRAM. QUESTIONS ON THE EXECUTION OF THIS	*
C*	PROGRAM MUST BE REFERRED BACK TO THE ORIGINAL AUTHOR.	*
C*								*
C* AUTHOR:	SALLY FORSTER					*
C*		C/O DEPARTMENT OF NUCLEAR MEDICINE		*
C*		GUY'S HOSPITAL				*
C*		LONDON, ENGLAND					*
C*								*
C*		TEL: 01-407-7600 EXT 2583/4			*
C*								*
C****************************************************************
	SUBROUTINE EMPPAR(IP,IE)
	IMPLICIT LOGICAL*1 (A)
	IMPLICIT REAL*4    (C)
	IMPLICIT INTEGER*2 (D-Z)
	COMMON//SAVDES(256),CURVE1(512),CURVE2(512),ICS,ICB,ICOM
C*****COMMANDS TAKING POSSIBLY EMPTY PARAMETER STRING
	DATA AFL,ATR/.FALSE.,.TRUE./
	IE=4
250	IF(IP.GT.4)RETURN
	IE=12
C*****	      PT  NT  PR  NR
	GOTO (260,270,280,290),ICOM-19
C*****PT..20
260	IF(HARDON(IP,AFL))1050,20,20
C*****NT..21
270	IF(HARDON(IP,ATR))1050,20,20
C*****PR..22
280	IF(PRINT(IP,AFL))1050,20,20
C*****NR..23
290	IF(PRINT(IP,ATR))1050,20,20
20	RETURN
1050	IE=5
	RETURN
	END
