FUNCTION GETSWI(INSWIT,INPUT,IQ)
C..
C..	BOHDEN K. CMAYLO, JULY 1982
C..
C..	THIS ROUTINE GETS A "/XX" (3 CHAR) FROM INSWIT
C..	DELETES IT FROM 'INPUT' AND SETS 'GETSWI' TO 
C..	-1 IF BEFORE = (INPUT SIDE), +1 IF AFTER = (OUTPUT SIDE)
C..	OTHERWISE SET TO 0 IF NOT FOUND.
C..
	BYTE INPUTX,INSW,INSWIT(3),INPUT(80)
C..
	INSW=INSWIT(1)
	IEQUAL=-1
	DO 1 I=1,IQ
	INPUX=INPUT(I)
	IF(INPUX.EQ.'=') IEQUAL=-IEQUAL
	IF(INPUX.NE.INSW) GO TO 1
	DO 2 J=2,3
	IF(INPUT(I+J-1).NE.INSWIT(J)) GO TO 1
2	CONTINUE
C..
C..	FOUND, DELETE IT FROM INPUT
C..
	CALL BYTEDO(INPUT(I),INPUT(IQ-2),INPUT(I+3))
	CALL DOBYTE(INPUT(IQ-2),INPUT(IQ),' ')
	IQ=IQ-3
	GETSWI=IEQUAL
	RETURN
1	CONTINUE
C..
C..	NOT FOUND
C..
	GETSWI=0
	RETURN
	END