master_time_m Module

  1. master_time.f90
  2. master_time_m

Contents

Functions

Subroutines


Functions

public function time_stamp(time) result(t)

Get the current date or time and date

Arguments

TypeIntentOptionalAttributesName
logical, optional :: time

If time is requested

Return Value character,allocatable

public pure function is_leap(year)

Check if the year is a leap year

Arguments

TypeIntentOptionalAttributesName
integer, intent(in) :: year

The year to check

Return Value logical


Subroutines

public subroutine tic()

Start the timer

Arguments

None

public subroutine toc(t)

Stop the timer and return the time in seconds

Arguments

TypeIntentOptionalAttributesName
integer, intent(out), optional :: t

time in seconds

public subroutine time_print(time)

Print the current time and date

Arguments

TypeIntentOptionalAttributesName
logical, optional :: time

If time is requested