w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-05-29 04:42:28 -04:00
Code Issues Packages Projects Releases Wiki Activity

Remove stray comments.

Browse Source
This commit is contained in:
Joe Taylor 2020-03-30 13:52:37 -04:00
parent 38f11fee62
commit 380a05f94e
1 changed files with 0 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lib/77bit/packjt77.f90
View File

@ -1060,9 +1060,7 @@ subroutine pack77_06(nwords,w,i3,n3,c77)
npfx=36*10*(index(a2,w(1)(i1+1:i1+1))-1) + & npfx=36*10*(index(a2,w(1)(i1+1:i1+1))-1) + &
10*(index(a2,w(1)(i1+2:i1+2))-1) + index(a2,w(1)(i1+3:i1+3))-1 10*(index(a2,w(1)(i1+2:i1+2))-1) + index(a2,w(1)(i1+3:i1+3))-1
endif endif
! print*,'ccc2',npfx
npfx=npfx + nzzz npfx=npfx + nzzz
! print*,'ccc3',npfx
endif endif
i3=0 i3=0
n3=6 n3=6