real*8 function secs(t) real t secs = 0.0 return end