subroutine getroot(filename,fileroot)

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

	delimiter = '.'

	lenfile = length(filename)

	do i = lenfile,1,-1
	  if (filename(i:i) .eq. delimiter) then
	    fileroot = filename(1:i-1)
	    return
	  endif
	enddo

	write(6,*) ' getroot error:'
	write(6,*) '   no delimiter found in filename'
	return

	end