C!K\DBUGAU23  FODT5 .FT     18/04/84!
C ROUTINE TO CLEAR COMMON /ODTCOM/

	SUBROUTINE FODT5

	COMMON /ODTCOM/DUMMY(50)

	DO 1000 I = 1, 50
1000	DUMMY(I) = 0
	DUMMY(20) = '      '
	DUMMY(21) = '      '
	DUMMY(22) = '      '
	DUMMY(23) = '      '
	DUMMY(39) = '      '
	DUMMY(40) = '      '
	DUMMY(41) = '      '
