character*20 timstr,datstr timstr=' ' datstr=timstr call dater(datstr,timstr) print *,'timstr=',timstr print *,'datstr=',datstr stop END