/*****************************************************************
      FORTRAN interface to get user-time
      should work on almost all UNIX systems
      WARNING: argument "wall" is a fake argument returning
               the same value as "cputim"
*****************************************************************/

#include <time.h>
#include <sys/time.h>
#include <stdio.h>

void vtime(cputim,wall)
double  *cputim,*wall;
{

	long lclock;
	lclock=clock();
	*cputim=((double)lclock)/CLOCKS_PER_SEC;
	*wall  =*cputim;
}