From 23f45f0d4b4a0964a5171d1db7f10314279a24d6 Mon Sep 17 00:00:00 2001 From: Joe Taylor Date: Fri, 21 Sep 2018 11:13:01 -0400 Subject: [PATCH] Diagnostic write should include callsign hash vlues. --- lib/stdmsg.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lib/stdmsg.f90 b/lib/stdmsg.f90 index fec6c3396..cc50f5804 100644 --- a/lib/stdmsg.f90 +++ b/lib/stdmsg.f90 @@ -33,8 +33,8 @@ function stdmsg(msg0) !### ! rewind 82 ! do i=1,nzhash -! write(82,3082) i,nzhash,callsign(i) -!3082 format(2i5,2x,a13) +! write(82,3082) i,nzhash,callsign(i),ihash10(i),ihash12(i),ihash22(i) +!3082 format(2i5,2x,a13,3i10) ! enddo ! flush(82) !###