Commit b52477d3 authored by Alexander Neukirchen's avatar Alexander Neukirchen

now really allowing density plots

parent e760f8e1
......@@ -811,22 +811,38 @@ CONTAINS
score = .FALSE.
IF (input%jspins.EQ.2) THEN
IF (noco%l_noco) THEN
!TODO: REMOVE
CALL timestart("Hallo, ich sollte hier nicht sein. 1")
CALL matrixplot(mpi,sym,stars,atoms,sphhar,vacuum,cell,input, &
noco,oneD,sliceplot,factor,denmat,score,denName)
!TODO: REMOVE
CALL timestop("Hallo, ich sollte hier nicht sein. 1")
ELSE
CALL vectorplot(stars,vacuum,atoms,sphhar,input,noco,oneD,cell,sym,denmat,sliceplot,score,denName)
END IF
ELSE
!TODO: REMOVE
CALL timestart("Hallo, ich sollte hier nicht sein. 2")
CALL savxsf(oneD,stars,vacuum,sphhar,atoms,input,sym,cell,sliceplot,noco,score,denName,denmat)
!TODO: REMOVE
CALL timestop("Hallo, ich sollte hier nicht sein. 2")
END IF
IF (plot_const.EQ.7) THEN
factor = 2.0
denName = 'vTot'
score = .FALSE.
IF (input%jspins.EQ.2) THEN
IF (noco%l_noco) THEN
CALL matrixplot(mpi,sym,stars,atoms,sphhar,vacuum,cell,input, &
noco,oneD,sliceplot,factor,denmat,score,denName)
ELSE
CALL vectorplot(stars,vacuum,atoms,sphhar,input,noco,oneD,cell,sym,denmat,sliceplot,score,denName)
END IF
ELSE
CALL savxsf(oneD,stars,vacuum,sphhar,atoms,input,sym,cell,sliceplot,noco,score,denName,denmat)
END IF
END IF
END SUBROUTINE procplot
......
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