Update seteps.f90

clean and reorder

source/f90/seteps.f90

@@ -11,7 +11,7 @@ subroutine seteps(neps, nos, osc, epsinf, wn, name, eps, layers, mode)
 ! * nos:            number of oscillators                          *
 ! * osc:            oscillator parameters, wTO, Q, lambda          *
 ! * epsinf:         epsilon at infinite frequency                  *
-! * wn:             frequencies                                    *
+! * wn:             frequency                                    *
 ! * name:           layer names                                    *
 ! * eps:            epsilon                                        *
 ! * layers:         number of layers                               *
@@ -22,14 +22,11 @@ subroutine seteps(neps, nos, osc, epsinf, wn, name, eps, layers, mode)
   implicit none
   integer, intent(in) :: neps
   integer, intent(in) :: nos(:)
-  double precision, intent(in) :: osc(:, :)
-  double precision, intent(in) :: epsinf(:)
-  double precision, intent(in) :: wn
+  double precision, intent(in) :: osc(:, :), epsinf(:), wn
   character (len=10), intent(in) :: name(:)
-  character (len=10), intent(in) :: mode
-
   double complex, intent(in out) :: eps(:)
   integer, intent(in) :: layers
+  character (len=10), intent(in) :: mode
 
   double precision :: x
   double complex :: deno, nomi