Real*8 TM_wallClockTime
CALL TIMER_GET_TIME(TM_userTime,TM_systemTime,TM_wallClockTime)
tm=int( TM_wallClockTime )
ms=TM_wallClockTime-int( TM_wallClockTime )
tins=TM_wallClockTime