nowtime Function

public function nowtime(self) result(t)

Type Bound

timer

Arguments

Type IntentOptional Attributes Name
class(timer), intent(in) :: self

Return Value character(len=23)


Contents

Source Code

nowtime

Source Code

    character(23) function nowtime(self) result(t)
        class(timer), intent(in) :: self
        character(len=8) :: datstr
        character(len=10) :: timstr
        call date_and_time(datstr, timstr)
        t = datstr(1:4)//"-"//datstr(5:6)//"-"//datstr(7:8)//" "// &
            timstr(1:2)//":"//timstr(3:4)//":"//timstr(5:10)
    end function nowtime