ftp.nice.ch/pub/next/developer/languages/lisp/AKCL.1.599.s.tar.gz#/akcl-1-599/mp/mp_dblremsl3.c

This is mp_dblremsl3.c in view mode; [Download] [Up]

#include "include.h"
#include "genpari.h"
#include "arith.h"

int dblremsl3(x,y,z)
     int x,y,z;
{ unsigned long h;
  unsigned long w;
  if (x>= 0 && y>= 0 && z>0)
     {w = mulul(x,y,h);
      divul(x,z,h);
      return h;}
  else
    { long save = avma;
      GEN yy = stoi(y);
      GEN xx = stoi(x);
      GEN ans = mulss(xx,yy);
      ans = dvmdii(ans,stoi(z),-1);
      avma = save;
      if (signe(ans) > 0) return ans[2];
      if (signe(ans) < 0) return -ans[2];
      return 0;}
}
  

These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.