/* unsigned _DivUnsArrByUns(a,c,n)
 *
 * ARGUMENT
 *      unsigned        a[];
 *      unsigned        c;            number of divide by
 *      int             n;            number of digits
 *
 * DESCRIPTION
 *      Divides a number of n digits (a) by c and stores the result in a.
 *  The remainder is calculated and returnes.
 *
 * SIDE EFFECTS
 *      None.
 *
 * RETURNS
 *      Remainder.
 *
 * AUTHOR
 *      Brugnoli Giugno 1992
 *
 * MODIFICATIONS
 *
 */

#include <stdio.h>
#include "gm.h"
#include "gmsystem.h"

unsigned   _DivUnsArrByUns(a,c,n)
unsigned SHORT        a[],c;
int             n;
{
  int i;
  unsigned SHORT rem,qt;
  unsigned long remup,ntbd;

  rem=0;

  if ((c)&&(n))
    {
    for (i=n-1;i>=0;i--)
      {
      remup=(long)rem<<BITSPERUI;
      ntbd=(long)a[i]+remup;
      qt=(unsigned SHORT)(ntbd / c);
      rem=(unsigned SHORT)(ntbd % c);
      a[i]=qt;
      }
    }
    return(rem);
}