Skip to content
Snippets Groups Projects
Commit 67127615 authored by kamischi's avatar kamischi
Browse files

doeels: remove unused variable.

parent e1a4880f
Branches
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
Showing
with 1 addition and 2 deletions
source/f90/doeels.f90
+ 1
− 2
View file @ 67127615
...@@ -28,7 +28,7 @@ subroutine doeels (e0, theta, phia, phib, wmin, wmax, dw, comment, comment_size, ...@@ -28,7 +28,7 @@ subroutine doeels (e0, theta, phia, phib, wmin, wmax, dw, comment, comment_size,
double precision, intent(in out) :: wn_array(wn_array_size), f_array(wn_array_size) double precision, intent(in out) :: wn_array(wn_array_size), f_array(wn_array_size)
logical :: rational, user, debug logical :: rational, user, debug
integer :: i, iw, lstart, neps, nofu, nout, nw, lmax integer :: i, iw, neps, nofu, nout, nw, lmax
double precision :: a, acoef, aerr, alpha, argmin, argmax, b, bcoef, beta, & double precision :: a, acoef, aerr, alpha, argmin, argmax, b, bcoef, beta, &
c1, c2, ccoef, cospsi, dlimf, dx, elleps, ener, epsmac, facru, f, f0, & c1, c2, ccoef, cospsi, dlimf, dx, elleps, ener, epsmac, facru, f, f0, &
f1, fpic, fun, pi, prefac, psia, psii, qrat, rerr, ru, sinpsi, t, & f1, fpic, fun, pi, prefac, psia, psii, qrat, rerr, ru, sinpsi, t, &
...@@ -77,7 +77,6 @@ subroutine doeels (e0, theta, phia, phib, wmin, wmax, dw, comment, comment_size, ...@@ -77,7 +77,6 @@ subroutine doeels (e0, theta, phia, phib, wmin, wmax, dw, comment, comment_size,
if (user) then if (user) then
if (layers == 1) rational = .true. if (layers == 1) rational = .true.
lstart = layers - nper + 1
if (contrl == 'image') then if (contrl == 'image') then
! *** image-charge screening factor ! *** image-charge screening factor
if (layers == 1 .and. neps == 2) then if (layers == 1 .and. neps == 2) then
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment