From 64f760455afaa84722bcbe66b1ef4a5ec674fb40 Mon Sep 17 00:00:00 2001 From: ajchcoelho Date: Mon, 25 Nov 2024 14:50:42 +0100 Subject: [PATCH] THRIFT: Clean --- THRIFT/Sources/thrift_dkes.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/THRIFT/Sources/thrift_dkes.f90 b/THRIFT/Sources/thrift_dkes.f90 index ef51cdfd..7378a571 100644 --- 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