From a59f1e9576cb3dfc21caed56f258c15727e15125 Mon Sep 17 00:00:00 2001
From: Kevin Gasperich <kgasperich@gmail.com>
Date: Mon, 24 Feb 2020 11:34:07 -0600
Subject: [PATCH] fixed complex sort template

---
 src/utils/sort.irp.f | 10 ++++++++++
 1 file changed, 10 insertions(+)

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