diff --git a/tests/seteps/setepsdriver-f90-new-1.f90 b/tests/seteps/setepsdriver-f90-new-1.f90 index 1cf80f47e44c90f94831821a49eb78e2c0bd2c1e..915e825ada3d0c239c3046af35fd22d8223d6cca 100644 --- a/tests/seteps/setepsdriver-f90-new-1.f90 +++ b/tests/seteps/setepsdriver-f90-new-1.f90 @@ -1,7 +1,7 @@ program setepsdriver use seteps_mod - use oscillator_mod + use oscillatorType_mod implicit none diff --git a/tests/seteps/setepsdriver-f90-new-2.f90 b/tests/seteps/setepsdriver-f90-new-2.f90 index b228a92ad18920f63ebec2628efcb5cccf0bbe1c..ba002eb5a18480c7698cbf7b91083e9142135199 100644 --- a/tests/seteps/setepsdriver-f90-new-2.f90 +++ b/tests/seteps/setepsdriver-f90-new-2.f90 @@ -1,7 +1,7 @@ program setepsdriver use seteps_mod - use oscillator_mod + use oscillatorType_mod implicit none @@ -84,7 +84,7 @@ program setepsdriver write (12, '(30("(", g16.8, ",", g16.8, ") "))') (eps(j), j = 1, layers) do j = 1, layers if (abs((eps(j) - epsReference(j, i))/(eps(j) + epsReference(j, i))) > 1e-5) then -! write (*,*) 'wn: ', wn, 'eps: ', eps(j), 'epsReference: ', epsReference(j, i) + write (*,*) 'wn: ', wn, 'eps: ', eps(j), 'epsReference: ', epsReference(j, i) testresult = .false. endif enddo