SUBROUTINE	FROUND(IDIGIT,F)
c
c	Round F off to IDIGIT number of digits
c
	INTEGER*4 ITEST,JTEST
	DOUBLE PRECISION VALUE,SCALE
	IF(IDIGIT .GT. 6) RETURN
	IF( F .EQ. 0) RETURN
	VALUE	= ABS(F)
	SCALE	= LOG10(VALUE)
	IF(SCALE .LT. 0.) SCALE	= SCALE - 1.
	IEXP	= SCALE
	IEXP	= IEXP - IDIGIT
	SCALE	= 10.
	SCALE	= SCALE**IEXP
	ITEST	= VALUE/SCALE + .5
	JTEST	= 10
	JTEST	= JTEST**IDIGIT
	IF(ITEST .LT. JTEST)  GO TO 20
	ITEST	= ITEST/10
	SCALE	= SCALE*10.
20	CONTINUE
	IF( F .LT. 0) ITEST	= -ITEST
	F	= ITEST*SCALE
	END