c
c------------------------------------------------------------------
c
      subroutine getmss(path)
c
c Get file path from mss and attach to lu:
c (use tail of path as local file name)
c
      character*(*) path
      character*128 locf,errmsg
c
      lpath = lenstr(path)
      call tail(path,locf)
      if (path.eq.' ') then
        write(6,"('>>> getmss: error in path from tail --',
     +    ' path=',a)") path(1:lpath) 
        stop 'getmss'
      endif
      lenlocf = lenstr(locf)
      call msread(ier,locf(1:lenlocf),path(1:lpath),' ',' ')
c
c File already on disk:
      if (ier.eq.3) then
        write(6,"('getmss: msread found ',a,' on the disk',/
     +    8x,'(file ',a,' was not read from mss)')")
     +    locf(1:lenlocf),path(1:lpath)
c
c Error reading file:
      elseif (ier.ne.0) then
        call mserror(errmsg)
        write(6,"('getmss: msread failed to read mss file ',
     +    a,' to unix disk file ',a)") path(1:lpath),locf(1:lenlocf)
        write(6,"('errmsg = ',a)") errmsg
        stop 'msread'
c
c Good read:
      else
        write(6,"('getmss: msread file ',a,' to unix file ',a)")
     +    path(1:lpath),locf(1:lenlocf)
      endif
      return
      end