From a88ae7fc648221fe08e24f95f618f82514787a09 Mon Sep 17 00:00:00 2001
From: Gary Staebler <staeblergm@ornl.gov>
Date: Fri, 21 Jun 2024 14:35:56 -0400
Subject: [PATCH] Update tglf_LS.f90  removed common block for max_freq again

---
 tglf/src/tglf_LS.f90 | 3 ---
 1 file changed, 3 deletions(-)

diff --git a/tglf/src/tglf_LS.f90 b/tglf/src/tglf_LS.f90
index 2d4f237a7..88ca27f9a 100644
--- a/tglf/src/tglf_LS.f90
+++ b/tglf/src/tglf_LS.f90
@@ -42,9 +42,6 @@ SUBROUTINE tglf_LS
       logical :: is_sup_to_drift
       REAL :: sum_phi, sum_abs_phi
       REAL, DIMENSION(max_plot) :: even_function, odd_function
-      REAL :: max_freq
-      COMMON /block/ max_freq
-
 ! 
 !      cputime0=MPI_WTIME()
 !