1) changes for FindMPI macro in source/unres/src_MD_DFA

[unres.git] / source / unres / src_MD-M / energy_p_new_barrier.F

diff --git a/source/unres/src_MD-M/energy_p_new_barrier.F b/source/unres/src_MD-M/energy_p_new_barrier.F
index 5f00861..fa6c1de 100644 (file)
--- a/source/unres/src_MD-M/energy_p_new_barrier.F
+++ b/source/unres/src_MD-M/energy_p_new_barrier.F
@@ -4087,7 +4087,6 @@ C 15/02/13 CC dynamic SSbond - additional check
           ehpb=ehpb+2*eij
          endif
 cd          write (iout,*) "eij",eij
-         endif
         else
 C Calculate the distance between the two points and its difference from the
 C target distance.