[Boost-commit] svn:boost r73737 - in sandbox/e_float/libs/e_float/test/linpack_test: . vc9

Subject: [Boost-commit] svn:boost r73737 - in sandbox/e_float/libs/e_float/test/linpack_test: . vc9
From: e_float_at_[hidden]
Date: 2011-08-14 09:22:19

Author: christopher_kormanyos
Date: 2011-08-14 09:22:18 EDT (Sun, 14 Aug 2011)
New Revision: 73737
URL: http://svn.boost.org/trac/boost/changeset/73737

Log:
- Removed double copies of F2C and LINPACK test stuff. (Was improperly added to wrong directory.)
Removed:
   sandbox/e_float/libs/e_float/test/linpack_test/f2c.h
   sandbox/e_float/libs/e_float/test/linpack_test/vc9/

Deleted: sandbox/e_float/libs/e_float/test/linpack_test/f2c.h
==============================================================================
--- sandbox/e_float/libs/e_float/test/linpack_test/f2c.h	2011-08-14 09:22:18 EDT (Sun, 14 Aug 2011)
+++ (empty file)
@@ -1,227 +0,0 @@
-/* f2c.h  --  Standard Fortran to C header file */
-
-/**  barf  [ba:rf]  2.  "He suggested using FORTRAN, and everybody barfed."
-
-  - From The Shogakukan DICTIONARY OF NEW ENGLISH (Second edition) */
-
-#ifndef F2C_INCLUDE
-#define F2C_INCLUDE
-
-typedef long int integer;
-typedef unsigned long int uinteger;
-typedef char *address;
-typedef short int shortint;
-typedef float real;
-typedef double doublereal;
-typedef struct { real r, i; } complex;
-typedef struct { doublereal r, i; } doublecomplex;
-typedef long int logical;
-typedef short int shortlogical;
-typedef char logical1;
-typedef char integer1;
-//#ifdef INTEGER_STAR_8  /* Adjust for integer*8. */
-typedef long long longint;    /* system-dependent */
-typedef unsigned long long ulongint;  /* system-dependent */
-#define qbit_clear(a,b)  ((a) & ~((ulongint)1 << (b)))
-#define qbit_set(a,b)  ((a) |  ((ulongint)1 << (b)))
-//#endif
-
-#define TRUE_ (1)
-#define FALSE_ (0)
-
-/* Extern is for use with -E */
-#ifndef Extern
-#define Extern extern
-#endif
-
-/* I/O stuff */
-
-#ifdef f2c_i2
-/* for -i2 */
-typedef short flag;
-typedef short ftnlen;
-typedef short ftnint;
-#else
-typedef long int flag;
-typedef long int ftnlen;
-typedef long int ftnint;
-#endif
-
-/*external read, write*/
-typedef struct
-{  flag cierr;
-  ftnint ciunit;
-  flag ciend;
-  char *cifmt;
-  ftnint cirec;
-} cilist;
-
-/*internal read, write*/
-typedef struct
-{  flag icierr;
-  char *iciunit;
-  flag iciend;
-  char *icifmt;
-  ftnint icirlen;
-  ftnint icirnum;
-} icilist;
-
-/*open*/
-typedef struct
-{  flag oerr;
-  ftnint ounit;
-  char *ofnm;
-  ftnlen ofnmlen;
-  char *osta;
-  char *oacc;
-  char *ofm;
-  ftnint orl;
-  char *oblnk;
-} olist;
-
-/*close*/
-typedef struct
-{  flag cerr;
-  ftnint cunit;
-  char *csta;
-} cllist;
-
-/*rewind, backspace, endfile*/
-typedef struct
-{  flag aerr;
-  ftnint aunit;
-} alist;
-
-/* inquire */
-typedef struct
-{  flag inerr;
-  ftnint inunit;
-  char *infile;
-  ftnlen infilen;
-  ftnint  *inex;  /*parameters in standard's order*/
-  ftnint  *inopen;
-  ftnint  *innum;
-  ftnint  *innamed;
-  char  *inname;
-  ftnlen  innamlen;
-  char  *inacc;
-  ftnlen  inacclen;
-  char  *inseq;
-  ftnlen  inseqlen;
-  char   *indir;
-  ftnlen  indirlen;
-  char  *infmt;
-  ftnlen  infmtlen;
-  char  *inform;
-  ftnint  informlen;
-  char  *inunf;
-  ftnlen  inunflen;
-  ftnint  *inrecl;
-  ftnint  *innrec;
-  char  *inblank;
-  ftnlen  inblanklen;
-} inlist;
-
-#define VOID void
-
-union Multitype {  /* for multiple entry points */
-  integer1 g;
-  shortint h;
-  integer i;
-  /* longint j; */
-  real r;
-  doublereal d;
-  complex c;
-  doublecomplex z;
-  };
-
-typedef union Multitype Multitype;
-
-/*typedef long int Long;*/  /* No longer used; formerly in Namelist */
-
-struct Vardesc {  /* for Namelist */
-  char *name;
-  char *addr;
-  ftnlen *dims;
-  int  type;
-  };
-typedef struct Vardesc Vardesc;
-
-struct Namelist {
-  char *name;
-  Vardesc **vars;
-  int nvars;
-  };
-typedef struct Namelist Namelist;
-
-#define abs(x) ((x) >= 0 ? (x) : -(x))
-#define dabs(x) (doublereal)abs(x)
-#ifndef min
-#define min(a,b) ((a) <= (b) ? (a) : (b))
-#endif
-#ifndef max
-#define max(a,b) ((a) >= (b) ? (a) : (b))
-#endif
-#define dmin(a,b) (doublereal)min(a,b)
-#define dmax(a,b) (doublereal)max(a,b)
-#define bit_test(a,b)  ((a) >> (b) & 1)
-#define bit_clear(a,b)  ((a) & ~((uinteger)1 << (b)))
-#define bit_set(a,b)  ((a) |  ((uinteger)1 << (b)))
-
-/* procedure parameter types for -A and -C++ */
-
-#define F2C_proc_par_types 1
-#ifdef __cplusplus
-typedef int /* Unknown procedure type */ (*U_fp)(...);
-typedef shortint (*J_fp)(...);
-typedef integer (*I_fp)(...);
-typedef real (*R_fp)(...);
-typedef doublereal (*D_fp)(...), (*E_fp)(...);
-typedef /* Complex */ VOID (*C_fp)(...);
-typedef /* Double Complex */ VOID (*Z_fp)(...);
-typedef logical (*L_fp)(...);
-typedef shortlogical (*K_fp)(...);
-typedef /* Character */ VOID (*H_fp)(...);
-typedef /* Subroutine */ int (*S_fp)(...);
-#else
-typedef int /* Unknown procedure type */ (*U_fp)();
-typedef shortint (*J_fp)();
-typedef integer (*I_fp)();
-typedef real (*R_fp)();
-typedef doublereal (*D_fp)(), (*E_fp)();
-typedef /* Complex */ VOID (*C_fp)();
-typedef /* Double Complex */ VOID (*Z_fp)();
-typedef logical (*L_fp)();
-typedef shortlogical (*K_fp)();
-typedef /* Character */ VOID (*H_fp)();
-typedef /* Subroutine */ int (*S_fp)();
-#endif
-/* E_fp is for real functions when -R is not specified */
-typedef VOID C_f;  /* complex function */
-typedef VOID H_f;  /* character function */
-typedef VOID Z_f;  /* double complex function */
-typedef doublereal E_f;  /* real function with -R not specified */
-
-/* undef any lower-case symbols that your C compiler predefines, e.g.: */
-
-#ifndef Skip_f2c_Undefs
-#undef cray
-#undef gcos
-#undef mc68010
-#undef mc68020
-#undef mips
-#undef pdp11
-#undef sgi
-#undef sparc
-#undef sun
-#undef sun2
-#undef sun3
-#undef sun4
-#undef u370
-#undef u3b
-#undef u3b2
-#undef u3b5
-#undef unix
-#undef vax
-#endif
-#endif