From cd14778f0db20991a53e5cba53c1b851b2b3aefb Mon Sep 17 00:00:00 2001 From: Steven Franke Date: Thu, 16 Feb 2023 09:11:07 -0600 Subject: [PATCH] Minor to hash22calc.f90 --- lib/77bit/hash22calc.f90 | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/lib/77bit/hash22calc.f90 b/lib/77bit/hash22calc.f90 index fbebeb512..500e1eea1 100644 --- a/lib/77bit/hash22calc.f90 +++ b/lib/77bit/hash22calc.f90 @@ -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 ' + print*,'Usage: hash22calc ' + 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 ' + goto 999 endif ! calculate the hash