Time routine cputid.F modified by H.Kino.