Skip to content
Snippets Groups Projects
Commit 81cc3c4a authored by Karl-Michael Schindler's avatar Karl-Michael Schindler
Browse files

Fix module name

parent 871bd72f
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
tests/seteps/setepsdriver-f90-new-1.f90
+ 1
− 1
View file @ 81cc3c4a
program setepsdriver program setepsdriver
use seteps_mod use seteps_mod
use oscillator_mod use oscillatorType_mod
implicit none implicit none
......
tests/seteps/setepsdriver-f90-new-2.f90
+ 2
− 2
View file @ 81cc3c4a
program setepsdriver program setepsdriver
use seteps_mod use seteps_mod
use oscillator_mod use oscillatorType_mod
implicit none implicit none
...@@ -84,7 +84,7 @@ program setepsdriver ...@@ -84,7 +84,7 @@ program setepsdriver
write (12, '(30("(", g16.8, ",", g16.8, ") "))') (eps(j), j = 1, layers) write (12, '(30("(", g16.8, ",", g16.8, ") "))') (eps(j), j = 1, layers)
do j = 1, layers do j = 1, layers
if (abs((eps(j) - epsReference(j, i))/(eps(j) + epsReference(j, i))) > 1e-5) then 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. testresult = .false.
endif endif
enddo enddo
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment