program etch
c  This Program Starts the Parallel Program for etch                             
c          
       include 'mpif.h'
c
       integer iam, nodes
       integer ierr, status(MPI_STATUS_SIZE)
c
        call MPI_INIT(ierr)
        call MPI_COMM_RANK(MPI_COMM_WORLD, iam, ierr)
        call MPI_COMM_SIZE(MPI_COMM_WORLD, nodes, ierr)
c
c
        if(nodes.eq.4) then
                       maxnod=3
                       internod=2
                 elseif (nodes.eq.8)then
                       maxnod=7
                       internod=6
                 elseif (nodes.eq.16)then
                       maxnod=15
                       internod=13
                 elseif (nodes.eq.32)then
                       maxnod=31
                       internod=27
                 elseif (nodes.eq.64)then
                       maxnod=63
                       internod=53
                 else
              write(6,*) 'ERROR: the number of nodes MUST be 4, 8, 16,
     132 or 64!'
              go to 999
        endif


        if (iam .eq. 0) then                   
         call etchh(iam, nodes, ierr)
        else               
         call etchn(iam, nodes, ierr) 
        endif
c
 999        call MPI_FINALIZE(ierr)
c
       stop
       end