character*2 qa       
      common
     $/cbkqa/ qa(nattot)