← Back to branch summary

~ubuntu-branches/ubuntu/intrepid/plplot/intrepid

« back to all changes in this revision

Viewing changes to bindings/f95/plflt.c

  • Committer: Bazaar Package Importer
  • Author(s): Rafael Laboissiere
  • Date: 2006-11-04 10:19:34 UTC
  • mfrom: (2.1.8 edgy)
  • Revision ID: james.westby@ubuntu.com-20061104101934-mlirvdg4gpwi6i5q
Tags: 5.6.1-10
* Orphaning the package
* debian/control: Changed the maintainer to the Debian QA Group

Show diffs side-by-side

added added

removed removed

Lines of Context:
bindings/f95/plflt.c
 
1
/* Auxiliary program: write the include file for determining
 
2
   PLplot's floating-point type
 
3
*/
 
4
 
 
5
#include <stdio.h>
 
6
#include <stdlib.h>
 
7
#include "plConfig.h"
 
8
 
 
9
void main(int argc, char *argv[] )
 
10
{
 
11
   FILE *outfile;
 
12
   char *kind;
 
13
 
 
14
   outfile = fopen( "plflt.inc", "w" ) ;
 
15
#ifdef PL_DOUBLE
 
16
   kind = "1.0d0";
 
17
#else
 
18
   kind = "1.0";
 
19
#endif
 
20
 
 
21
   fprintf( outfile, "!     NOTE: Generated code\n");
 
22
   fprintf( outfile, "!\n");
 
23
   fprintf( outfile, "!     Type of floating-point numbers in PLplot\n");
 
24
   fprintf( outfile, "!\n");
 
25
   fprintf( outfile, "      integer, parameter :: plf   = kind(%s)\n", kind);
 
26
   fprintf( outfile, "      integer, parameter :: plflt = plf\n");
 
27
   fclose( outfile);
 
28
}