source/wham/src-restraints-PM/cartprint.f

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