কখনও কখনও কোডটি অপ্টিমাইজ করার সময় কোডটির কিছু অংশের সময় প্রয়োজন হয়, আমি নিম্নলিখিতগুলি বছরের পর বছর ধরে ব্যবহার করে আসছি তবে ভাবছিলাম যে এটি করার কোনও সহজ / আরও ভাল উপায় আছে কিনা?
call system_clock(count_rate=clock_rate) !Find the time rate
call system_clock(count=clock_start) !Start Timer
call do_something_subroutine !This is what gets timed
call system_clock(count=clock_stop) ! Stop Timer
e_time = real(clock_stop-clock_start)/real(clock_rate)
উত্তর:
এটি করার আরও কয়েকটি উপায় রয়েছে যার মধ্যে সুবিধাগুলি এবং ঘাটতি রয়েছে:
আমার ব্যক্তিগত সুপারিশটি এমপিআই_ডব্লিউটিটাইম হবে, আপনি জানেন যে এমপিআই যেখানে আছে সেখানে এটি ভালভাবে কাজ করবে। এখানে দ্রুত অনুসন্ধানের একটি উদাহরণ :
include 'mpif.h'
DOUBLE PRECISION :: start, end
start = MPI_Wtime()
! code to be timed
end = MPI_Wtime()
write(*,*) 'That took ',end-start,' seconds'
আপনি যদি জিএনইউ সংকলক ব্যবহার করেন তবে জিআরফুফটি দেখুন ।
সংক্ষেপে, আপনি আপনার সংকলকটিতে -g পতাকা যুক্ত করবেন, এরকম:
g77 -g -pg -0 myprogram myprogram.F
তারপরে, আউটপুটটি চালান, এবং gmon.out নামে একটি ফাইল আপনার ডিরেক্টরিতে প্রদর্শিত হবে। তারপরে, কল করুন
gprof --line myprogram gmon.out
এটি একটি লাইন বাই লাইন সিপিইউ সময় প্রোফাইল দেবে।
-pg, -g(এছাড়াও আকর্ষণীয়, কিন্তু প্রয়োজন হয় না) ডিবাগ চিহ্ন জন্য
আইসিউরেস 1 দ্বারা উল্লিখিত প্রোফাইলিং সেরা is আপনি উপরের কিছুটা সরলও করতে পারেন ...
use utils
...
call tic()
! Section to be timed
call toc()
...
call tic()
! Section to be timed
call toc()
...
যেখানে ইউটিউস মডিউল রয়েছে ...
real(8) :: t1,t2
...
subroutine tic()
implicit none
call cpu_time(t1)
end subroutine tic
subroutine toc()
implicit none
call cpu_time(t2)
! if (rank==0) print*,"Time Taken -->", real(t2-t1)
print*,"Time Taken -->", real(t2-t1)
end subroutine toc
আপনার যদি এ জাতীয় অনেকগুলি বিভাগ থাকে তবে একটি স্ট্রিং পাস করুন, উদাহরণস্বরূপ, "সেকশন_আইডি" টোকটিতে যাতে এটি সময়ের সাথে আইডি / নামটি প্রিন্ট করে।
t1এবং t2বিশ্বব্যাপী, বরং ক্ষণস্থায়ী t1উভয় কর্ম করার জন্য একটি প্যারামিটার হিসাবে, একাধিক টাইমার জন্য অনুমতি দেয়। আপনি কিছু সময় মুদ্রণ না করে কেবল সময়টি ফিরিয়ে দিতে পারেন।