COMMON.NAMES

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