From c4a91c78c9011de18ae5d866b70693981b5485ed Mon Sep 17 00:00:00 2001
From: Anthony Scemama <scemama@irsamc.ups-tlse.fr>
Date: Mon, 31 May 2021 08:28:00 +0200
Subject: [PATCH] Fix gfortrab compilation

---
 src/utils/sort.irp.f | 15 +++++++++------
 1 file changed, 9 insertions(+), 6 deletions(-)

diff --git a/src/utils/sort.irp.f b/src/utils/sort.irp.f
index be58e7a5..b4e30db4 100644
--- a/src/utils/sort.irp.f
+++ b/src/utils/sort.irp.f
@@ -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