Commit c9332a80 authored by Matthias Redies's avatar Matthias Redies

remove dead code

parent fe9e9e36
......@@ -58,8 +58,6 @@
INTEGER :: n,nsp,nt,jr
INTEGER :: i, j, idx, cnt
REAL :: divi
REAL, PARAMETER :: cut_ratio = 0.9
LOGICAL, allocatable :: cut_mask(:)
! ..
......@@ -143,16 +141,6 @@
CALL mt_from_grid(atoms,sphhar,n,input%jspins,v_xc,vTot%mt(:,0:,n,:))
CALL mt_from_grid(atoms,sphhar,n,input%jspins,v_x,vx%mt(:,0:,n,:))
! use updated vTot for exc calculation
cut_mask = [(.False., i=1,size(atoms%rmsh,dim=1)*nsp)]
idx = 1
do i = 1, floor(size(atoms%rmsh, dim=1)*cut_ratio)
do j = 1,nsp
cut_mask(idx) = .True.
idx = idx +1
enddo
enddo
IF(perform_MetaGGA) THEN
CALL mt_to_grid(xcpot, input%jspins, atoms, sphhar, EnergyDen%mt(:,0:,n,:), &
......
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