From 981c0122ae399111ce9286a8d0277babaebe8235 Mon Sep 17 00:00:00 2001 From: Steve Franke Date: Thu, 20 Sep 2018 10:10:29 -0500 Subject: [PATCH] Tweak msk144sim.f90 --- lib/msk144sim.f90 | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lib/msk144sim.f90 b/lib/msk144sim.f90 index 0bc64764f..fe2959cea 100644 --- a/lib/msk144sim.f90 +++ b/lib/msk144sim.f90 @@ -41,9 +41,9 @@ program msk144sim write(*,*) 'Requested message: ',msg write(*,*) 'Message sent : ',msgsent write(*,*) 'Tones: ' - write(*,'(72i1)') itone(1:72) - write(*,'(72i1)') itone(72:144) - write(*,*) itype + write(*,'(1x,72i1)') itone(1:72) + write(*,'(1x,72i1)') itone(73:144) + twopi=8.d0*atan(1.d0) nsym=144 nsps=6*nslow