diff --git a/source/f90/eels-boson.f90 b/source/f90/eels-boson.f90 index ef0593977f9f2b355f650b2989eeb79c2856d8f1..815e1a14bfebfa20c7343754b367a6f32d33db14 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))