update
[unres.git] / source / wham / src-M / secondary.f
index 9c9bc7d..4088831 100644 (file)
@@ -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