1 /*  -- translated by f2c (version 20100827).
2    You must link the resulting object file with libf2c:
3 	on Microsoft Windows system, link with libf2c.lib;
4 	on Linux or Unix systems, link with .../path/to/libf2c.a -lm
5 	or, if you install libf2c.a in a standard place, with -lf2c -lm
6 	-- in that order, at the end of the command line, as in
7 		cc *.o -lf2c -lm
8 	Source for libf2c is in /netlib/f2c/libf2c.zip, e.g.,
9 
10 		http://www.netlib.org/f2c/libf2c.zip
11 */
12 
13 #include "libtinyf2c.h"
14 
15 /* ------------------------------------------------------------------- */
16 /*     Copyright (C) 2000-2004 GFD Dennou Club. All rights reserved. */
17 /* ----------------------------------------------------------------------- */
rfpi_(void)18 real rfpi_(void)
19 {
20     /* Initialized data */
21 
22     static logical lfirst = TRUE_;
23 
24     /* System generated locals */
25     real ret_val;
26 
27     /* Builtin functions */
28     double atan(doublereal);
29 
30     /* Local variables */
31     static real pi;
32 
33     if (lfirst) {
34 	pi = atan(1.f) * 4.f;
35 	lfirst = FALSE_;
36     }
37     ret_val = pi;
38     return ret_val;
39 } /* rfpi_ */
40 
41