;*************************************
pro extract_title,runid,title,nop=nop
;*************************************

;title is formed from runid by the 
;characters after the last /




nlen=strlen(runid)

title=runid
for i=1,nlen do begin
test=strmid(runid,nlen-i,nlen)
pos=strpos(test,'/')
if(pos gt -1) then begin
title=strmid(test,1,i+1)
goto,endi
endif
endfor

endi:
if(not keyword_set(nop)) then begin
print,runid
print,title
endif
return
end