Merge branch 'homology' of mmka.chem.univ.gda.pl:unres into homology
[unres.git] / source / unres / src_CSA / cartprint.f
1       subroutine cartprint
2       implicit real*8 (a-h,o-z)
3       include 'DIMENSIONS'
4       include 'COMMON.CHAIN'
5       include 'COMMON.INTERACT'
6       include 'COMMON.NAMES'
7       include 'COMMON.IOUNITS'
8       write (iout,100)
9       do i=1,nres
10         write (iout,110) restyp(itype(i)),i,c(1,i),c(2,i),
11      &    c(3,i),c(1,nres+i),c(2,nres+i),c(3,nres+i)
12       enddo
13   100 format (//'              alpha-carbon coordinates       ',
14      &          '     centroid coordinates'/
15      1          '       ', 6X,'X',11X,'Y',11X,'Z',
16      &                          10X,'X',11X,'Y',11X,'Z')
17   110 format (a,'(',i3,')',6f12.5)
18       return
19       end