1*59599516SKenneth E. Jansen real*8 function tmr() 2*59599516SKenneth E. Jansen 3*59599516SKenneth E. Jansen real*8 second 4*59599516SKenneth E. Jansen 5*59599516SKenneth E. Jansenc tmr = second 6*59599516SKenneth E. Jansen tmr = 0 7*59599516SKenneth E. Jansen 8*59599516SKenneth E. Jansen return 9*59599516SKenneth E. Jansen end 10*59599516SKenneth E. Jansen 11*59599516SKenneth E. Jansen 12