PROGRAM TEST
	CHARACTER*80	string
	CHARACTER*80	switch, argue
	INTEGER*2	istart, iend, locswt, swtend,
     +			locarg, endarg, ier
C
	string = 'SBT/IDENT'
	istart = 1
	iend = 9
	CALL PARSE ( string, istart, iend,
     +			   switch, locswt, swtend,
     +			   argue, locarg, endarg, ier )
	TYPE 100, locswt, swtend, locarg, endarg, ier
100	FORMAT ( ' LOCSWT= ',I5,' SWTEND= ',I5,
     +		 ' LOCARG= ',I5,' ENDARG= ',I5,' IER= ',I5 )
	CALL EXIT
	END