00001 #ifndef GLOBAL_H
00002 #define GLOBAL_H
00003
00004 extern "C" { int PARDISO (void *, int *, int *, int *, int *, int *,
00005 double *, int *, int *, int *, int *, int *,
00006 int *, double *, double *, int *);
00007 }
00008
00009
00010 #include "probdesc.h"
00011 #include "mechtop.h"
00012 #include "mechmat.h"
00013 #include "mechcrsec.h"
00014 #include "mechbclc.h"
00015 #include "lhsrhs.h"
00016 #include "adaptivity.h"
00017 #include "stochdriver.h"
00018 #include "outdriverm.h"
00019 #include "flsubdom.h"
00020
00021 #ifdef EXTENDED_GLOBINC
00022 #include "gtopology.h"
00023 #include "gmatrix.h"
00024 #include "elemhead.h"
00025 #else
00026 class gtopology;
00027 class gmatrix;
00028
00029 class barel2d;
00030 class barel3d;
00031 class barelq2d;
00032 class barelq3d;
00033 class beamel2d;
00034 class beamel3d;
00035 class beamgen3d;
00036 class soilbeam;
00037 class beam2dspec;
00038 class springel;
00039 class planeelemlt;
00040 class planeelemqt;
00041 class planeelemrotlt;
00042 class planeelemlq;
00043 class planeelemqq;
00044 class planeelemrotlq;
00045 class planeelemsubqt;
00046 class cctelem;
00047 class dktelem;
00048 class dstelem;
00049 class q4plate;
00050 class ArgyrisTriangle;
00051 class argyrisplate;
00052 class soilplatetr;
00053 class soilplateq;
00054 class axisymlq;
00055 class axisymlt;
00056 class axisymqq;
00057 class shelltr;
00058 class shellq;
00059 class lintet;
00060 class quadtet;
00061 class linhex;
00062 class quadhex;
00063 class lintetrot;
00064 class linhexrot;
00065 class linwedge;
00066 class quadwedge;
00067 class elemparticle;
00068 class plquadcontact;
00069 class ArgyrisTriangle;
00070 class argyrisplate;
00071 #endif
00072
00073 #ifndef EXTERN
00074 #define EXTERN extern
00075 #endif
00076
00077
00078
00079
00080
00081
00082
00083
00084 EXTERN long Ndofm;
00085
00086
00087 EXTERN long Mespr;
00088
00089 EXTERN FILE *Out;
00090
00091
00092
00093
00094
00095
00096
00097 EXTERN probdesc *Mp;
00098
00099
00100 EXTERN gtopology *Gtm;
00101
00102
00103 EXTERN mechtop *Mt;
00104 EXTERN mechtop *Mtt;
00105
00106
00107 EXTERN mechmat *Mm;
00108 EXTERN mechmat *Mmm;
00109
00110
00111 EXTERN mechcrsec *Mc;
00112
00113
00114 EXTERN mechbclc *Mb;
00115
00116
00117 EXTERN lhsrhs *Lsrs;
00118
00119
00120 EXTERN adaptivity *Ada;
00121
00122
00123 EXTERN stochdriver *St;
00124
00125
00126 EXTERN outdriverm *Outdm;
00127
00128
00129 EXTERN flsubdom *Fsd;
00130
00131
00132
00133
00134
00135
00136
00137
00138
00139 EXTERN gmatrix *Smat;
00140
00141
00142 EXTERN gmatrix *Mmat;
00143
00144
00145 EXTERN gmatrix *Dmat;
00146
00147
00148 EXTERN gmatrix *Ismat;
00149
00150
00151 EXTERN gmatrix **Amat;
00152
00153
00154
00155
00156
00157
00158
00159
00160 EXTERN barel2d *Bar2d;
00161
00162
00163 EXTERN barel3d *Bar3d;
00164
00165
00166 EXTERN barelq2d *Barq2d;
00167
00168
00169 EXTERN barelq3d *Barq3d;
00170
00171
00172 EXTERN beamel2d *Beam2d;
00173
00174
00175 EXTERN beamel3d *Beam3d;
00176
00177
00178 EXTERN beamgen3d *Beam3dg;
00179
00180
00181 EXTERN soilbeam *Sbeam;
00182
00183
00184 EXTERN beam2dspec *Spbeam2d;
00185
00186
00187 EXTERN springel *Spring;
00188
00189
00190 EXTERN planeelemlt *Pelt;
00191
00192
00193 EXTERN planeelemqt *Peqt;
00194
00195
00196 EXTERN planeelemrotlt *Perlt;
00197
00198
00199 EXTERN planeelemlq *Pelq;
00200
00201
00202 EXTERN planeelemqq *Peqq;
00203
00204
00205 EXTERN planeelemrotlq *Perlq;
00206
00207
00208 EXTERN planeelemsubqt *Pesqt;
00209
00210
00211 EXTERN cctelem *Cct;
00212
00213
00214 EXTERN dktelem *Dkt;
00215
00216
00217 EXTERN dstelem *Dst;
00218
00219
00220 EXTERN q4plate *Q4pl;
00221
00222
00223 EXTERN ArgyrisTriangle *Argtr;
00224
00225 EXTERN argyrisplate *Argtrpl;
00226
00227
00228 EXTERN soilplatetr *Spltr;
00229
00230
00231 EXTERN soilplateq *Splq;
00232
00233
00234 EXTERN axisymlq *Asymlq;
00235
00236
00237 EXTERN axisymlt *Asymlt;
00238
00239
00240 EXTERN axisymqq *Asymqq;
00241
00242
00243 EXTERN shelltr *Shtr;
00244
00245
00246 EXTERN shellq *Shq;
00247
00248
00249 EXTERN lintet *Ltet;
00250
00251
00252 EXTERN quadtet *Qtet;
00253
00254
00255 EXTERN linhex *Lhex;
00256
00257
00258 EXTERN quadhex *Qhex;
00259
00260
00261 EXTERN lintetrot *Ltetrot;
00262
00263
00264 EXTERN linhexrot *Lhexrot;
00265
00266
00267 EXTERN linwedge *Lwed;
00268
00269
00270 EXTERN quadwedge *Qwed;
00271
00272
00273
00274 EXTERN elemparticle *Pelem;
00275
00276
00277 EXTERN plquadcontact *Pqcon;
00278
00279 #endif