diff --git a/tests/seteps/setepsdriver-WFW.f90 b/tests/seteps/setepsdriver-WFW.f90
index 32a3de77b0b5b0444a2010b83c1099d7ad77eea4..39cb2b9069d6066c710c65cce62ec1df86112017 100644
--- a/tests/seteps/setepsdriver-WFW.f90
+++ b/tests/seteps/setepsdriver-WFW.f90
@@ -16,11 +16,8 @@ program setepsdriver
   double precision, allocatable :: tmp_osc(:,:)
   
   integer :: i, j, k, l, noPoints
-  character (len = 1) tab
 
   write(*,*) 'setepsdriver-WFW start'
-  tab = char(9)
-  noPoints = 200
   
   open(unit = 11, file = 'build-WFW/eelsin')
   read(11, *)
@@ -72,7 +69,7 @@ program setepsdriver
   open(unit = 12, file = 'build-WFW/epsout')
   do i = 0, noPoints
       call seteps(nos, osc_size, osc, epsinf, wn, nLayer, eps)
-      write (12, '(30g15.7)') wn,  (eps(j), j = 1, nLayer)
+      write (12, '(30g15.7)') wn, (eps(j), j = 1, nLayer)
       wn = wn + dw
   end do
   close (unit = 12)
diff --git a/tests/seteps/setepsdriver-f77.f90 b/tests/seteps/setepsdriver-f77.f90
index 5a6e30eac99fc9e2f6c5fb985aecafc899d3bb81..3f58355dfe72f8b369eab01e394510abdac599ce 100644
--- a/tests/seteps/setepsdriver-f77.f90
+++ b/tests/seteps/setepsdriver-f77.f90
@@ -16,13 +16,10 @@ program setepsdriver
   character (len = 10) contrl, mode
   
   integer :: i, j, k, l, noPoints, ioStatus
-  character (len = 1) tab
 
   common /mulayr/ eps, thick, argmin, argmax, epsmac, layers, nper                                         
 
   write(*,*) 'setepsdriver-f77 start'
-  tab = char(9)
-  noPoints = 200
   
   epsmac = epsilon(1.0d0) / 2
 
@@ -67,7 +64,7 @@ program setepsdriver
   open(unit = 12, file = 'build-f77/epsout')
   do i = 0, noPoints
       call seteps(neps, nos, osc, jos, epsinf, wn, name)
-      write (12, '(30g15.7)') wn,  (eps(j), j = 1, neps)
+      write (12, '(30g15.7)') wn, (eps(j), j = 1, neps)
       wn = wn + dw
   end do
   close (unit = 12)
diff --git a/tests/seteps/setepsdriver-f90-new-1.f90 b/tests/seteps/setepsdriver-f90-new-1.f90
index add95cc82ad84f50ba542fcb1ca34ca1580bb991..2f11112c053399ec6bf12b3966eb9e2f22652304 100644
--- a/tests/seteps/setepsdriver-f90-new-1.f90
+++ b/tests/seteps/setepsdriver-f90-new-1.f90
@@ -60,7 +60,7 @@ program setepsdriver
         else if (j == 1) then
           old_size = size(osc, 2)
           allocate(tmp_osc(4, old_size + nos(l)))
-          tmp_osc(1:3, 1:old_size) = osc
+          tmp_osc(1:4, 1:old_size) = osc
           deallocate(osc)
           call move_alloc(tmp_osc, osc)
         endif
@@ -84,7 +84,7 @@ program setepsdriver
   open(unit = 12, file = 'build-f90-new/epsout')
   do i = 0, noPoints
     call seteps(layers, nos, oscType, osc, epsinf, wn, eps, layers)
-    write (12, '(f8.2, 30g16.8)') wn, (eps(j), j = 1, layers)
+    write (12, '(30g15.7)') wn, (eps(j), j = 1, neps)
     wn = wn + dwn
   end do
   close (unit = 12)
diff --git a/tests/seteps/setepsdriver-f90.f90 b/tests/seteps/setepsdriver-f90.f90
index 5ab59f2fa648e40a88b2276fa8e4566fe1aa586d..3eebc2aef1f7616a4148cdeebade246a9ad875f9 100644
--- a/tests/seteps/setepsdriver-f90.f90
+++ b/tests/seteps/setepsdriver-f90.f90
@@ -16,11 +16,8 @@ program setepsdriver
   double precision, allocatable :: tmp_osc(:,:)
   
   integer :: i, j, k, l, noPoints
-  character (len = 1) tab
 
   write(*,*) 'setepsdriver-f90 start'
-  tab = char(9)
-  noPoints = 200
   
   open(unit = 11, file = 'build-f90/eelsin')
   read(11, *)
@@ -70,7 +67,7 @@ program setepsdriver
   open(unit = 12, file = 'build-f90/epsout')
   do i = 0, noPoints
       call seteps(neps, nos, osc, epsinf, wn, name, eps, layers, mode)
-      write (12, '(30g15.7)') wn,  (eps(j), j = 1, neps)
+      write (12, '(30g15.7)') wn, (eps(j), j = 1, neps)
       wn = wn + dw
   end do
   close (unit = 12)