diff --git a/src/utils/sort.irp.f b/src/utils/sort.irp.f
index cf5e0038..ccde5752 100644
--- a/src/utils/sort.irp.f
+++ b/src/utils/sort.irp.f
@@ -382,6 +382,16 @@ BEGIN_TEMPLATE
 
  end subroutine insertion_$Xsort_big
 
+SUBST [ X, type ]
+   ; real ;;
+ d ; double precision ;;
+ i ; integer ;;
+ i8; integer*8 ;;
+ i2; integer*2 ;;
+END_TEMPLATE
+
+BEGIN_TEMPLATE
+
  subroutine $Xset_order_big(x,iorder,isize)
   implicit none
   BEGIN_DOC