common /names/ restyp(ntyp+1),onelet(ntyp+1)
      character*3 restyp
      character*1 onelet