w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-06-15 13:02:25 -04:00
Code Issues Packages Projects Releases Wiki Activity

Minor to hash22calc.f90

Browse Source
This commit is contained in:
Steven Franke 2023-02-16 09:11:07 -06:00
parent 4416c21f1b
commit cd14778f0d
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lib/77bit/hash22calc.f90
View File

@ -11,7 +11,8 @@ program hash22calc
nargs=iargc() nargs=iargc()
if(nargs.ne.1) then if(nargs.ne.1) then
print*,'Given a valid callsign, print its 22-bit hash.' print*,'Given a valid callsign, print its 22-bit hash.'
print*,'Usage: hashcalc <callsign>' print*,'Usage: hash22calc <callsign>'
print*,' e.g. hash22calc W9ABC'
go to 999 go to 999
endif endif
call getarg(1,callsign) call getarg(1,callsign)
@ -27,8 +28,9 @@ program hash22calc
! check for a valid callsign ! check for a valid callsign
call chkcall(callsign,basecall,cok) call chkcall(callsign,basecall,cok)
if(.not.cok) then if(.not.cok) then
print*,'Invalid callsign' print*,'Invalid callsign'
goto 999 print*,'Usage: hash22calc <callsign>'
goto 999
endif endif
! calculate the hash ! calculate the hash