c
c $Id: lalpha.f,v 1.1 1999/08/03 04:24:40 aai Exp $.
c
c{
      integer function lalpha(s)
      character*(*) s
c
c     Lalpha: Return the position of the last alpha character in a string.
c
c     Zero is returned if the string contains no letters.
c
c     Phillip A. Cheeseman, Purdue University Computing Center.
c
      character*52 alph
c
      data alph /'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ'/
c
      do lalpha=len(s),1,-1
         if(index(alph,s(lalpha:lalpha)).ne.0) return
      enddo
c
      return
c
      end
c}