LCPQ/qp2
9
1
Fork 0
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-12-21 11:03:29 +01: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).
END_DOC
integer,intent(in) :: isize
$type,intent(inout) :: x(isize)
integer, allocatable :: iorder
allocate(iorder)
iorder=0
call $Xradix_sort(x,iorder,isize,-1)
integer,intent(inout) :: x(isize)
integer, allocatable :: iorder(:)
integer :: i
allocate(iorder(isize))
do i=1,isize
iorder(i)=i
enddo
call iradix_sort(x,iorder,isize,-1)
deallocate(iorder)
end subroutine $Xsort
end subroutine isort_noidx
IRP_ENDIF