Sorry, I forgot to add this file.

2018-07-30 17:56:09 -04:00 · 2018-07-30 17:56:09 -04:00 · 0235af4f77
parent 3af293f297
commit 0235af4f77
1 changed files with 11 additions and 0 deletions
--- a/lib/77bit/my_hash.f90
+++ 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