SUBROUTINE GNP(PMTSTR,TYPE)
	LOGICAL*1 PMTSTR(2)
	INTEGER*2 TYPE
C CLP DECLARATIONS FOR COMMAND LINE PROCESSING
	COMMON/CLP/
	1 TYPNUL,TYPEOL,TYPEL,TYPINT,TYPFLT,TYPNAM,TYPSPC,
	2 TLU,CLPEFN,CNTLZ,TRACE,
	3 LINE,NXTCHR,TOKLEN,TOKTYP,INTVAL,FLTVAL,STRVAL,CHRVAL,USICHR
	INTEGER*2 TYPNUL,TYPEOL,TYPEL,TYPINT,TYPFLT,TYPNAM,TYPSPC
	INTEGER*2 TLU,CLPEFN,NXTCHR,TOKLEN,TOKTYP,INTVAL
	LOGICAL*1 LINE(82),STRVAL(82),CHRVAL,USICHR
	LOGICAL CNTLZ,TRACE
	REAL FLTVAL
C BEGIN
	CALL TOKEN
	IF(TOKTYP.EQ.TYPE)RETURN
	IF(TOKTYP.EQ.TYPEOL)GO TO 1010
1000	CALL SYNERR
	CALL PLINE('ILLEGAL VALUE')
1010	CALL PROMPT(PMTSTR)
	CALL TOKEN
	IF(TOKTYP.NE.TYPE)GO TO 1010
	END