	integer function ifnd_dot(name,nmax)
	character*(*) name
	nc=index(name,'.')
	if(nc.eq.0) nc=notbnk(name,nmax)+1
	ifnd_dot=nc
	return
	end
