1*59599516SKenneth E. Jansen real*8 function secs(t) 2*59599516SKenneth E. Jansen 3*59599516SKenneth E. Jansen real t 4*59599516SKenneth E. Jansen 5*59599516SKenneth E. Jansen secs = 0.0 6*59599516SKenneth E. Jansen 7*59599516SKenneth E. Jansen return 8*59599516SKenneth E. Jansen end 9