13 December 2023 9:02:30.398 PM timer_cpu_time(): Fortran77 version. Test cpu_time(). CPU_TIME is a Fortran 95 built in routine which might be available to a F77 program. call cpu_time ( reading ) TEST03 Time the unvectorized loops: do i = 1, n y(i) = x(i) y(i) = PI * x(i) y(i) = sqrt ( x(i) ) y(i) = exp ( x(i) ) end do Data vectors will be of minimum size 4096 Data vectors will be of maximum size 4194304 Number of repetitions of the operation: 5 Timing Results: Vector Size Rep #1 Rep #2 Rep #3 Rep #4 Rep #5 4096 0.000021 0.000008 0.000007 0.000007 0.000007 8192 0.000028 0.000015 0.000013 0.000013 0.000014 16384 0.000060 0.000025 0.000057 0.000027 0.000031 32768 0.000107 0.000051 0.000086 0.000050 0.000050 65536 0.000247 0.000101 0.000107 0.000100 0.000126 131072 0.000473 0.000202 0.000223 0.000203 0.000208 262144 0.000882 0.000402 0.000407 0.000419 0.000443 524288 0.001930 0.000863 0.000815 0.000814 0.000867 1048576 0.003784 0.001807 0.001813 0.001642 0.001795 2097152 0.007053 0.003529 0.003539 0.003546 0.003631 4194304 0.014070 0.006944 0.007008 0.006758 0.006945 Timing Results: Vector Size Rep #1 Rep #2 Rep #3 Rep #4 Rep #5 4096 0.000007 0.000014 0.000007 0.000014 0.000007 8192 0.000015 0.000028 0.000014 0.000027 0.000015 16384 0.000032 0.000053 0.000053 0.000054 0.000028 32768 0.000056 0.000100 0.000064 0.000056 0.000055 65536 0.000110 0.000211 0.000137 0.000113 0.000114 131072 0.000222 0.000422 0.000226 0.000222 0.000223 262144 0.000463 0.000452 0.000452 0.000448 0.000448 524288 0.000904 0.000905 0.000923 0.000905 0.000955 1048576 0.001805 0.001805 0.001945 0.001815 0.001950 2097152 0.003838 0.003752 0.003773 0.003863 0.003794 4194304 0.007518 0.007386 0.007570 0.007350 0.007488 Timing Results: Vector Size Rep #1 Rep #2 Rep #3 Rep #4 Rep #5 4096 0.000012 0.000011 0.000012 0.000012 0.000012 8192 0.000023 0.000023 0.000023 0.000023 0.000023 16384 0.000045 0.000045 0.000045 0.000045 0.000045 32768 0.000090 0.000118 0.000113 0.000090 0.000090 65536 0.000180 0.000180 0.000181 0.000179 0.000186 131072 0.000359 0.000359 0.000384 0.000359 0.000379 262144 0.000719 0.000720 0.000728 0.000718 0.000720 524288 0.001455 0.001448 0.001456 0.001441 0.001452 1048576 0.002895 0.002893 0.002909 0.002869 0.002899 2097152 0.005767 0.005768 0.005768 0.005772 0.005768 4194304 0.011513 0.011516 0.011523 0.011515 0.011513 Timing Results: Vector Size Rep #1 Rep #2 Rep #3 Rep #4 Rep #5 4096 0.000040 0.000028 0.000027 0.000027 0.000028 8192 0.000059 0.000054 0.000054 0.000054 0.000054 16384 0.000108 0.000108 0.000107 0.000107 0.000107 32768 0.000214 0.000214 0.000214 0.000214 0.000213 65536 0.000428 0.000430 0.000428 0.000428 0.000428 131072 0.000855 0.000855 0.000859 0.000855 0.000855 262144 0.001711 0.001711 0.001714 0.001719 0.001710 524288 0.003424 0.003425 0.003421 0.003439 0.003427 1048576 0.006864 0.006872 0.006862 0.006871 0.006866 2097152 0.013725 0.013795 0.013712 0.013703 0.013706 4194304 0.027424 0.027392 0.027387 0.027387 0.027393 TEST04 Time the 2D nearest neighbor problem. Given X(2,N) and Y(2), find X(2,*) closest to Y(2). do i = 1, n if distance ( x(2,i), y ) < minimum so far x_min = x(2,i) end do Data vectors will be of minimum size 1024 Data vectors will be of maximum size 1048576 Number of repetitions of the operation: 5 Timing Results: Vector Size Rep #1 Rep #2 Rep #3 Rep #4 Rep #5 1024 0.000005 0.000004 0.000004 0.000003 0.000004 2048 0.000007 0.000006 0.000007 0.000006 0.000007 4096 0.000013 0.000012 0.000012 0.000012 0.000013 8192 0.000026 0.000024 0.000024 0.000023 0.000025 16384 0.000050 0.000048 0.000047 0.000048 0.000051 32768 0.000096 0.000092 0.000092 0.000093 0.000105 65536 0.000190 0.000183 0.000184 0.000184 0.000184 131072 0.000384 0.000368 0.000370 0.000369 0.000368 262144 0.000782 0.000744 0.000741 0.000744 0.000739 524288 0.001554 0.001474 0.001478 0.001471 0.001472 1048576 0.003048 0.002984 0.002963 0.003319 0.002960 timer_cpu_time(): Normal end of execution. 13 December 2023 9:02:32.387 PM