c   $Id: initlog.f,v 1.1 1998/10/20 13:23:03 zaleski Exp $
c   (c) S. Zaleski, CNRS, UPMC
c
c   $Author: zaleski $
c
      subroutine initlog()
c
      open(unit=11,file="Revision",status="unknown")
      close(unit=11,status="delete")
      
      call openlog()
      call machineID()
      return
      end

      subroutine openlog()
c
      open(unit=11,file="Revision")

100   format(a80)
 7771 read(11,100,end=7772,err=7773) c
      go to 7771
 7773 write(6,*) "error reading file Revision"
 7772 continue
      return
      end

      subroutine closelog()

      close(unit=11)
      end