!    call openeq(lun,file,err)   !open readonly/quiet
!                int, char, logical
!   GIve no message (other than err=) if not found
! If lun <= 0, then lunget will be called for it
subroutine openeq(ll,file,er)
  use cesr_utils
  implicit none
  integer ll,ierr
  character*(*) file
  character*256 filex
  logical er
  if (ll <= 0) ll = lunget()
  call fullfilename(file,filex,er)
  open(unit=ll,file=trim(filex),action='read',status='old',iostat=ierr)
  er=ierr.ne.0
  return
end subroutine openeq