diff --git a/tests/SetEpsTestCasesFromScratch/f77/eels.for b/tests/SetEpsTestCasesFromScratch/f77/eels.for index 768825cb831b12aad6368388adb7ebaf3656f791..68f034e652141cbd15c61098a5b98c230186bd07 100644 --- a/tests/SetEpsTestCasesFromScratch/f77/eels.for +++ b/tests/SetEpsTestCasesFromScratch/f77/eels.for @@ -194,11 +194,12 @@ C ABTI0209 C **** log modification start write (99, '(i5, i5)') neps, layers - write (99, '(a)') mode + j1 = 0 do i = 1, neps write (99, '(a, g15.7, i5)') name(i), epsinf(i), nos(i) do j = 1, nos(i) - write (99, '(3g15.7)') osc(1,j), osc(2,j), osc(3,j) + j1 = j1 + 1 + write (99, '(3g15.7)') osc(1,j1), osc(2,j1), osc(3,j1) enddo enddo write (99, *) diff --git a/tests/SetEpsTestCasesFromScratch/f77/epsLog/seteps001.log b/tests/SetEpsTestCasesFromScratch/f77/epsLog/seteps001.log index cdd1cfa4e76e9347f7b76b7104d26940d549e9d9..4ea7b7d80f96207243846d8c15604b23b1ec1c5e 100644 Binary files a/tests/SetEpsTestCasesFromScratch/f77/epsLog/seteps001.log and b/tests/SetEpsTestCasesFromScratch/f77/epsLog/seteps001.log differ diff --git a/tests/SetEpsTestCasesFromScratch/f77/epsLog/seteps004.log b/tests/SetEpsTestCasesFromScratch/f77/epsLog/seteps004.log index a851395f53c8fb965813dff69a69c879f8039f6a..9a2086c03c5f9952f0a33b7d3bddf38996b0fd6c 100644 Binary files a/tests/SetEpsTestCasesFromScratch/f77/epsLog/seteps004.log and b/tests/SetEpsTestCasesFromScratch/f77/epsLog/seteps004.log differ diff --git a/tests/SetEpsTestCasesFromScratch/f77/epsLog/seteps006.log b/tests/SetEpsTestCasesFromScratch/f77/epsLog/seteps006.log index 58cff9d956f25913fa66096d764d8464719edfb9..510e58cf06928728d043a78790b01b7c31a58540 100644 Binary files a/tests/SetEpsTestCasesFromScratch/f77/epsLog/seteps006.log and b/tests/SetEpsTestCasesFromScratch/f77/epsLog/seteps006.log differ diff --git a/tests/SetEpsTestCasesFromScratch/f90/doeels.f90 b/tests/SetEpsTestCasesFromScratch/f90/doeels.f90 index 972e962842154d1157f35bba8928a77eebb10859..4ba1d8f7590fafd4fc3067eb8fbc449c1b018f01 100644 --- a/tests/SetEpsTestCasesFromScratch/f90/doeels.f90 +++ b/tests/SetEpsTestCasesFromScratch/f90/doeels.f90 @@ -63,7 +63,7 @@ subroutine doeels (e0, theta, phia, phib, wmin, wmax, dw, comment, comment_size, double complex, allocatable :: eps(:) ! **** log modification start - integer :: j + integer :: j, j1 ! **** log modification end external fun, qrat @@ -196,10 +196,12 @@ subroutine doeels (e0, theta, phia, phib, wmin, wmax, dw, comment, comment_size, ! **** log modification start write (99, '(i5, i5)') neps, layers write (99, '(a)') mode + j1 = 0 do i = 1, neps write (99, '(a, g15.7, i5)') name(i), epsinf(i), nos(i) do j = 1, nos(i) - write (99, '(3g15.7)') osc(1,j), osc(2,j), osc(3,j) + j1 = j1 + 1 + write (99, '(3g15.7)') osc(1,j1), osc(2,j1), osc(3,j1) enddo enddo write (99, *) diff --git a/tests/SetEpsTestCasesFromScratch/f90/epsLog/seteps006.log b/tests/SetEpsTestCasesFromScratch/f90/epsLog/seteps006.log index f050380713a3a3608f92367fb8090e3595a5f56c..3a12d81be2fa9752c9c81daef9aafe3450c72f22 100644 --- a/tests/SetEpsTestCasesFromScratch/f90/epsLog/seteps006.log +++ b/tests/SetEpsTestCasesFromScratch/f90/epsLog/seteps006.log @@ -3,7 +3,7 @@ No-layers MnO 4.950000 1 269.0000 16.00000 0.5000000E-01 Platinum 8.900000 1 - 269.0000 16.00000 0.5000000E-01 + 185541.0 -1.000000 0.1200000 50.00000 21.52103 0.1595170 -60.54409 30923.34 52.00000 21.56943 0.1668695 -60.54407 29733.97 diff --git a/tests/SetEpsTestCasesFromScratch/original/eels.for b/tests/SetEpsTestCasesFromScratch/original/eels.for index 7c1b6c79b18e0ff93cef43d6bdae90be6c88ece7..7b198ce7b25dca81ce88e9d96f101734c2273e25 100644 --- a/tests/SetEpsTestCasesFromScratch/original/eels.for +++ b/tests/SetEpsTestCasesFromScratch/original/eels.for @@ -187,11 +187,12 @@ C ABTI0209 C **** log modification start write (99, '(i5, i5)') neps, layers - write (99, '(a)') mode + j1 = 0 do i = 1, neps write (99, '(a, g15.7, i5)') name, epsinf(i), nos(i) do j = 1, nos(i) - write (99, '(3g15.7)') osc(1,j), osc(2,j), osc(3,j) + j1 = j1 + 1 + write (99, '(3g15.7)') osc(1,j1), osc(2,j1), osc(3,j1) enddo enddo write (99, *) diff --git a/tests/SetEpsTestCasesFromScratch/original/epsLog/seteps001.log b/tests/SetEpsTestCasesFromScratch/original/epsLog/seteps001.log index cdd1cfa4e76e9347f7b76b7104d26940d549e9d9..4ea7b7d80f96207243846d8c15604b23b1ec1c5e 100644 Binary files a/tests/SetEpsTestCasesFromScratch/original/epsLog/seteps001.log and b/tests/SetEpsTestCasesFromScratch/original/epsLog/seteps001.log differ diff --git a/tests/SetEpsTestCasesFromScratch/original/epsLog/seteps004.log b/tests/SetEpsTestCasesFromScratch/original/epsLog/seteps004.log index a851395f53c8fb965813dff69a69c879f8039f6a..9a2086c03c5f9952f0a33b7d3bddf38996b0fd6c 100644 Binary files a/tests/SetEpsTestCasesFromScratch/original/epsLog/seteps004.log and b/tests/SetEpsTestCasesFromScratch/original/epsLog/seteps004.log differ diff --git a/tests/SetEpsTestCasesFromScratch/original/epsLog/seteps006.log b/tests/SetEpsTestCasesFromScratch/original/epsLog/seteps006.log index 0c7e6c145398f21132d6ca18a534ca37d77d79b1..1e2885381eff9e1b4e93330e2b39337091e84a3b 100644 Binary files a/tests/SetEpsTestCasesFromScratch/original/epsLog/seteps006.log and b/tests/SetEpsTestCasesFromScratch/original/epsLog/seteps006.log differ