7 October 2025 1:31:48.388 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.000019 0.000023 0.000009 0.000009 0.000009 8192 0.000026 0.000017 0.000017 0.000016 0.000017 16384 0.000050 0.000034 0.000034 0.000033 0.000033 32768 0.000100 0.000067 0.000067 0.000066 0.000066 65536 0.000202 0.000136 0.000133 0.000134 0.000133 131072 0.000405 0.000278 0.000271 0.000270 0.000268 262144 0.000839 0.000567 0.000546 0.000545 0.000541 524288 0.001763 0.001160 0.001116 0.001111 0.001107 1048576 0.003624 0.002357 0.002254 0.002253 0.002251 2097152 0.007003 0.004685 0.004866 0.004897 0.004655 4194304 0.013733 0.009273 0.009469 0.009178 0.009937 Timing Results: Vector Size Rep #1 Rep #2 Rep #3 Rep #4 Rep #5 4096 0.000009 0.000009 0.000009 0.000008 0.000009 8192 0.000018 0.000017 0.000017 0.000017 0.000018 16384 0.000034 0.000034 0.000034 0.000034 0.000034 32768 0.000090 0.000068 0.000068 0.000069 0.000069 65536 0.000137 0.000138 0.000136 0.000136 0.000136 131072 0.000321 0.000278 0.000290 0.000275 0.000274 262144 0.000675 0.000561 0.000557 0.000557 0.000553 524288 0.001196 0.001140 0.001141 0.001139 0.001170 1048576 0.002326 0.002311 0.002408 0.002374 0.002393 2097152 0.004780 0.004744 0.004723 0.004757 0.004751 4194304 0.009448 0.009664 0.009404 0.009434 0.009546 Timing Results: Vector Size Rep #1 Rep #2 Rep #3 Rep #4 Rep #5 4096 0.000008 0.000009 0.000008 0.000008 0.000008 8192 0.000017 0.000016 0.000017 0.000017 0.000016 16384 0.000033 0.000032 0.000032 0.000033 0.000031 32768 0.000065 0.000065 0.000065 0.000067 0.000079 65536 0.000129 0.000129 0.000131 0.000129 0.000130 131072 0.000260 0.000261 0.000262 0.000261 0.000264 262144 0.000527 0.000529 0.000561 0.000527 0.000537 524288 0.001085 0.001080 0.001079 0.001083 0.001095 1048576 0.002206 0.002205 0.002202 0.002319 0.002213 2097152 0.004678 0.004543 0.004526 0.005262 0.004568 4194304 0.008985 0.008983 0.009031 0.009037 0.009102 Timing Results: Vector Size Rep #1 Rep #2 Rep #3 Rep #4 Rep #5 4096 0.000043 0.000029 0.000029 0.000029 0.000029 8192 0.000057 0.000057 0.000057 0.000060 0.000057 16384 0.000115 0.000114 0.000135 0.000114 0.000114 32768 0.000228 0.000228 0.000228 0.000228 0.000229 65536 0.000456 0.000456 0.000458 0.000457 0.000459 131072 0.000917 0.000917 0.000916 0.000916 0.000913 262144 0.001872 0.001876 0.001837 0.001877 0.001835 524288 0.003712 0.003709 0.003707 0.003705 0.003715 1048576 0.007508 0.007461 0.007459 0.007464 0.007529 2097152 0.014988 0.015095 0.015035 0.014973 0.016251 4194304 0.030160 0.030115 0.030087 0.030722 0.030165 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.000003 0.000003 0.000004 0.000003 2048 0.000006 0.000007 0.000007 0.000006 0.000006 4096 0.000012 0.000012 0.000012 0.000013 0.000012 8192 0.000024 0.000024 0.000024 0.000023 0.000023 16384 0.000049 0.000047 0.000047 0.000050 0.000047 32768 0.000098 0.000094 0.000094 0.000093 0.000093 65536 0.000194 0.000187 0.000188 0.000186 0.000186 131072 0.000391 0.000370 0.000370 0.000371 0.000371 262144 0.000775 0.000744 0.000742 0.000743 0.000807 524288 0.001570 0.001498 0.001500 0.001498 0.001501 1048576 0.003188 0.003153 0.003137 0.003106 0.003097 timer_cpu_time(): Normal end of execution. 7 October 2025 1:31:50.085 PM