Commit a353e020 authored by Matthias Redies's avatar Matthias Redies

drop more intent(out)

parent c1e4a8ee
......@@ -453,7 +453,7 @@ CONTAINS
TYPE(t_cell), INTENT(IN) :: cell
TYPE(t_kpts), INTENT(IN) :: kpts
REAL, INTENT(OUT) :: divergence
REAL, INTENT(INOUT) :: divergence
INTEGER :: ix, iy, iz, sign, n
logical :: found
......
......@@ -25,7 +25,7 @@ contains
implicit none
real, intent(in) :: arg
real, intent(out) :: res
real, intent(inout) :: res
! For arguments smaller than 4 the series expansion is used
if (arg < series_laguerre) then
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment