00001
00002
00003
00004
00005
00006
00007
00008
00009 #if defined(SYSTYPE)
00010 #undef SYSTYPE
00011 #endif
00012
00013 #ifndef USE_ADF_MACROS
00014
00015 #include "fortran_macros.h"
00016 #define SYSTYPE
00017 typedef VINTEGER Fint;
00018 typedef VFLOAT Freal;
00019 typedef VREAL Fdouble;
00020 typedef VCHARACTER *Fchar;
00021 #define F2CP(FCHAR) STR_PTR(FCHAR)
00022 #define FNAME(A,B) FMNAME(A,B)
00023
00024 #else
00025 #if defined(__convexc__)
00026
00027 #define SYSTYPE
00028 typedef int Fint;
00029 typedef float Freal;
00030 typedef double Fdouble;
00031 typedef char *Fchar;
00032 #define F2CP(FCHAR) (FCHAR)
00033 #define FNAME(A,B) A ## _
00034
00035 #elif defined(cray)
00036
00037 #define SYSTYPE
00038 #include <fortran.h>
00039 typedef int Fint;
00040 typedef float Freal;
00041 typedef double Fdouble;
00042 typedef _fcd Fchar;
00043 #define F2CP(FCHAR) (_fcdtocp(FCHAR))
00044 #define FNAME(A,B) B
00045
00046 #elif defined(__hpux)
00047
00048 #define SYSTYPE
00049 typedef int Fint;
00050 typedef float Freal;
00051 typedef double Fdouble;
00052 typedef char *Fchar;
00053 #define F2CP(FCHAR) (FCHAR)
00054 #define FNAME(A,B) A
00055
00056 #elif defined(_AIX)
00057
00058 #define SYSTYPE
00059 typedef int Fint;
00060 typedef float Freal;
00061 typedef double Fdouble;
00062 typedef char *Fchar;
00063 #define F2CP(FCHAR) (FCHAR)
00064 #define FNAME(A,B) A
00065
00066 #elif defined(__PARAGON__)
00067
00068 #define SYSTYPE
00069 typedef int Fint;
00070 typedef float Freal;
00071 typedef double Fdouble;
00072 typedef char *Fchar;
00073 #define F2CP(FCHAR) (FCHAR)
00074 #define FNAME(A,B) A ## _
00075
00076 #elif defined(sgi)
00077
00078 #define SYSTYPE
00079 typedef int Fint;
00080 typedef float Freal;
00081 typedef double Fdouble;
00082 typedef char *Fchar;
00083 #define F2CP(FCHAR) (FCHAR)
00084 #define FNAME(A,B) A ## _
00085
00086 #elif defined(VMS)
00087
00088 #define SYSTYPE
00089 typedef int Fint;
00090 typedef float Freal;
00091 typedef double Fdouble;
00092 typedef struct dsc$descriptor_s *Fchar;
00093 #define F2CP(FCHAR) ((FCHAR)->dsc$a_pointer)
00094 #define FNAME(A,B) A
00095 #include <descrip.h>
00096
00097 #elif defined(__alpha)
00098
00099 #define SYSTYPE
00100 typedef int Fint;
00101 typedef float Freal;
00102 typedef double Fdouble;
00103 typedef char *Fchar;
00104 #define F2CP(FCHAR) (FCHAR)
00105 #define FNAME(A,B) A ## _
00106
00107 #elif defined(PPRO)
00108
00109 #define SYSTYPE
00110 typedef int Fint;
00111 typedef float Freal;
00112 typedef double Fdouble;
00113 typedef char *Fchar;
00114 #define F2CP(FCHAR) (FCHAR)
00115 #define FNAME(A,B) A
00116
00117 #elif defined(sun)
00118
00119 #define SYSTYPE
00120 typedef int Fint;
00121 typedef float Freal;
00122 typedef double Fdouble;
00123 typedef char *Fchar;
00124 #define F2CP(FCHAR) (FCHAR)
00125 #define FNAME(A,B) A ## _
00126
00127 #elif defined(_WIN32)
00128
00129 #define SYSTYPE
00130 typedef int Fint;
00131 typedef float Freal;
00132 typedef double Fdouble;
00133 typedef char *Fchar;
00134 #define F2CP(FCHAR) (FCHAR)
00135 #define FNAME(A,B) B
00136
00137 #elif defined(_CX_UX)
00138
00139 #define SYSTYPE
00140 typedef int Fint;
00141 typedef float Freal;
00142 typedef double Fdouble;
00143 typedef char *Fchar;
00144 #define F2CP(FCHAR) (FCHAR)
00145 #define FNAME(A,B) A ## _
00146
00147 #elif defined(m88k)
00148 #define SYSTYPE
00149 typedef int Fint;
00150 typedef float Freal;
00151 typedef double Fdouble;
00152 typedef char *Fchar;
00153 #define F2CP(FCHAR) (FCHAR)
00154 #define FNAME(A,B) A_
00155
00156 #elif defined(__linux__)
00157
00158 #define SYSTYPE
00159 typedef int Fint;
00160 typedef float Freal;
00161 typedef double Fdouble;
00162 typedef char *Fchar;
00163 #define F2CP(FCHAR) (FCHAR)
00164 #define FNAME(A,B) A ## _
00165
00166 #else
00167 typedef int Fint;
00168 typedef float Freal;
00169 typedef double Fdouble;
00170 typedef char *Fchar;
00171 #define F2CP(FCHAR) (FCHAR)
00172 #define FNAME(A,B) A
00173 #endif
00174 #endif