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