summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/lib/fprintreal.c
blob: c65e4b277ff52b022acb47ac004b127e8cff08c1 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
/* fprintreal.c: print the real number R in the Pascal format N:M on the
   file F.  Public domain. */

#include <w2c/config.h>
#include "lib.h"

void
fprintreal (FILE *f, double r, int n, int m)
{
  char fmt[50];  /* Surely enough, since N and M won't be more than 25
                    digits each!  */

  sprintf (fmt, "%%%d.%dlf", n, m);
  fprintf (f, fmt, r);
}