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
program setepsdriver
use seteps_mod
use oscillator_mod
use oscillatorType_mod
implicit none
......
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
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment