C LNAME      LENGTH OF NAME BEING DECIPHERED BY INPUT
C
      COMMON /LNAME/  LNAME