        SUBROUTINE NUMSTR(NVAL,STRNG)
	IMPLICIT NONE
	INTEGER NVAL,I,J,ICHAR
        CHARACTER*8 BSTRNG
	CHARACTER*1 TSTRNG(8),STRNG(8),BNULL
	EQUIVALENCE (BSTRNG,TSTRNG(1))
	DATA BNULL /0/
C
C
	WRITE(BSTRNG,100) NVAL
100	FORMAT(I8)
C
	I=1
	J=1
10	IF(ICHAR(TSTRNG(I)).EQ.32)GO TO 20
	STRNG(J)=TSTRNG(I)
	J=J+1
20	I=I+1
	IF(I.LE.8) GO TO 10
	DO 30 I = J,8
	STRNG(I)=BNULL
30	CONTINUE
        RETURN
        END
