PROGRAM fdate
    IMPLICIT none

    INTEGER :: day, month, year
    CHARACTER(LEN = 10), DIMENSION(3) :: datestrs
    INTEGER, DIMENSION(8) :: datenums

    WRITE(*,*)  "Enter the current date and time (mm/dd/yyyy):"
    READ(*,*)  month, day, year

    WRITE(*,*)  month, day, year

    CALL DATE_AND_TIME(datestrs(1), datestrs(2), datestrs(3), datenums)
    day = datenums(3)
    month = datenums(2)
    year = datenums(1)

    WRITE(*,*)  month, day, year

END PROGRAM fdate