cpu_dummy.f

分子动力学模拟程序

	real*8 function cputime( t )
*  Supply your counter of cpu time
*  The function should return cpu time from the beginning of the process
*  minus t
	real*8 t, r
*       cputime=(time_from_start)-t
	cputime = 1.
	end