From fcc7739cb95d92be4136afbb20dd0a01220f9cc9 Mon Sep 17 00:00:00 2001 From: Joe Taylor Date: Fri, 20 Mar 2020 10:11:08 -0400 Subject: [PATCH] Correct an error in decoder.f90, introduced yesterday. --- lib/decoder.f90 | 2 +- lib/ft8_decode.f90 | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/lib/decoder.f90 b/lib/decoder.f90 index d6ecc904a..6902c3a58 100644 --- a/lib/decoder.f90 +++ b/lib/decoder.f90 @@ -1,4 +1,4 @@ -subroutine multimode_decoder(ipc1,ss,id2,params,nfsample) +subroutine multimode_decoder(ss,id2,params,nfsample) !$ use omp_lib use prog_args diff --git a/lib/ft8_decode.f90 b/lib/ft8_decode.f90 index 6dca93e70..be75afff3 100644 --- a/lib/ft8_decode.f90 +++ b/lib/ft8_decode.f90 @@ -8,7 +8,7 @@ module ft8_decode integer n30fox(MAXFOX) integer n30z integer nfox - + type :: ft8_decoder procedure(ft8_decode_callback), pointer :: callback contains