character*12 protname
      common /protnames/ protname(0:maxprot)