- write (iout,'(a,3(3x,a5),5x,3(3x,a5))')
- & "Residue","X(CA)","Y(CA)","Z(CA)","X(SC)","Y(SC)","Z(SC)"
- do ires=1,nres
- write (iout,'(a3,1x,i3,3f8.3,5x,3f8.3)')
- & restyp(itype(ires)),ires,(c(j,ires),j=1,3),
- & (c(j,ires+nres),j=1,3)
- enddo
+c write (iout,'(a,3(3x,a5),5x,3(3x,a5))')
+c & "Residue","X(CA)","Y(CA)","Z(CA)","X(SC)","Y(SC)","Z(SC)"
+c do ires=1,nres
+c write (iout,'(a3,1x,i3,3f8.3,5x,3f8.3)')
+c & restyp(itype(ires)),ires,(c(j,ires),j=1,3),
+c & (c(j,ires+nres),j=1,3)
+c enddo