      subroutine liri(mat,long,ifil)
      dimension mat(long)
c      write(6,*)'liri long,ifil',long,ifil
      read(ifil) mat
c      print*,'liri',mat
      return
      end
       subroutine lirc(c,long,ifil)
      character*1 c(long)
c     write(6,*)'liri long,ifil',long,ifil
      read(ifil) c
      return
      end
