	character*7 function datname()
	character*24 date_str
	call fdate(date_str)
	datname=date_str(9:10)//date_str(5:7)//date_str(23:24)
	if(datname(1:1).eq.' ')datname(1:1)='0'
	return
	end
