Commit e86a76e6 authored by Matthias Redies's avatar Matthias Redies

merge develop

parents fa52c784 4b72360e
......@@ -667,7 +667,7 @@ MODULE m_types_setup
END TYPE t_wann
CONTAINS
function calc_nsp_atom(self) result(nsp)
pure function calc_nsp_atom(self) result(nsp)
implicit none
CLASS(t_atoms),INTENT(IN) :: self
INTEGER :: nsp
......
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