subroutine init_procs (nprocs)
      integer nprocs
c    ***----------------------------------------------------------***
c    *  Processor initialization for skule.ecf, an SGI Challenge L  *
c    *  with 8 150 MHZ R4400 processors.                            *
c    ***----------------------------------------------------------***
         integer iflag, M_SET_PROCS, k
c
         if (nprocs .lt. 1 .or. nprocs .gt. 8) then
            write(6,*) ' *** init_procs: 1 <= nprocs <= 8?'
         else
            iflag = M_SET_PROCS(nprocs)
         end if
         if (iflag .ne. 0) then
            write(6,*) ' *** init_procs: cannot aquire ', nprocs,
     *                 ' processors at this time'
         else
c    ***----------------------------------------------------------***
c    *    Must get the attention of all requested processors,       *
c    *    otherwise initial timing statistics may be inaccurate.    *
c    ***----------------------------------------------------------***
C$DOACROSS SHARE(nprocs), LOCAL(k,iflag)
            do 10 k = 1, nprocs
               iflag = 0
  10        continue
         endif
      return
      end