cheru

[root@node1 time]# vi main.f
  1       program time_print
  2
  3       integer time_start, time_end
  4       integer loop
  5
  6
  7       call system_clock(time_start)
  8
  9       do loop = 1, 10
 10            print *, 'test'
 11       enddo
 12
 13       call system_clock(time_end)
 14
 15       print *, 'test : ', time_end - time_start, ' clocks'
 16
 17       end

분할된 루프의 시간과 노드 간 데이터 주고 받는 시간을 측정하기 위해 system_clock 함수를 사용했다.