X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;ds=sidebyside;f=source%2Funres%2Fenergy.f90;h=6bb718af0a69d38643551629213163eb64393cb5;hb=da7cb646f5dae1220a85ea1473affef174d32243;hp=e25c0984f77fda63cfc481bcae24aea3a1af1bcf;hpb=299e2c41124d3fa8adba7244716515a2cc160ed1;p=unres4.git

diff --git a/source/unres/energy.f90 b/source/unres/energy.f90
index e25c098..6bb718a 100644
--- a/source/unres/energy.f90
+++ b/source/unres/energy.f90
@@ -9051,12 +9051,12 @@
 #endif
 #ifdef MPI
       include 'mpif.h'
-!el#endif
+#endif
       real(kind=8),dimension(3,nres) :: gradbufc,gradbufx,gradbufc_sum,&
                    gloc_scbuf !(3,maxres)
 
       real(kind=8),dimension(4*nres) :: glocbuf !(4*maxres)
-#endif
+!#endif
 !el local variables
       integer :: i,j,k,ierror,ierr
       real(kind=8) :: gvdwc_norm,gvdwc_scp_norm,gelc_norm,gvdwpp_norm,&