20250512 210349.230 timer_omp_get_wtime Fortran77 version Test omp_get_wtime(). omp_get_wtime ( ) is an OpenMP function. It returns elapsed wall clock time in seconds. Number of processors is 8 Number of threads requested = 8 TEST03 Time the following operations: y(1:n) = x(1:n) y(1:n) = PI * x(1:n) ) y(1:n) = sqrt ( x(1:n) ) y(1:n) = exp ( x(1:n) ) Data vectors will be of minimum size 4096 Data vectors will be of maximum size 524288 Number of repetitions of the operation: 5 Timing results: Vector Size Rep #1 Rep #2 Rep #3 Rep #4 Rep #5 4096 0.000013 0.000009 0.000009 0.000008 0.000008 8192 0.000023 0.000017 0.000017 0.000017 0.000016 16384 0.000044 0.000050 0.000034 0.000034 0.000033 32768 0.000087 0.000068 0.000069 0.000068 0.000066 65536 0.000173 0.000136 0.000155 0.000135 0.000133 131072 0.000352 0.000309 0.000271 0.000272 0.000265 262144 0.000699 0.000586 0.000549 0.000543 0.000584 524288 0.001406 0.001176 0.001162 0.001275 0.001097 Timing results: Vector Size Rep #1 Rep #2 Rep #3 Rep #4 Rep #5 4096 0.000009 0.000009 0.000009 0.000009 0.000009 8192 0.000018 0.000018 0.000017 0.000018 0.000018 16384 0.000035 0.000035 0.000035 0.000035 0.000036 32768 0.000070 0.000071 0.000071 0.000071 0.000072 65536 0.000141 0.000141 0.000141 0.000255 0.000145 131072 0.000283 0.000283 0.000276 0.000283 0.000286 262144 0.000567 0.000555 0.000603 0.000637 0.000607 524288 0.001218 0.001139 0.001176 0.001178 0.001211 Timing results: Vector Size Rep #1 Rep #2 Rep #3 Rep #4 Rep #5 4096 0.000008 0.000007 0.000007 0.000008 0.000008 8192 0.000028 0.000015 0.000015 0.000016 0.000015 16384 0.000030 0.000048 0.000030 0.000030 0.000030 32768 0.000059 0.000091 0.000062 0.000061 0.000058 65536 0.000116 0.000134 0.000121 0.000119 0.000118 131072 0.000239 0.000242 0.000241 0.000236 0.000367 262144 0.000486 0.000478 0.000474 0.000709 0.000487 524288 0.000981 0.001008 0.000961 0.000971 0.001112 Timing results: Vector Size Rep #1 Rep #2 Rep #3 Rep #4 Rep #5 4096 0.000053 0.000020 0.000021 0.000020 0.000021 8192 0.000074 0.000043 0.000044 0.000042 0.000042 16384 0.000139 0.000085 0.000084 0.000085 0.000123 32768 0.000167 0.000169 0.000167 0.000168 0.000168 65536 0.000371 0.000465 0.000329 0.000331 0.000372 131072 0.000676 0.000716 0.001041 0.000700 0.000702 262144 0.001377 0.001348 0.001379 0.001451 0.001735 524288 0.002689 0.002700 0.002949 0.003142 0.002707 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 524288 Number of repetitions of the operation: 5 Timing results: Vector Size Rep #1 Rep #2 Rep #3 Rep #4 Rep #5 1024 0.000003 0.000003 0.000003 0.000003 0.000003 2048 0.000005 0.000005 0.000005 0.000005 0.000005 4096 0.000024 0.000010 0.000010 0.000010 0.000010 8192 0.000039 0.000020 0.000020 0.000020 0.000020 16384 0.000054 0.000041 0.000040 0.000041 0.000041 32768 0.000131 0.000082 0.000079 0.000081 0.000082 65536 0.000258 0.000163 0.000158 0.000165 0.000163 131072 0.000478 0.000326 0.000319 0.000356 0.000328 262144 0.000687 0.000655 0.000678 0.000740 0.000654 524288 0.001312 0.001317 0.001698 0.001318 0.001381 TEST05 Time the matrix multiplication problem. Compute C = A * B where A is an L by M matrix, B is an M by N matrix, and so C is an L by N matrix. Minimum value of L = M = N = 4 Maximum value of L = M = N = 256 Number of repetitions of the operation: 5 Use nested DO loops for matrix multiplication. Timing results using nested DO loops: Vector Size Rep #1 Rep #2 Rep #3 Rep #4 Rep #5 4 0.000000 0.000000 0.000000 0.000000 0.000000 16 0.000015 0.000014 0.000014 0.000014 0.000014 64 0.000964 0.000930 0.000929 0.000929 0.000921 timer_omp_get_wtime(): Normal end of execution. 20250512 210349.460