X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fwham%2Fsrc-M%2Fsecondary.f;h=4088831451929787edf0dedad82d0bd32692a8bd;hb=34d3ad3987785642be58fb2f26557d3314215577;hp=9c9bc7d949d9c191d1c7f62ca31b143fa28e8c56;hpb=f690e8b70bab14132839afebf080d4a28363b226;p=unres.git

diff --git a/source/wham/src-M/secondary.f b/source/wham/src-M/secondary.f
index 9c9bc7d..4088831 100644
--- a/source/wham/src-M/secondary.f
+++ b/source/wham/src-M/secondary.f
@@ -656,13 +656,13 @@ cd            write (iout,*)'helix',nhelix,ii1,j1
         
       if (lprint) then
 
-        write(iout,*) 'UNRES seq:'
+        write(iout,*) 'UNRES seq:',anatemp
         do j=1,nbfrag
          write(iout,*) 'beta ',(bfrag(i,j),i=1,4)
         enddo
   
         do j=1,nhfrag
-         write(iout,*) 'helix ',(hfrag(i,j),i=1,2)
+         write(iout,*) 'helix ',(hfrag(i,j),i=1,2),anatemp
         enddo
 
       endif