rename files for making the structure more obvious

tests/seteps/Makefile

@@ -17,12 +17,12 @@ all: build-original/setepsdriver build-f77/setepsdriver build-f90/setepsdriver b
 build-f77/seteps.o:       ../../source/split-f77/seteps.f
 	$(FC) $(FFLAGS) -Wno-conversion -Wno-compare-reals -c -o $@ $<
 
-build-f90/seteps.o:       seteps-old.f90
+build-f90/seteps.o:       setepsdriver-f90-seteps.f90
 	$(FC) $(FFLAGS) -c -Jbuild-f90 -o $@ $<
-build-f90/seteps_mod.mod: seteps-old.f90
+build-f90/seteps_mod.mod: setepsdriver-f90-seteps.f90
 	$(FC) $(FFLAGS) -c -Jbuild-f90 -o build-f90/seteps.o $<
 
-build-f90-new/seteps.o:       ../../source/f90/seteps.f90
+build-f90-new/seteps.o:   ../../source/f90/seteps.f90
 	$(FC) $(FFLAGS) -c -Jbuild-f90-new -o $@ $<
 build-f90-new/seteps_mod.mod: ../../source/f90/seteps.f90
 	$(FC) $(FFLAGS) -c -Jbuild-f90-new -o build-f90/seteps.o $<
@@ -39,8 +39,8 @@ build-WFW/seteps.o:       $(wildcard ../../source/WFW\\ seteps/myEels20-seteps.f
 build-WFW/seteps_mod.mod: $(wildcard ../../source/WFW\\ seteps/myEels20-seteps.f90)
 	$(FC) $(FFLAGS) -c -Jbuild-WFW -o build-WFW/seteps.o '$(MYEELS20_SETEPS)'
 
-build-original/setepsdriver: setepsdriver-original.f90 seteps-original.for
-	$(FC) $(FFLAGS) -o $@ setepsdriver-original.f90 seteps-original.for
+build-original/setepsdriver: setepsdriver-original.f90 setepsdriver-original-seteps.for
+	$(FC) $(FFLAGS) -o $@ setepsdriver-original.f90 setepsdriver-original-seteps.for
 
 build-f77/setepsdriver: setepsdriver-f77.f90 build-f77/seteps.o
 	$(FC) $(FFLAGS) -o $@ $^
@@ -89,15 +89,17 @@ test: build-original/setepsdriver build-f90/setepsdriver build-f90-new/setepsdri
 		rm build-f90-new/setepsIn.txt ; \
 	done
 
-clean: cleanbuild cleanresults
+clean: buildclean resultsclean
 
-cleanbuild:
+buildclean:
+	rm -rf build-original/*
 	rm -rf build-f77/*
 	rm -rf build-f90/*
 	rm -rf build-f90-new/*
 	rm -rf build-WFW/*
 
-cleanresults:
+resultsclean:
+	rm -rf results-original/*
 	rm -rf results-f77/*
 	rm -rf results-f90/*
 	rm -rf results-f90-new-1/*

tests/seteps/seteps-old.f90 → tests/seteps/setepsdriver-f90-seteps.f90

@@ -77,7 +77,7 @@ subroutine seteps(neps, nos, osc, epsinf, wn, name, eps, layers, mode)
         if (osc(2, j) >= 0.0d0) then
           deno = 1.0d0 - deno
         endif
-        if (cdabs(deno) == 0.0d0) then ! replace 0 by machine epsilon
+        if (cdabs(deno) < epsilon(1.0d0) / 2) then ! replace 0 by machine epsilon
           ! if deno is always > 0 then this would do it: 
           ! deno = cdmax(deno, epsilon(1.0d0) / 2)
           deno = epsilon(1.0d0) / 2

tests/seteps/setepsdriver-original.f90

@@ -21,7 +21,7 @@ program setepsdriver
 
   write(*,*) 'setepsdriver-original start'
   
-  epsmac = epsilon(1.0d0)
+  epsmac = epsilon(1.0d0) / 2
 
   open(unit = 11, file = 'build-original/eelsin')
   read(11, *)