THRIFT: Clean

PrincetonUniversity · Nov 25, 2024 · 64f7604 · 64f7604
1 parent a69b206
commit 64f7604
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/THRIFT/Sources/thrift_dkes.f90 b/THRIFT/Sources/thrift_dkes.f90
@@ -214,11 +214,11 @@ SUBROUTINE thrift_dkes(lscreen,iflag)
                      mpolb = min (abs(mpolb-1), mmax)
                   ELSE 
                      IF (ntorb > ntorbd) THEN
-                        WRITE (ioout, 45) ntorb, ntorbd
+                        ! WRITE (ioout, 45) ntorb, ntorbd
                         STOP ' ntorb > ntorbd in DKES input'
                      END IF
                      IF (mpolb < 2) THEN
-                        WRITE (ioout, 20) mpolb
+                        ! WRITE (ioout, 20) mpolb
                         STOP ' mpolb < 2 in DKES input'
                      ENDIF
                   END IF