mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-10-31 15:47:10 -04:00
12 lines
187 B
Fortran
12 lines
187 B
Fortran
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
|