SUBROUTINE STRM0P(INPUT,ITYPE)
C..
C..	THIS ROUTINE TESTS FOR -,0,+ IN A STRING
C..
	BYTE INPUT(1),MINUS,IPLUS,IZERO
	DATA MINUS,IPLUS,IZERO/'-','+','0'/
	CALL STRLEN(INPUT,LEN)
	ITYPE=0
	IF(LEN.EQ.0) RETURN
	DO 1 I=1,LEN
	IF(INPUT(I).NE.IZERO) GO TO 2
1	CONTINUE
	RETURN
C..
C..	CHECK FOR + OR -
C..
2	ITYPE=-1
	IF(INPUT(I).EQ.MINUS) RETURN
	ITYPE=1
	RETURN
	END