o,i found it add those line before call date_and_time(VALUES=values)
character(8) :: date
character(10) :: time
character(5) :: zone
call date_and_time(date,time,zone,values)
but i can't be true >..
