conversion.c 432 B

12345678910111213141516171819202122232425262728293031323334353637383940
  1. /* $Header$ */
  2. int _cint(f) double f;
  3. {
  4. int r;
  5. if( f<-32768 || f>32767) error(4);
  6. if(f<0)
  7. r= f-0.5;
  8. else r= f+0.5;
  9. return(r);
  10. }
  11. double _trunc(f)
  12. double f;
  13. {
  14. long d;
  15. d=f;
  16. f=d;
  17. return( f );
  18. }
  19. double _fcint(f) double f;
  20. {
  21. long r;
  22. if(f<0){
  23. r= -f;
  24. r= -r -1;
  25. }else r= f;
  26. f=r;
  27. return(f);
  28. }
  29. int _fix(f)
  30. double f;
  31. {
  32. int r;
  33. if( f<-32768.0 || f>32767.0) error(4);
  34. r= _sgn(f) * _fcint((f>0.0? f : -f));
  35. return(r);
  36. }