Commit 09eca805 authored by Alexander Neukirchen's avatar Alexander Neukirchen

grep -r allfailsthistimepls

parent 68d63687
......@@ -837,15 +837,15 @@ CONTAINS
IF (input%jspins.EQ.2) THEN
IF (noco%l_noco) THEN
CALL matrixplot(mpi,sym,stars,atoms,sphhar,vacuum,cell,input, &
CALL matrixplot(potnorm,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)
CALL vectorplot(potnorm,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)
CALL savxsf(potnorm,oneD,stars,vacuum,sphhar,atoms,input,sym,cell,sliceplot,noco,score,denName,denmat)
END IF
......
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