Commit f8bbc629 authored by Matthias Redies's avatar Matthias Redies

introduce ifdefs for chase

parent ed8a3553
......@@ -193,7 +193,9 @@ CONTAINS
ENDIF !mpi%irank.eq.0
input%total = .TRUE.
#ifdef CPP_CHASE
CALL chase_distance(results%last_distance)
#endif
#ifdef CPP_MPI
CALL mpi_bc_potden(mpi,stars,sphhar,atoms,input,vacuum,oneD,noco,inDen)
......
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