From d25e188dca95e7628b1a1384106ade7768682d37 Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Tue, 12 Jan 2021 11:28:46 -0500
Subject: [PATCH] Code cleanup.

---
 lib/q65_decode.f90 | 40 ++++++++++++++++++++--------------------
 1 file changed, 20 insertions(+), 20 deletions(-)

diff --git a/lib/q65_decode.f90 b/lib/q65_decode.f90
index f5ba6e26e..bba1eed69 100644
--- a/lib/q65_decode.f90
+++ b/lib/q65_decode.f90
@@ -1,27 +1,27 @@
 module q65_decode
 
-   type :: q65_decoder
-      procedure(q65_decode_callback), pointer :: callback
+  type :: q65_decoder
+     procedure(q65_decode_callback), pointer :: callback
    contains
-      procedure :: decode
-   end type q65_decoder
+     procedure :: decode
+  end type q65_decoder
 
-   abstract interface
-      subroutine q65_decode_callback (this,nutc,sync,nsnr,dt,freq,    &
-         decoded,nap,ntrperiod)
-         import q65_decoder
-         implicit none
-         class(q65_decoder), intent(inout) :: this
-         integer, intent(in) :: nutc
-         real, intent(in) :: sync
-         integer, intent(in) :: nsnr
-         real, intent(in) :: dt
-         real, intent(in) :: freq
-         character(len=37), intent(in) :: decoded
-         integer, intent(in) :: nap
-         integer, intent(in) :: ntrperiod
-      end subroutine q65_decode_callback
-   end interface
+  abstract interface
+     subroutine q65_decode_callback (this,nutc,sync,nsnr,dt,freq,    &
+          decoded,nap,ntrperiod)
+       import q65_decoder
+       implicit none
+       class(q65_decoder), intent(inout) :: this
+       integer, intent(in) :: nutc
+       real, intent(in) :: sync
+       integer, intent(in) :: nsnr
+       real, intent(in) :: dt
+       real, intent(in) :: freq
+       character(len=37), intent(in) :: decoded
+       integer, intent(in) :: nap
+       integer, intent(in) :: ntrperiod
+     end subroutine q65_decode_callback
+  end interface
 
 contains