dfa.F was missing form cmake configurations files

[unres.git] / source / unres / src_MD / MREMD.F

diff --git a/source/unres/src_MD/MREMD.F b/source/unres/src_MD/MREMD.F
index 9301122..cf6a411 100644 (file)
--- a/source/unres/src_MD/MREMD.F
+++ b/source/unres/src_MD/MREMD.F
@@ -799,12 +799,13 @@ ctime            call flush(iout)
 
 
           if (me.eq.king) then
-            write(iout,*) 
+           if(homol_nset.gt.1) write(iout,*) 
      &     'energy_c temperature iset energy_c(iset+1) energy_c(iset-1)'
             do i=1,nodes
                remd_t_bath(i)=remd_ene(n_ene+1,i)
                iremd_iset(i)=remd_ene(n_ene+2,i)
-               write(iout,'(i4,f10.3,f6.0,i3,2f10.3)') 
+               if(homol_nset.gt.1) 
+     &                write(iout,'(i4,f10.3,f6.0,i3,2f10.3)') 
      &                i,remd_ene(i_econstr,i),
      &                remd_ene(n_ene+1,i),iremd_iset(i),
      &                remd_ene(n_ene+3,i),remd_ene(n_ene+4,i)
@@ -1467,6 +1468,7 @@ c-----------------------------------------------------------------------
       include 'COMMON.CHAIN'
       include 'COMMON.SBRIDGE'
       include 'COMMON.INTERACT'
+      include 'COMMON.CONTROL'
                
       real d_restart1(3,2*maxres*maxprocs),r_d(3,2*maxres),
      &     d_restart2(3,2*maxres*maxprocs)
@@ -1867,6 +1869,7 @@ ctime        call flush(iout)
       include 'COMMON.CHAIN'
       include 'COMMON.SBRIDGE'
       include 'COMMON.INTERACT'
+      include 'COMMON.CONTROL'
       real d_restart1(3,2*maxres*maxprocs),r_d(3,2*maxres),
      &                 t5_restart1(5)
       integer*2 i_index