mirror of
https://github.com/TREX-CoE/irpjast.git
synced 2024-08-24 22:21:47 +02:00
Updated codelet for 3s
This commit is contained in:
parent
7fe8e3d214
commit
e923ab7c20
@ -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
7500
elec_coord.txt
File diff suppressed because it is too large
Load Diff
1500
geometry.txt
1500
geometry.txt
File diff suppressed because it is too large
Load Diff
43512
jast_coeffs.txt
43512
jast_coeffs.txt
File diff suppressed because it is too large
Load Diff
Loading…
Reference in New Issue
Block a user