cpu_dummy.f

来自「分子动力学模拟程序」· F 代码 · 共 11 行

	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