C
C $Id: setunit.F,v 1.3 1998/07/16 16:40:43 jjv5 Exp $
C
C------------------------------------------------------------------------
      subroutine setunit

      implicit double precision (a-h,o-z)
#include "dipole.h"
#include "divcon.dim"
#include "divcon.h"

      if (myid.eq.0) then
         m = 0
      else
         m = 10
      endif

      inpt = iunit(1+m)
!      iout = iunit(2+m)
      iout = 6
      iscr = iunit(3+m)
      irst = iunit(4+m)
      ipdb = iunit(5+m)
      itrj = iunit(6+m)
      icoor = iunit(7+m)
      ich = iunit(8+m)
      idmx = iunit(9+m)
      igrd = iunit(10+m)
      idip = iunit(25+m)
      idiel = iunit(26+m)

      ipbs = iunit(21)
      ischg = iunit(22)
      iphim = iunit(23)
      igsrf = iunit(24)

C     files defined elsewhere
      isolf = 79

      end