timestamp Subroutine

public subroutine timestamp(unit)

Arguments

Type IntentOptional Attributes Name
integer, optional :: unit

Calls

proc~~timestamp~~CallsGraph proc~timestamp timestamp proc~print_date print_date proc~timestamp->proc~print_date

Source Code

  subroutine timestamp(unit)
    integer,optional        :: unit
    integer                 :: unit_
    integer(4),dimension(8) :: data
    unit_=6;if(present(unit))unit_=unit
    call date_and_time(values=data)
    call print_date(data,unit_)
  end subroutine timestamp