Tweak msk144sim.f90

This commit is contained in:
Steve Franke 2018-09-20 10:10:29 -05:00
parent e1c74fd828
commit 981c0122ae

View File

@ -41,9 +41,9 @@ program msk144sim
write(*,*) 'Requested message: ',msg write(*,*) 'Requested message: ',msg
write(*,*) 'Message sent : ',msgsent write(*,*) 'Message sent : ',msgsent
write(*,*) 'Tones: ' write(*,*) 'Tones: '
write(*,'(72i1)') itone(1:72) write(*,'(1x,72i1)') itone(1:72)
write(*,'(72i1)') itone(72:144) write(*,'(1x,72i1)') itone(73:144)
write(*,*) itype
twopi=8.d0*atan(1.d0) twopi=8.d0*atan(1.d0)
nsym=144 nsym=144
nsps=6*nslow nsps=6*nslow