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