home *** CD-ROM | disk | FTP | other *** search
/ Fish 'n' More 1 / FishNMoreVol1.bin / more / code_examples / librar / ftoa.c < prev    next >
Text File  |  1989-02-08  |  768b  |  32 lines
  1. /*--------------------------------------*/
  2. /*                    */
  3. /*              FTOA(X,X,X)        */
  4. /*                    */
  5. /* Converts a floating point number to    */
  6. /* a character array.  The first     */
  7. /* argument is the floating point     */
  8. /* number.  The second argument is the    */
  9. /* character array and the third     */
  10. /* argument is the size of the array.    */
  11. /*                    */
  12. /*--------------------------------------*/
  13. # include "math.h"
  14. void ftoa(dd,a,b)
  15. double dd;
  16. char a[];
  17. int b;
  18. {
  19.     char *r;
  20.     int d,j;
  21.     gcvt(dd,b,r);
  22.     d=strlen(r);
  23.     if (d<b){
  24.             charinit(a,b-d,32);
  25.             for (j=b-d;j<b;j++)
  26.                  a[j]=r[j-b+d];
  27.     }
  28.     else{
  29.            for (j=0;j<b;j++)
  30.                 a[j]=r[j];
  31.     }
  32. }