Commit c0d2ac68 authored by Robin Hilgers's avatar Robin Hilgers

Removed unused variable again

parent 299b1dd7
......@@ -35,7 +35,7 @@ CONTAINS
COMPLEX, INTENT (IN) :: qa21(atoms%ntype)
! ..
! .. Local Scalars ..
INTEGER iri,i
INTEGER iri
REAL b_xavh,scale,b_con_outx,b_con_outy,mx,my,mz,&
& alphh,betah,mz_tmp,mx_mix,my_mix,mz_mix,absmag
REAL rho11,rho22, alphdiff
......
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