PTEROSOR/QuAcK
10
1
Fork 0
mirror of https://github.com/pfloos/quack synced 2024-12-22 12:23:42 +01:00
Code Releases Activity

int4->int8 in Yoshimine fct

Browse Source
This commit is contained in:
Abdallah Ammar 2024-12-10 15:37:15 +01:00
parent 995378de74
commit 671c6f4f12
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/utils/utils.f90
View File

@ -912,7 +912,7 @@ end
integer*8 function Yoshimine_4ind(a, b, c, d) integer*8 function Yoshimine_4ind(a, b, c, d)
implicit none implicit none
integer, intent(in) :: a, b, c, d integer*8, intent(in) :: a, b, c, d
integer*8, external :: Yoshimine_2ind integer*8, external :: Yoshimine_2ind
Yoshimine_4ind = Yoshimine_2ind(Yoshimine_2ind(a, b), & Yoshimine_4ind = Yoshimine_2ind(Yoshimine_2ind(a, b), &