!!-----------------------------------------------------------------------------
!!
        subroutine SYS_DATE(YEAR, MONTH, DAY) !!
!!      -------------------------------------
!!
!! get actual date
!!
        integer YEAR, MONTH, DAY !! 4-Digits year, month and day

        integer tarray(9)
        external time
        integer time

        call ltime(time(), tarray)
        day=tarray(4)
        month=tarray(5)+1   ! tarray(5): months since january (0-11)!
        year=tarray(6)+1900 ! tarray(6): years since 1900, no y2k problem
        end