C DATATRIEVE INTERFACE FUNCTIONS
C DUMMY INITIAL VERSION
C GLENN EVERHART 1985
	SUBROUTINE DTRINI
C INITIALIZE DATATRIEVE
	RETURN
	END
	SUBROUTINE DTRFIN
C FINISH WITH DTR
	RETURN
	END
	SUBROUTINE DTRCMD(LINE)
	LOGICAL*1 LINE(80)
C DO COMMAND
	RETURN
	END
	SUBROUTINE DTRFCT(LINE,RETCD)
	INTEGER*2 RETCD
	LOGICAL*1 LINE(80)
	RETCD=1
C HANDLE *U DBXXXX FUNCTIONS. LINE ARRAY PASSED IN HERE
C STARTS AFTER THE "DB" SO WE CAN DECODE IT.
	RETURN
	END