time_stamp routine added