w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-06-14 20:42: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()
if(nargs.ne.1) then
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
endif
call getarg(1,callsign)
@ -27,8 +28,9 @@ program hash22calc
! check for a valid callsign
call chkcall(callsign,basecall,cok)
if(.not.cok) then
print*,'Invalid callsign'
goto 999
print*,'Invalid callsign'
print*,'Usage: hash22calc <callsign>'
goto 999
endif
! calculate the hash