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)18real 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