w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-11-04 16:31:17 -05:00
Code Issues Packages Projects Releases Wiki Activity

Remove unused variables.

Browse Source
This commit is contained in:
Steven Franke 2020-06-16 13:38:34 -05:00
parent 5dfb3c781b
commit 27e7b7b17b
2 changed files with 0 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lib/fst280/encode280_101.f90
View File

@ -1,15 +1,9 @@
subroutine encode280_101(message,codeword) subroutine encode280_101(message,codeword)
use, intrinsic :: iso_c_binding
use iso_c_binding, only: c_loc,c_size_t
use crc
integer, parameter:: N=280, K=101, M=N-K integer, parameter:: N=280, K=101, M=N-K
character*24 c24
integer*1 codeword(N) integer*1 codeword(N)
integer*1 gen(M,K) integer*1 gen(M,K)
integer*1 message(K) integer*1 message(K)
integer*1 pchecks(M) integer*1 pchecks(M)
integer*4 ncrc24
include "ldpc_280_101_generator.f90" include "ldpc_280_101_generator.f90"
logical first logical first
data first/.true./ data first/.true./

6
lib/fst280/encode280_74.f90
View File

@ -1,15 +1,9 @@
subroutine encode280_74(message,codeword) subroutine encode280_74(message,codeword)
use, intrinsic :: iso_c_binding
use iso_c_binding, only: c_loc,c_size_t
use crc
integer, parameter:: N=280, K=74, M=N-K integer, parameter:: N=280, K=74, M=N-K
character*24 c24
integer*1 codeword(N) integer*1 codeword(N)
integer*1 gen(M,K) integer*1 gen(M,K)
integer*1 message(K) integer*1 message(K)
integer*1 pchecks(M) integer*1 pchecks(M)
integer*4 ncrc24
include "ldpc_280_74_generator.f90" include "ldpc_280_74_generator.f90"
logical first logical first
data first/.true./ data first/.true./