SetMonth Subroutine

public subroutine SetMonth(month, time)

Set the month of the datetime represented by this instance

Arguments

Type IntentOptional Attributes Name
integer(kind=short), intent(in) :: month
type(DateTime), intent(out) :: time

Source Code

SUBROUTINE  SetMonth &
!
(month, time)

IMPLICIT NONE

! Arguments with intent(in):
INTEGER (KIND = short), INTENT(IN) :: month

! Arguments with intent(out):
TYPE (DateTime), INTENT(OUT) :: time

!------------end of declaration------------------------------------------------

time % month = month

CALL DateCheck (time)

END SUBROUTINE SetMonth