double precision function g(t) implicit real*8(a-h,o-z) g = dsin(10.d0 * t) return end