/* unsigned _HalveUnsArr(a,n)
 *
 * ARGUMENT
 *      unsigned        a[];
 *      int             n;            number of digits
 *
 * DESCRIPTION
 *      Halves (Divides by 2) the number a.
 *
 * SIDE EFFECTS
 *      If the number is odd, discards the least significant bit.
 *
 * RETURNS
 *
 *
 * AUTHOR
 *      Brugnoli Giugno 1992
 *
 * MODIFICATIONS
 *
 */

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

#include "gmsys1.h"

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

  rem=0;

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