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