source/xdrfpdb/src-M/nazwy.f

   1       block data nazwy
   2       implicit real*8 (a-h,o-z)
   3       include 'DIMENSIONS'
   4       include 'COMMON.NAMES'
   5       include 'COMMON.FFIELD'
   6       data restyp /
   7      &'CYS','MET','PHE','ILE','LEU','VAL','TRP','TYR','ALA','GLY','THR',
   8      &'SER','GLN','ASN','GLU','ASP','HIS','ARG','LYS','PRO','D'/
   9       data onelet /
  10      &'C','M','F','I','L','V','W','Y','A','G','T',
  11      &'S','Q','N','E','D','H','R','K','P','X'/
  12       end
  13