From 81528e30def53fc8c34b8e4685950d6aa7f2460d Mon Sep 17 00:00:00 2001
From: kamischi <karl-michael.schindler@web.de>
Date: Fri, 2 Jun 2023 15:08:14 +0200
Subject: [PATCH] remove debugging write statements
---
source/f90/eels-boson.f90 | 4 ----
1 file changed, 4 deletions(-)
diff --git a/source/f90/eels-boson.f90 b/source/f90/eels-boson.f90
index ef05939..815e1a1 100644
--- a/source/f90/eels-boson.f90
+++ b/source/f90/eels-boson.f90
@@ -144,10 +144,6 @@ program eels_boson
nw = 1 + int((wmax - wmin) / dw)
allocate (wn_array(nw), f(nw))
- write (*,*) 'length: ', len(comment(1))
- write (*,*) 'length: ', comment(1)
- write (*,*) 'length: ', len(comment(2))
- write (*,*) 'length: ', comment(2)
call doeels(e0, theta, phia, phib, wmin, wmax, dw, comment, size(comment), &
layers, neps, nper, name, size(name), thick, epsinf, nos, osc, size(osc, 2),&
contrl, mode, wn_array, f, size(wn_array))
--
GitLab