class realmp
  {
   public:
     realmp();          
     int gv(int zi) const { return *zelement[zi]; }
     void sv(int zi,unsigned int zterm) { *zelement[zi]=zterm; }
     realmp operator=(const realmp &);
     realmp operator=(const int &);
     realmp operator=(const unsigned int &);
     realmp operator=(const double &);
   private:
      unsigned int **zelement;        
  };                                     

realmp::realmp()
  {int zi2,zi3;
   zelement=new unsigned int * [zprecpad];
   for (zi2=0;zi2<zprecpad;zi2++) {zelement[zi2]=new unsigned int [1];}
   for (zi2=0;zi2<prec+2;zi2++)
     {zelement[zi2]=new unsigned int;
      *zelement[zi2]=0;
     }
  }

realmp realmp::operator=(const realmp & rhs)
  {int zi3;
   if (this==&rhs) return *this;
   depthcount=2;
   for (zi3=0;zi3<prec+2;zi3++) {*zelement[zi3]=rhs.gv(zi3);}
   return *this;
  }

realmp realmp::operator=(const double & rhs)
  {int zi3;
   zconftomp(rhs);
   for (zi3=0;zi3<prec+2;zi3++)
     {*zelement[zi3]=z[zi3];}
   return *this;
  }

realmp realmp::operator=(const int & rhs)
  {int zi3;
   unsigned int rhss;
   depthcount=2;
   for (zi3=prec+1;zi3>=0;zi3--)
     {if (zi3==prec+1)
         {*zelement[zi3]=2;
          rhss=rhs;
          if (rhs<0)
            {*zelement[zi3]=0;
             rhss=-rhs;
            }
         }
      if (zi3==prec) {*zelement[zi3]=rhss;}
      if (zi3<prec)
        {*zelement[zi3]=0;
         if (zi3==0) {*zelement[zi3]=0x40000001;}
        }
     }
   return *this;
  }

realmp realmp::operator=(const unsigned int & rhs)     //added Nov27,99
  {int zi3;
   unsigned int rhss;
   depthcount=2;
   for (zi3=prec+1;zi3>=0;zi3--)
     {if (zi3==prec+1)
         {*zelement[zi3]=2;
          rhss=rhs;
         }
      if (zi3==prec) {*zelement[zi3]=rhss;}
      if (zi3<prec)
        {*zelement[zi3]=0;
         if (zi3==0) {*zelement[zi3]=0x40000001;}
        }
     }
   return *this;
  }


class pademp
{public:
 realmp *nummp;
 realmp *denmp;
 pademp();
};

pademp::pademp()
  {nummp=new realmp[zmaxsizepad];
   denmp=new realmp[zmaxsizepad];
  }