Commit 4b72360e authored by Matthias Redies's avatar Matthias Redies

fix commit by making nsp() pure

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