TREX/irpjast
1
0
Fork 0
mirror of https://github.com/TREX-CoE/irpjast.git synced 2024-12-22 04:14:54 +01:00
Code Issues Projects Releases Wiki Activity

Added new codelet

Browse Source
This commit is contained in:
Anthony Scemama 2021-03-18 10:27:40 +01:00
parent 9d355e5752
commit b15cd4dac3
1 changed files with 32 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
codelet_factor_een_blas2.irp.f Normal file
View File

@ -0,0 +1,32 @@
program codelet_factor_een_blas
implicit none
integer :: i
double precision :: ticks_0, ticks_1, cpu_0, cpu_1
integer*8 :: irp_imax
PROVIDE factor_een_blas tmp_c
call provide_factor_een_blas
double precision :: irp_rdtsc
irp_imax = max(1_8,100_8 * 125000000_8 /(int(nelec,8) * int(nelec,8) * int(nnuc,8) * ncord))
call cpu_time(cpu_0)
ticks_0 = irp_rdtsc()
do i=1,irp_imax
call bld_factor_een_blas
enddo
ticks_1 = irp_rdtsc()
call cpu_time(cpu_1)
print *, 'factor_een_blas'
print *, '-----------'
print *, 'Cycles:'
print *, (ticks_1-ticks_0)/dble(irp_imax)
print *, 'Seconds:'
print *, (cpu_1-cpu_0)/dble(irp_imax)
end