Update

update logging after working on tests/SetEpsTestCasesFromScratch/f90/doeels.f90

tests/setepslog/doeels.f90

@@ -59,16 +59,16 @@ subroutine doeels (e0, theta, phia, phib, wmin, wmax, dw, comment, comment_size,
   double complex, allocatable :: eps(:)
   dimension table(nt)
 
+! **** log modification start
+  integer :: j1
+! **** log modification end
+
   external fun, qrat
 
   common / param / acoef, bcoef, ccoef, elleps, cospsi, sinpsi, tanpsi,  &
                    ru, um, dlimf, wn, user, rational
   common / mulayr / argmin, argmax, epsmac
 
-! **** log modification start
-  character (len = 1) tab
-! **** log modification end
-
   data aerr / 0.0d0 /, rerr / 1.0d-06 /, f / 0.0d0 /, f1 / 0.0d0 /
 
   if (debug) then
@@ -192,21 +192,24 @@ subroutine doeels (e0, theta, phia, phib, wmin, wmax, dw, comment, comment_size,
     endif ! c1 > 0.99d0
   endif ! rational
 
+! *** loop over the energy losses
+
+  if (debug) write(*, 110)
+
 ! **** log modification start
-  tab = char(9)
-  write (99, '(i5, a, i5)')                     neps, tab, layers
-  write (99, '(a)')                             mode
+  write (99, '(i5, i5)')         neps, layers
+  write (99, '(a)')              mode
+  j1 = 0
   do i = 1, neps
-    write (99, '(a, a, g15.7, a, i5)')          name(i), tab, epsinf(i), tab, nos(i)
+    write (99, '(a, g15.7, i5)') name(i), epsinf(i), nos(i)
     do j = 1, nos(i)
-      write (99, '(g15.7, a, g15.7, a, g15.7)') osc(1,j), tab, osc(2,j), tab, osc(3,j)
-  enddo
+      j1 = j1 + 1
+      write (99, '(3g15.7)')     osc(1,j1), osc(2,j1), osc(3,j1)
+    enddo
   enddo
+  write (99, *)
 ! **** log modification end
 
-! *** loop over the energy losses
-
-  if (debug) write(*, 110)
   do iw = 1, nw
     f0 = f1
     f1 = f

tests/setepslog/logFiles/seteps018.log

-    1	    1
+    1    1
 No-layers 
-SrTiO_3   	   5.160000    	    6
-   50.50000    	   16.00000    	  0.5000000E-01
-   174.2000    	   6.000000    	  0.5000000E-01
-   548.9000    	   10.00000    	  0.5000000E-01
-   171.5600    	   4.800000    	  0.5000000E-01
-   481.0000    	   5.350000    	  0.5000000E-01
-   805.7000    	   29.00000    	  0.5000000E-01
+SrTiO_3      5.160000        6
+   50.50000       16.00000      0.5000000E-01
+   174.2000       6.000000      0.5000000E-01
+   548.9000       10.00000      0.5000000E-01
+   171.5600       4.800000      0.5000000E-01
+   481.0000       5.350000      0.5000000E-01
+   805.7000       29.00000      0.5000000E-01
+
    50.00000       172.5927       279.3519    
    52.00000      -91.81513       131.4282    
    54.00000      -36.18157       36.90111    

tests/setepslog/logFiles/seteps019.log

-    1	    1
+    1    1
 No-layers 
-SrTiO_3   	   5.140000    	    6
-   93.98310    	   25.82720    	  0.5000000E-01
-   173.1750    	   8.421970    	  0.5000000E-01
-   543.3460    	   17.53850    	  0.5000000E-01
-   169.7880    	   4.900000    	  0.5000000E-01
-   474.6340    	   7.079770    	  0.5000000E-01
-   795.3850    	   28.35710    	  0.5000000E-01
+SrTiO_3      5.140000        6
+   93.98310       25.82720      0.5000000E-01
+   173.1750       8.421970      0.5000000E-01
+   543.3460       17.53850      0.5000000E-01
+   169.7880       4.900000      0.5000000E-01
+   474.6340       7.079770      0.5000000E-01
+   795.3850       28.35710      0.5000000E-01
+
    50.00000       108.9792       1.775865    
    52.00000       110.3069       1.944440    
    54.00000       111.7744       2.135369