+++ /dev/null
- subroutine cartprint
- implicit real*8 (a-h,o-z)
- include 'DIMENSIONS'
- include 'COMMON.CHAIN'
- include 'COMMON.INTERACT'
- include 'COMMON.NAMES'
- include 'COMMON.IOUNITS'
- write (iout,100)
- do i=1,nres
- write (iout,110) restyp(itype(i)),i,c(1,i),c(2,i),
- & c(3,i),c(1,nres+i),c(2,nres+i),c(3,nres+i)
- enddo
- 100 format (//' alpha-carbon coordinates ',
- & ' centroid coordinates'/
- 1 ' ', 6X,'X',11X,'Y',11X,'Z',
- & 10X,'X',11X,'Y',11X,'Z')
- 110 format (a,'(',i3,')',6f12.5)
- return
- end