/*

                *******************************************
                **** Simulation of the function fdate_ ****
                *******************************************

                    Copyright 1996, Alessandro Pedretti

*/

#include "f2c.h"
#include "string.h"
#include "time.h"

int fdate_(char *Str, ftnlen Len)
{
	static char	*Versione = "$VER:MoPac 5.00 (19.5.96)";
	time_t		Ora;

	Ora = time(0);
	strcpy(Str,ctime(&Ora));
	return 0;
}