From 0235af4f77956cd4c7277596618b1e67a4345355 Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Mon, 30 Jul 2018 17:56:09 -0400
Subject: [PATCH] Sorry, I forgot to add this file.

---
 lib/77bit/my_hash.f90 | 11 +++++++++++
 1 file changed, 11 insertions(+)
 create mode 100644 lib/77bit/my_hash.f90

diff --git a/lib/77bit/my_hash.f90 b/lib/77bit/my_hash.f90
new file mode 100644
index 000000000..4e1a6c6c6
--- /dev/null
+++ b/lib/77bit/my_hash.f90
@@ -0,0 +1,11 @@
+subroutine my_hash(mycall)
+
+  use packjt77
+  character*(*) mycall
+  character*13 c13
+
+  c13=mycall//'          '
+  call save_hash_call(c13,n10,n12,n22)
+  
+  return
+end subroutine my_hash