c
      subroutine rdmss(msspath,locflnm)
c
c Get msspath from mss to disk file locflnm:
c
      character*(*) msspath,locflnm
      character*128 errmsg
c
      lpath = lenstr(msspath)
      llocf = lenstr(locflnm)
      call msread(ier,locflnm,msspath,' ',' ')
c
c File already on disk:
      if (ier.eq.3) then
        write(6,"('rdmss: msread found ',a,' on the disk',/
     +    8x,'(file ',a,' was not read from mss)')")
     +    locflnm(1:llocf),msspath(1:lpath)
c
c Error reading file:
      elseif (ier.ne.0) then
        call mserror(errmsg)
        write(6,"('rdmss: msread failed to read mss file ',
     +    a,' to unix disk file ',a)") msspath(1:lpath),locflnm(1:llocf)
        write(6,"('errmsg = ',a)") errmsg
        stop 'msread'
c
c Good read:
      else
        write(6,"('rdmss: msread file ',a,' to unix file ',a)")
     +    msspath(1:lpath),locflnm(1:llocf)
      endif
      return
      end