function remove_tag,st0,tag0=tag0
;removes the ".fits" (default) tag from a filename

st=st0
tag='.fits'
if(keyword_set(tag0)) then tag=tag0
i=strpos(st,tag)
if(i ne -1) then st=strmid(st,0,i)
return,st
end