LCPQ/quack
4
1
Fork 0
mirror of https://github.com/pfloos/quack synced 2024-06-26 15:12:17 +02:00
Code Releases Activity

modif in utils

Browse Source
This commit is contained in:
Antoine Marie 2023-03-14 14:12:43 +01:00
parent 7598446ed8
commit 535b6e2aa2
1 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
src/utils/utils.f90
View File

@ -531,3 +531,16 @@ subroutine CalcInv4(a,det)
enddo
end subroutine CalcInv4
subroutine wall_time(t)
implicit none
double precision, intent(out) :: t
integer*8 :: c
integer*8, save :: rate = 0
if (rate == 0) then
CALL SYSTEM_CLOCK(count_rate=rate)
endif
CALL SYSTEM_CLOCK(count=c)
t = dble(c)/dble(rate)
end subroutine wall_time