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

Updated codelet for 3s

Browse Source
This commit is contained in:
Anthony Scemama 2021-03-10 21:45:52 +01:00
parent 7fe8e3d214
commit e923ab7c20
4 changed files with 35009 additions and 17507 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
codelet_factor_een_blas.irp.f
View File

@ -3,7 +3,7 @@ program codelet_factor_een_blas
implicit none implicit none
integer :: i integer :: i
double precision :: ticks_0, ticks_1, cpu_0, cpu_1 double precision :: ticks_0, ticks_1, cpu_0, cpu_1
integer, parameter :: irp_imax = 100 integer*8 :: irp_imax
PROVIDE factor_een_blas tmp_c PROVIDE factor_een_blas tmp_c
@ -12,6 +12,8 @@ program codelet_factor_een_blas
double precision :: irp_rdtsc double precision :: irp_rdtsc
irp_imax = max(1_8,20_8 * 125000000_8 /(int(nelec,8) * int(nelec,8) * int(nnuc,8) * ncord))
call cpu_time(cpu_0) call cpu_time(cpu_0)
ticks_0 = irp_rdtsc() ticks_0 = irp_rdtsc()
do i=1,irp_imax do i=1,irp_imax

7500
elec_coord.txt
View File

File diff suppressed because it is too large Load Diff

1500
geometry.txt
View File

File diff suppressed because it is too large Load Diff

43512
jast_coeffs.txt
View File

File diff suppressed because it is too large Load Diff