subroutine addext(fileroot,extension,filename)

	character*(*) fileroot, extension, filename
	character*1 delimiter

	delimiter = '.'

	lroot = length(fileroot)
	lext = length(extension)

	filename = fileroot(1:lroot)//delimiter//extension(1:lext)

	return
	end