LCPQ/qp2
9
1
Fork 0
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-07-04 18:25:50 +02:00
Code Releases Activity

Fix gfortrab compilation

Browse Source
This commit is contained in:
Anthony Scemama 2021-05-31 08:28:00 +02:00
parent 32e2afca90
commit c4a91c78c9
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
src/utils/sort.irp.f
View File

@ -420,13 +420,16 @@ END_TEMPLATE
! Sort array x(isize). ! Sort array x(isize).
END_DOC END_DOC
integer,intent(in) :: isize integer,intent(in) :: isize
$type,intent(inout) :: x(isize) integer,intent(inout) :: x(isize)
integer, allocatable :: iorder integer, allocatable :: iorder(:)
allocate(iorder) integer :: i
iorder=0 allocate(iorder(isize))
call $Xradix_sort(x,iorder,isize,-1) do i=1,isize
iorder(i)=i
enddo
call iradix_sort(x,iorder,isize,-1)
deallocate(iorder) deallocate(iorder)
end subroutine $Xsort end subroutine isort_noidx
IRP_ENDIF IRP_ENDIF