#include <time.h>

/* Returns current time in Unixtime format */
int utime_( ut )
int *ut; 
{
    time_t t;
    time(&t);
    
    return (int)t;
}

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

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