1 MODULE time_cpu 2 3 ! cpu time/second 4 DOUBLE PRECISION :: CPUos 5 ! old cpu time and time for calculating CPUos 6 DOUBLE PRECISION :: CPU_NLOG, TIME_NLOG 7 ! Initial value of CPU time. 8 DOUBLE PRECISION :: CPU0 9 ! Time for IO 10 DOUBLE PRECISION :: CPU_IO = 0.0d0 11 12 ! Initial value of CPU time at the begin of MFIX, prior any I/O 13 DOUBLE PRECISION :: CPU00 14 DOUBLE PRECISION :: WALL0 15 16 ! Time at start of simulation 17 DOUBLE PRECISION :: TIME_START 18 ! Wall time at the beginning 19 DOUBLE PRECISION :: WALL_START 20 21 END MODULE time_cpu 22