Commit 06fc7d02 authored by Henning Janssen's avatar Henning Janssen

Fix for last commit

parent a83f18f1
......@@ -44,6 +44,7 @@ MODULE m_crystalfield
!-Local Scalars
INTEGER i_gf,l,nType,jspin,m,mp,ie,i_hia,kkcut,i_u,isp
REAL tr,xiSOC
COMPLEX vso
!-Local Arrays
REAL :: h_loc(-lmaxU_const:lmaxU_const,-lmaxU_const:lmaxU_const,atoms%n_hia,input%jspins)
REAL :: ex(-lmaxU_const:lmaxU_const,-lmaxU_const:lmaxU_const)
......
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