w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-02-03 09:44:24 -05:00
Code Issues Packages Projects Releases Wiki Activity

Sorry, I forgot to add this file.

Browse Source
This commit is contained in:
Joe Taylor 2018-07-30 17:56:09 -04:00
parent 3af293f297
commit 0235af4f77
1 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lib/77bit/my_hash.f90 Normal file
View File

@ -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