From 47c64f3675a56b41beba93d7549a3abf44fcd6ec Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Fri, 19 Jan 2024 12:11:30 -0500
Subject: [PATCH] Clean up commented code.

---
 qmap/libqmap/q65c.f90 | 6 ------
 1 file changed, 6 deletions(-)

diff --git a/qmap/libqmap/q65c.f90 b/qmap/libqmap/q65c.f90
index 7832375a2..53e4ec50e 100644
--- a/qmap/libqmap/q65c.f90
+++ b/qmap/libqmap/q65c.f90
@@ -40,12 +40,6 @@ subroutine q65c
   npatience=1
   newdat=1                          !Always on ??
 
-!  if(ndiskdat.eq.0) then
-!     if(nhsym.eq.200 .and. n60.ne.30) go to 999
-!     if(nhsym.eq.330 .and. n60.ne.49) go to 999
-!     if(nhsym.eq.390 .and. n60.ne.58) go to 999
-!  endif
-
   if(ndiskdat.eq.1) then
      call chkstat(dd,nhsym,pdb)
      if((abs(pdb(1)-pdb(2)).gt.3.0 .and. pdb(1).gt.1.0) .or.  &