Someone

#include <time.h>

/* Returns current time in Unixtime format */
void utime_(int *i)
{
    time_t t;
    time(&t);
    
    *i = (int)t;
}

---------------------

PROGRAM UTBOX
    IMPLICIT NONE
    
    ! CHECKS CURRENT TIME AND STORES THE RESULT
    ! IN THE "VARIABLE" (INTEGER) IN UNIXTIME FORMAT
    !
    ! CALL UTIME( VARIABLE ) 
    EXTERNAL :: UTIME
    INTEGER :: UUTIME
    CALL UTIME(UUTIME)

    WRITE(*,*) UUTIME
END PROGRAM UTBOX