remove name.

this is not used in seteps

testprograms/NewSeteps/seteps.f90

 module seteps_mod
 contains
-subroutine seteps(neps, nos, oscType, osc, epsinf, wn, name, eps, layers)
+subroutine seteps(neps, nos, oscType, osc, epsinf, wn, eps, layers)
 
   use oscillator_mod
 
@@ -8,7 +8,6 @@ subroutine seteps(neps, nos, oscType, osc, epsinf, wn, name, eps, layers)
 
   integer, intent(in) :: neps, nos(:), oscType(:)
   double precision, intent(in) :: osc(:, :), epsinf(:), wn
-  character (len=10), intent(in) :: name(:)
   double complex, intent(in out) :: eps(:)
   integer, intent(in) :: layers
   
@@ -32,9 +31,9 @@ subroutine seteps(neps, nos, oscType, osc, epsinf, wn, name, eps, layers)
     end select
     write (*,'(4F15.7)') osc(1,i), osc(2,i), osc(3,i), osc(4,i)
   enddo
-  write (*,'(A)') 'Name, EpsInf:'
+  write (*,'(A)') 'EpsInf:'
   do i = 1, neps
-    write (*,'(A, F0.3)') name(i), epsinf(i)
+    write (*,'(F0.3)') epsinf(i)
   enddo
   write (*,*) 'layers: ', layers
   write (*,*) 'wavenumber: ', wn