C..   INDOC.FTN   BOHDEN K. CMAYLO   JUL 81
C..
C..   THIS ROUTINE CONVERTS WP FILE TO DP FILE AND ASSIGNS IT
C..
	SUBROUTINE INDOC(IN,NAME,FORDOC)
	BYTE TYPE(12),FORDOC(10),INPUT(80),IBLANK,NAME(80)
	DATA TYPE/'/','T','Y','P','E',':','D','O','C','!',2*' '/
	DATA IBLANK/' '/
	DO 1 INC=1,80
	IF(NAME(INC).EQ.IBLANK.OR.NAME(INC).EQ.0) GO TO 2
1	CONTINUE
C.. ERROR, NO FINISH OF NAME
	TYPE 3,IN,(NAME(I),I=1,20)
3	FORMAT('0*** ERROR INDOC *** UNIT=',I2,'  NAME=',20A1)
	RETURN
C.. DELETE OLD TEMP FILE FOR READING
2	IENC=22
	ENCODE(IENC,5,INPUT)(FORDOC(I),I=1,8)
5	FORMAT('PIP ',8A1,';*/DE/NM !')
	CALL XSPAWN(INPUT)
C.. ENCODE INTO DXF STATEMENT
	INC=INC-1
	IENC=21+INC+11
	ENCODE(IENC,4,INPUT)(FORDOC(I),I=1,8),(NAME(I),I=1,INC),
     1 (TYPE(I),I=1,11)
4	FORMAT('DXF ',8A1,'/TYPE:PM=',80A1)
	CALL XSPAWN(INPUT)
C.. ASSIGN DOCUMENT OUTPUT TO THE FORTRAN DOCUMENT
	CALL ASSIGN(IN,FORDOC)
	RETURN
	END