- Main Page
- Classes
- Files

- File List

# D:/work/as_smooth/MeshSmoothingTools/misc/atlas/f2c.h

    00001 /* f2c.h  --  Standard Fortran to C header file */
    00002
    00007 #ifndef F2C_INCLUDE
    00008 #define F2C_INCLUDE
    00009
    00010 typedef long int integer;
    00011 typedef unsigned long uinteger;
    00012 typedef char *address;
    00013 typedef short int shortint;
    00014 typedef float real;
    00015 typedef double doublereal;
    00016 typedef struct { real r, i; } complex;
    00017 typedef struct { doublereal r, i; } doublecomplex;
    00018 typedef long int logical;
    00019 typedef short int shortlogical;
    00020 typedef char logical1;
    00021 typedef char integer1;
    00022 #if 0   /* Adjust for integer*8. */
    00023 typedef long long longint;              /* system-dependent */
    00024 typedef unsigned long long ulongint;    /* system-dependent */
    00025 #endif
    00026
    00027 #define TRUE_ (1)
    00028 #define FALSE_ (0)
    00029
    00030 /* Extern is for use with -E */
    00031 #ifndef Extern
    00032 #define Extern extern
    00033 #endif
    00034
    00035 /* I/O stuff */
    00036
    00037 #ifdef f2c_i2
    00038 /* for -i2 */
    00039 typedef short flag;
    00040 typedef short ftnlen;
    00041 typedef short ftnint;
    00042 #else
    00043 typedef long int flag;
    00044 typedef long int ftnlen;
    00045 typedef long int ftnint;
    00046 #endif
    00047
    00048 #define VOID void
    00049
    00050 /* procedure parameter types for -A and -C++ */
    00051
    00052 #define F2C_proc_par_types 1
    00053 #ifdef __cplusplus
    00054 typedef int /* Unknown procedure type */ (*U_fp)(...);
    00055 typedef shortint (*J_fp)(...);
    00056 typedef integer (*I_fp)(...);
    00057 typedef real (*R_fp)(...);
    00058 typedef doublereal (*D_fp)(...), (*E_fp)(...);
    00059 typedef /* Complex */ VOID (*C_fp)(...);
    00060 typedef /* Double Complex */ VOID (*Z_fp)(...);
    00061 typedef logical (*L_fp)(...);
    00062 typedef shortlogical (*K_fp)(...);
    00063 typedef /* Character */ VOID (*H_fp)(...);
    00064 typedef /* Subroutine */ int (*S_fp)(...);
    00065 #else
    00066 typedef int /* Unknown procedure type */ (*U_fp)();
    00067 typedef shortint (*J_fp)();
    00068 typedef integer (*I_fp)();
    00069 typedef real (*R_fp)();
    00070 typedef doublereal (*D_fp)(), (*E_fp)();
    00071 typedef /* Complex */ VOID (*C_fp)();
    00072 typedef /* Double Complex */ VOID (*Z_fp)();
    00073 typedef logical (*L_fp)();
    00074 typedef shortlogical (*K_fp)();
    00075 typedef /* Character */ VOID (*H_fp)();
    00076 typedef /* Subroutine */ int (*S_fp)();
    00077 #endif
    00078 /* E_fp is for real functions when -R is not specified */
    00079 typedef VOID C_f;       /* complex function */
    00080 typedef VOID H_f;       /* character function */
    00081 typedef VOID Z_f;       /* double complex function */
    00082 typedef doublereal E_f; /* real function with -R not specified */
    00083
    00084 #endif /* F2C_INCLUDE */

All Classes Functions Variables