source/cluster/unres/src/cartprint.f

   1       subroutine cartprint
   2       include 'DIMENSIONS'
   3       include 'COMMON.CHAIN'
   4       include 'COMMON.INTERACT'
   5       include 'COMMON.NAMES'
   6       include 'COMMON.IOUNITS'
   7       write (iout,100)
   8       do i=1,nres
   9         write (iout,110) restyp(itype(i)),i,c(1,i),c(2,i),
  10      &    c(3,i),c(1,nres+i),c(2,nres+i),c(3,nres+i)
  11       enddo
  12   100 format (//'              alpha-carbon coordinates       ',
  13      &          '     centroid coordinates'/
  14      1          '       ', 6X,'X',11X,'Y',11X,'Z',
  15      &                          10X,'X',11X,'Y',11X,'Z')
  16   110 format (a,'(',i3,')',6f12.5)
  17       return
  18       end