real function etime(tt) real tt(2) tt(1)=0.0 tt(2)=0.0 etime=0.0 return end