! Sample timing routine double precision function mysecond(dummy) double precision dummy integer count, rate call system_clock(count,count_rate=rate) mysecond=count/real(rate,kind=kind(1d0)) end