source/cluster/wham/src-M/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