From 885691e170de1f44c082907b2eedbc06255a567b Mon Sep 17 00:00:00 2001 From: Brian Moran Date: Wed, 18 Sep 2024 19:21:35 -0700 Subject: [PATCH] leadings zeroes should be included --- lib/superfox/sfox_unpack.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lib/superfox/sfox_unpack.f90 b/lib/superfox/sfox_unpack.f90 index 903e92edf..a8c1cb7a7 100644 --- a/lib/superfox/sfox_unpack.f90 +++ b/lib/superfox/sfox_unpack.f90 @@ -118,7 +118,7 @@ subroutine sfox_unpack(nutc,x,nsnr,f0,dt0,foxcall,nsignature) 100 read(msgbits(307:326),'(b20)') nsignature ! print*,'i3:',i3 if (use_otp) then - write(ssignature,'(I0)') nsignature + write(ssignature,'(I6.6)') nsignature write(*,1100) nutc,nsnr,dt0,nint(f0),'$VERIFY$ '//trim(foxcall)//' '//trim(ssignature) endif return