From f850e2ff2bb06537c00647bfa2488a6ee7feb324 Mon Sep 17 00:00:00 2001
From: Thomas Applencourt <TApplencourt@users.noreply.github.com>
Date: Wed, 25 Jan 2017 20:23:45 -0600
Subject: [PATCH] Update dressing.irp.f

---
 plugins/mrcepa0/dressing.irp.f | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/plugins/mrcepa0/dressing.irp.f b/plugins/mrcepa0/dressing.irp.f
index c772e2aa..ea8efee2 100644
--- a/plugins/mrcepa0/dressing.irp.f
+++ b/plugins/mrcepa0/dressing.irp.f
@@ -691,7 +691,7 @@ subroutine getHP(a,h,p,Nint)
   end do lh
   h = deg
   !isInCassd = .true.
-end function
+end subroutine
 
 
  BEGIN_PROVIDER [ double precision, delta_mrcepa0_ij, (N_det_ref,N_det_non_ref,N_states) ]