integer function M_SET_PROCS (nprocs)
      integer nprocs
c    ***----------------------------------------------------------***
c    *   Dummy processor initialization for sequential machines.    *
c    ***----------------------------------------------------------***
         write(6,*) ' *** M_SET_PROCS: warning - sequential machine'
         M_SET_PROCS = 0
      return
      end