From 509f9703fa77fb036ff5cb953bedaa2ed07e9225 Mon Sep 17 00:00:00 2001 From: kamischi <karl-michael.schindler@web.de> Date: Wed, 12 Jun 2024 14:48:17 +0200 Subject: [PATCH] Update seteps.f90 clean and reorder --- source/f90/seteps.f90 | 9 +++------ 1 file changed, 3 insertions(+), 6 deletions(-) diff --git a/source/f90/seteps.f90 b/source/f90/seteps.f90 index 416d0cc..72fa34b 100644 --- a/source/f90/seteps.f90 +++ b/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 -- GitLab