CalculiX  2.8
A Free Software Three-Dimensional Structural Finite Element Program
 All Classes Files Functions Variables Macros
resultsinduction.c File Reference
#include <unistd.h>
#include <stdio.h>
#include <math.h>
#include <stdlib.h>
#include <pthread.h>
#include "CalculiX.h"
Include dependency graph for resultsinduction.c:

Go to the source code of this file.

Functions

void resultsinduction (double *co, ITG *nk, ITG *kon, ITG *ipkon, char *lakon, ITG *ne, double *v, double *stn, ITG *inum, double *elcon, ITG *nelcon, double *rhcon, ITG *nrhcon, double *alcon, ITG *nalcon, double *alzero, ITG *ielmat, ITG *ielorien, ITG *norien, double *orab, ITG *ntmat_, double *t0, double *t1, ITG *ithermal, double *prestr, ITG *iprestr, char *filab, double *eme, double *emn, double *een, ITG *iperturb, double *f, double *fn, ITG *nactdof, ITG *iout, double *qa, double *vold, double *b, ITG *nodeboun, ITG *ndirboun, double *xboun, ITG *nboun, ITG *ipompc, ITG *nodempc, double *coefmpc, char *labmpc, ITG *nmpc, ITG *nmethod, double *cam, ITG *neq, double *veold, double *accold, double *bet, double *gam, double *dtime, double *time, double *ttime, double *plicon, ITG *nplicon, double *plkcon, ITG *nplkcon, double *xstateini, double *xstiff, double *xstate, ITG *npmat_, double *epn, char *matname, ITG *mi, ITG *ielas, ITG *icmd, ITG *ncmat_, ITG *nstate_, double *sti, double *vini, ITG *ikboun, ITG *ilboun, double *ener, double *enern, double *emeini, double *xstaten, double *eei, double *enerini, double *cocon, ITG *ncocon, char *set, ITG *nset, ITG *istartset, ITG *iendset, ITG *ialset, ITG *nprint, char *prlab, char *prset, double *qfx, double *qfn, double *trab, ITG *inotr, ITG *ntrans, double *fmpc, ITG *nelemload, ITG *nload, ITG *ikmpc, ITG *ilmpc, ITG *istep, ITG *iinc, double *springarea, double *reltime, ITG *ne0, double *xforc, ITG *nforc, double *thicke, double *shcon, ITG *nshcon, char *sideload, double *xload, double *xloadold, ITG *icfd, ITG *inomat, double *h0, ITG *islavnode, ITG *nslavnode, ITG *ntie, ITG *ielprop, double *prop, ITG *iactive)
 
void * resultsemmt (ITG *i)
 
void * resultsthermemmt (ITG *i)
 

Variables

static char * lakon1
 
static char * matname1
 
static char * sideload1
 
static ITGkon1
 
static ITGipkon1
 
static ITGne1
 
static ITGnelcon1
 
static ITGnrhcon1
 
static ITGnalcon1
 
static ITGielmat1
 
static ITGielorien1
 
static ITGnorien1
 
static ITGntmat1_
 
static ITGithermal1
 
static ITGiperturb1
 
static ITGiout1
 
static ITGnmethod1
 
static ITGnplkcon1
 
static ITGnpmat1_
 
static ITGmi1
 
static ITGncmat1_
 
static ITGnstate1_
 
static ITGielprop1
 
static ITGistep1
 
static ITGiinc1
 
static ITG calcul_fn1
 
static ITG calcul_qa1
 
static ITGnplicon1
 
static ITGnal =NULL
 
static ITGipompc1
 
static ITGnodempc1
 
static ITGnmpc1
 
static ITGncocon1
 
static ITGikmpc1
 
static ITGilmpc1
 
static ITG num_cpus
 
static ITG mt1
 
static ITGnk1
 
static ITGnshcon1
 
static ITGnelemload1
 
static ITGnload1
 
static ITG mortar1
 
static ITGistartset1
 
static ITGiendset1
 
static ITGialset1
 
static ITGiactive1
 
static double * co1
 
static double * v1
 
static double * elcon1
 
static double * rhcon1
 
static double * alcon1
 
static double * orab1
 
static double * t01
 
static double * fn1 =NULL
 
static double * qa1 =NULL
 
static double * vold1
 
static double * dtime1
 
static double * time1
 
static double * prop1
 
static double * ttime1
 
static double * plkcon1
 
static double * xstateini1
 
static double * xstiff1
 
static double * xstate1
 
static double * sti1
 
static double * springarea1
 
static double * reltime1
 
static double * coefmpc1
 
static double * vini1
 
static double * cocon1
 
static double * qfx1
 
static double * shcon1
 
static double * xload1
 
static double * plicon1
 
static double * xloadold1
 
static double * h01
 
static double * pslavsurf1
 
static double * pmastsurf1
 
static double * clearini1
 

Function Documentation

void* resultsemmt ( ITG i)

Definition at line 307 of file resultsinduction.c.

307  {
308 
309  ITG nea,neb,nedelta;
310 
311  nedelta=(ITG)floor(*ne1/(double)num_cpus);
312  nea=*i*nedelta+1;
313  neb=(*i+1)*nedelta;
314 // next line! -> all parallel sections
315  if((*i==num_cpus-1)&&(neb<*ne1)) neb=*ne1;
316 
320 
321  return NULL;
322 }
static ITG * mi1
static double * v1
static double * sti1
static ITG num_cpus
static ITG * istartset1
void FORTRAN(addimdnodecload,(ITG *nodeforc, ITG *i, ITG *imdnode, ITG *nmdnode, double *xforc, ITG *ikmpc, ITG *ilmpc, ITG *ipompc, ITG *nodempc, ITG *nmpc, ITG *imddof, ITG *nmddof, ITG *nactdof, ITG *mi, ITG *imdmpc, ITG *nmdmpc, ITG *imdboun, ITG *nmdboun, ITG *ikboun, ITG *nboun, ITG *ilboun, ITG *ithermal))
static double * elcon1
static double * vini1
static char * matname1
static ITG * nelcon1
static ITG * kon1
static double * alcon1
static ITG * ipkon1
static ITG * nalcon1
subroutine resultsem(co, kon, ipkon, lakon, v, elcon, nelcon, ielmat, ntmat_, vini, dtime, matname, mi, ncmat_, nea, neb, sti, alcon, nalcon, h0, istartset, iendset, ialset, iactive, fn)
Definition: resultsem.f:19
static double * fn1
static ITG * ielmat1
static ITG * iendset1
static char * lakon1
#define ITG
Definition: CalculiX.h:51
static ITG * ialset1
static ITG * ncmat1_
static double * co1
static ITG * ne1
static double * dtime1
static ITG * ntmat1_
static ITG * iactive1
static double * h01
void resultsinduction ( double *  co,
ITG nk,
ITG kon,
ITG ipkon,
char *  lakon,
ITG ne,
double *  v,
double *  stn,
ITG inum,
double *  elcon,
ITG nelcon,
double *  rhcon,
ITG nrhcon,
double *  alcon,
ITG nalcon,
double *  alzero,
ITG ielmat,
ITG ielorien,
ITG norien,
double *  orab,
ITG ntmat_,
double *  t0,
double *  t1,
ITG ithermal,
double *  prestr,
ITG iprestr,
char *  filab,
double *  eme,
double *  emn,
double *  een,
ITG iperturb,
double *  f,
double *  fn,
ITG nactdof,
ITG iout,
double *  qa,
double *  vold,
double *  b,
ITG nodeboun,
ITG ndirboun,
double *  xboun,
ITG nboun,
ITG ipompc,
ITG nodempc,
double *  coefmpc,
char *  labmpc,
ITG nmpc,
ITG nmethod,
double *  cam,
ITG neq,
double *  veold,
double *  accold,
double *  bet,
double *  gam,
double *  dtime,
double *  time,
double *  ttime,
double *  plicon,
ITG nplicon,
double *  plkcon,
ITG nplkcon,
double *  xstateini,
double *  xstiff,
double *  xstate,
ITG npmat_,
double *  epn,
char *  matname,
ITG mi,
ITG ielas,
ITG icmd,
ITG ncmat_,
ITG nstate_,
double *  sti,
double *  vini,
ITG ikboun,
ITG ilboun,
double *  ener,
double *  enern,
double *  emeini,
double *  xstaten,
double *  eei,
double *  enerini,
double *  cocon,
ITG ncocon,
char *  set,
ITG nset,
ITG istartset,
ITG iendset,
ITG ialset,
ITG nprint,
char *  prlab,
char *  prset,
double *  qfx,
double *  qfn,
double *  trab,
ITG inotr,
ITG ntrans,
double *  fmpc,
ITG nelemload,
ITG nload,
ITG ikmpc,
ITG ilmpc,
ITG istep,
ITG iinc,
double *  springarea,
double *  reltime,
ITG ne0,
double *  xforc,
ITG nforc,
double *  thicke,
double *  shcon,
ITG nshcon,
char *  sideload,
double *  xload,
double *  xloadold,
ITG icfd,
ITG inomat,
double *  h0,
ITG islavnode,
ITG nslavnode,
ITG ntie,
ITG ielprop,
double *  prop,
ITG iactive 
)

Definition at line 42 of file resultsinduction.c.

71  {
72 
73  /* variables for multithreading procedure */
74 
75  char *env,*envloc,*envsys;
76 
77  ITG intpointvarm,calcul_fn,calcul_f,calcul_qa,calcul_cauchy,iener,ikin,
78  intpointvart,mt=mi[1]+1,i,j,*ithread=NULL,*islavsurf=NULL,
79  sys_cpus,mortar=0,*islavact=NULL;
80 
81  double *pmastsurf=NULL,*clearini=NULL,*pslavsurf=NULL,*cdn=NULL;
82 
83  /*
84 
85  calculating integration point values (strains, stresses,
86  heat fluxes, material tangent matrices and nodal forces)
87 
88  storing the nodal and integration point results in the
89  .dat file
90 
91  iout=-2: v is assumed to be known and is used to
92  calculate strains, stresses..., no result output
93  corresponds to iout=-1 with in addition the
94  calculation of the internal energy density
95  iout=-1: v is assumed to be known and is used to
96  calculate strains, stresses..., no result output;
97  is used to take changes in SPC's and MPC's at the
98  start of a new increment or iteration into account
99  iout=0: v is calculated from the system solution
100  and strains, stresses.. are calculated, no result output
101  iout=1: v is calculated from the system solution and strains,
102  stresses.. are calculated, requested results output
103  iout=2: v is assumed to be known and is used to
104  calculate strains, stresses..., requested results output */
105 
106  num_cpus=0;
107  sys_cpus=0;
108 
109  /* explicit user declaration prevails */
110 
111  envsys=getenv("NUMBER_OF_CPUS");
112  if(envsys){
113  sys_cpus=atoi(envsys);
114  if(sys_cpus<0) sys_cpus=0;
115  }
116 
117  /* automatic detection of available number of processors */
118 
119  if(sys_cpus==0){
120  sys_cpus = getSystemCPUs();
121  if(sys_cpus<1) sys_cpus=1;
122  }
123 
124  /* local declaration prevails, if strictly positive */
125 
126  envloc = getenv("CCX_NPROC_RESULTS");
127  if(envloc){
128  num_cpus=atoi(envloc);
129  if(num_cpus<0){
130  num_cpus=0;
131  }else if(num_cpus>sys_cpus){
132  num_cpus=sys_cpus;
133  }
134 
135  }
136 
137  /* else global declaration, if any, applies */
138 
139  env = getenv("OMP_NUM_THREADS");
140  if(num_cpus==0){
141  if (env)
142  num_cpus = atoi(env);
143  if (num_cpus < 1) {
144  num_cpus=1;
145  }else if(num_cpus>sys_cpus){
146  num_cpus=sys_cpus;
147  }
148  }
149 
150 // next line is to be inserted in a similar way for all other paralell parts
151 
152  if(*ne<num_cpus) num_cpus=*ne;
153 
154  pthread_t tid[num_cpus];
155 
156  /* 1. nodewise storage of the primary variables
157  2. determination which derived variables have to be calculated */
158 
159  FORTRAN(resultsini_em,(nk,v,ithermal,filab,iperturb,f,fn,
160  nactdof,iout,qa,b,nodeboun,ndirboun,
161  xboun,nboun,ipompc,nodempc,coefmpc,labmpc,nmpc,nmethod,cam,neq,
162  veold,dtime,mi,vini,nprint,prlab,
163  &intpointvarm,&calcul_fn,&calcul_f,&calcul_qa,&calcul_cauchy,&iener,
164  &ikin,&intpointvart,xforc,nforc));
165 
166  /* electromagnetic calculation is linear: should not be taken
167  into account in the convergence check (only thermal part
168  is taken into account) */
169 
170  cam[0]=0.;
171 
172  /* next statement allows for storing the displacements in each
173  iteration: for debugging purposes */
174 
175  if((strcmp1(&filab[3],"I")==0)&&(*iout==0)){
176  FORTRAN(frditeration,(co,nk,kon,ipkon,lakon,ne,v,
177  ttime,ielmat,matname,mi,istep,iinc,ithermal));
178  }
179 
180  /* calculating the stresses and material tangent at the
181  integration points; calculating the internal forces */
182 
183  if(((ithermal[0]<=1)||(ithermal[0]>=3))&&(intpointvarm==1)){
184 
185  co1=co;kon1=kon;ipkon1=ipkon;lakon1=lakon;v1=v;elcon1=elcon;
186  nelcon1=nelcon;ielmat1=ielmat;ntmat1_=ntmat_;vini1=vini;dtime1=dtime;
187  matname1=matname;mi1=mi;ncmat1_=ncmat_;sti1=sti;alcon1=alcon;
188  nalcon1=nalcon;h01=h0;ne1=ne;istartset1=istartset;iendset1=iendset;
189  ialset1=ialset;iactive1=iactive;fn1=fn;
190 
191  /* calculating the magnetic field */
192 
193  if(((*nmethod!=4)&&(*nmethod!=5))||(iperturb[0]>1)){
194  printf(" Using up to %" ITGFORMAT " cpu(s) for the magnetic field calculation.\n\n", num_cpus);
195  }
196 
197  /* create threads and wait */
198 
199  NNEW(ithread,ITG,num_cpus);
200  for(i=0; i<num_cpus; i++) {
201  ithread[i]=i;
202  pthread_create(&tid[i], NULL, (void *)resultsemmt, (void *)&ithread[i]);
203  }
204  for(i=0; i<num_cpus; i++) pthread_join(tid[i], NULL);
205  SFREE(ithread);
206 
207  qa[0]=0.;
208  }
209 
210  /* calculating the thermal flux and material tangent at the
211  integration points; calculating the internal point flux */
212 
213  if((ithermal[0]>=2)&&(intpointvart==1)){
214 
215  NNEW(fn1,double,num_cpus*mt**nk);
216  NNEW(qa1,double,num_cpus*3);
217  NNEW(nal,ITG,num_cpus);
218 
219  co1=co;kon1=kon;ipkon1=ipkon;lakon1=lakon;v1=v;
220  elcon1=elcon;nelcon1=nelcon;rhcon1=rhcon;nrhcon1=nrhcon;
221  ielmat1=ielmat;ielorien1=ielorien;norien1=norien;orab1=orab;
222  ntmat1_=ntmat_;t01=t0;iperturb1=iperturb;iout1=iout;vold1=vold;
223  ipompc1=ipompc;nodempc1=nodempc;coefmpc1=coefmpc;nmpc1=nmpc;
224  dtime1=dtime;time1=time;ttime1=ttime;plkcon1=plkcon;
225  nplkcon1=nplkcon;xstateini1=xstateini;xstiff1=xstiff;
226  xstate1=xstate;npmat1_=npmat_;matname1=matname;mi1=mi;
227  ncmat1_=ncmat_;nstate1_=nstate_;cocon1=cocon;ncocon1=ncocon;
228  qfx1=qfx;ikmpc1=ikmpc;ilmpc1=ilmpc;istep1=istep;iinc1=iinc;
229  springarea1=springarea;calcul_fn1=calcul_fn;calcul_qa1=calcul_qa;
230  mt1=mt;nk1=nk;shcon1=shcon;nshcon1=nshcon;ithermal1=ithermal;
231  nelemload1=nelemload;nload1=nload;nmethod1=nmethod;reltime1=reltime;
232  sideload1=sideload;xload1=xload;xloadold1=xloadold;
233  pslavsurf1=pslavsurf;pmastsurf1=pmastsurf;mortar1=mortar;
234  clearini1=clearini;plicon1=plicon;nplicon1=nplicon;ielprop1=ielprop;
235  prop1=prop;
236 
237  /* calculating the heat flux */
238 
239  printf(" Using up to %" ITGFORMAT " cpu(s) for the heat flux calculation.\n\n", num_cpus);
240 
241  /* create threads and wait */
242 
243  NNEW(ithread,ITG,num_cpus);
244  for(i=0; i<num_cpus; i++) {
245  ithread[i]=i;
246  pthread_create(&tid[i], NULL, (void *)resultsthermemmt, (void *)&ithread[i]);
247  }
248  for(i=0; i<num_cpus; i++) pthread_join(tid[i], NULL);
249 
250  for(i=0;i<*nk;i++){
251  fn[mt*i]=fn1[mt*i];
252  }
253  for(i=0;i<*nk;i++){
254  for(j=1;j<num_cpus;j++){
255  fn[mt*i]+=fn1[mt*i+j*mt**nk];
256  }
257  }
258  SFREE(fn1);SFREE(ithread);
259 
260  /* determine the internal concentrated heat flux */
261 
262  qa[1]=qa1[1];
263  for(j=1;j<num_cpus;j++){
264  qa[1]+=qa1[1+j*3];
265  }
266 
267  SFREE(qa1);
268 
269  for(j=1;j<num_cpus;j++){
270  nal[0]+=nal[j];
271  }
272 
273  if(calcul_qa==1){
274  if(nal[0]>0){
275  qa[1]/=nal[0];
276  }
277  }
278  SFREE(nal);
279  }
280 
281  /* calculating the thermal internal forces */
282 
283  FORTRAN(resultsforc_em,(nk,f,fn,nactdof,ipompc,nodempc,
284  coefmpc,labmpc,nmpc,mi,fmpc,&calcul_fn,&calcul_f,inomat));
285 
286  /* storing results in the .dat file
287  extrapolation of integration point values to the nodes
288  interpolation of 3d results for 1d/2d elements */
289 
290  FORTRAN(resultsprint,(co,nk,kon,ipkon,lakon,ne,v,stn,inum,
291  sti,ielorien,norien,orab,t1,ithermal,filab,een,iperturb,fn,
292  nactdof,iout,vold,nodeboun,ndirboun,nboun,nmethod,ttime,xstate,
293  epn,mi,
294  nstate_,ener,enern,xstaten,eei,set,nset,istartset,iendset,
295  ialset,nprint,prlab,prset,qfx,qfn,trab,inotr,ntrans,
296  nelemload,nload,&ikin,ielmat,thicke,eme,emn,rhcon,nrhcon,shcon,
297  nshcon,cocon,ncocon,ntmat_,sideload,icfd,inomat,pslavsurf,islavact,
298  cdn,&mortar,islavnode,nslavnode,ntie,islavsurf,time,ielprop,prop,
299  veold));
300 
301  return;
302 
303 }
static ITG * iinc1
#define ITGFORMAT
Definition: CalculiX.h:52
static ITG * mi1
static double * v1
static ITG * nelemload1
static ITG * nstate1_
static double * prop1
static double * qa1
int pthread_create(pthread_t *thread_id, const pthread_attr_t *attributes, void *(*thread_function)(void *), void *arguments)
static double * sti1
static ITG num_cpus
subroutine resultsini_em(nk, v, ithermal, filab, iperturb, f, fn, nactdof, iout, qa, b, nodeboun, ndirboun, xboun, nboun, ipompc, nodempc, coefmpc, labmpc, nmpc, nmethod, cam, neq, veold, dtime, mi, vini, nprint, prlab, intpointvarm, calcul_fn, calcul_f, calcul_qa, calcul_cauchy, iener, ikin, intpointvart, xforc, nforc)
Definition: resultsini_em.f:19
static ITG calcul_fn1
static ITG * istartset1
void FORTRAN(addimdnodecload,(ITG *nodeforc, ITG *i, ITG *imdnode, ITG *nmdnode, double *xforc, ITG *ikmpc, ITG *ilmpc, ITG *ipompc, ITG *nodempc, ITG *nmpc, ITG *imddof, ITG *nmddof, ITG *nactdof, ITG *mi, ITG *imdmpc, ITG *nmdmpc, ITG *imdboun, ITG *nmdboun, ITG *ikboun, ITG *nboun, ITG *ilboun, ITG *ithermal))
static double * elcon1
static ITG * ielorien1
static double * vini1
static double * xstate1
static double * clearini1
static char * sideload1
static char * matname1
static double * xloadold1
static ITG * nelcon1
static ITG * nload1
static ITG * ielprop1
static double * qfx1
static ITG * kon1
ITG strcmp1(const char *s1, const char *s2)
Definition: strcmp1.c:24
static ITG * iperturb1
static double * alcon1
static ITG mortar1
subroutine frditeration(co, nk, kon, ipkon, lakon, ne, v, time, ielmat, matname, mi, istep, iinc, ithermal)
Definition: frditeration.f:19
static ITG * nal
ITG getSystemCPUs()
Definition: getSystemCPUs.c:40
static ITG * nodempc1
subroutine resultsprint(co, nk, kon, ipkon, lakon, ne, v, stn, inum, stx, ielorien, norien, orab, t1, ithermal, filab, een, iperturb, fn, nactdof, iout, vold, nodeboun, ndirboun, nboun, nmethod, ttime, xstate, epn, mi, nstate_, ener, enern, xstaten, eei, set, nset, istartset, iendset, ialset, nprint, prlab, prset, qfx, qfn, trab, inotr, ntrans, nelemload, nload, ikin, ielmat, thicke, eme, emn, rhcon, nrhcon, shcon, nshcon, cocon, ncocon, ntmat_, sideload, icfd, inomat, pslavsurf, islavact, cdn, mortar, islavnode, nslavnode, ntie, islavsurf, time, ielprop, prop, veold)
Definition: resultsprint.f:19
static ITG * ipkon1
static ITG * ipompc1
static ITG calcul_qa1
void * resultsthermemmt(ITG *i)
static double * springarea1
static double * ttime1
static ITG * nalcon1
static ITG * iout1
static ITG * nk1
static ITG * nshcon1
static ITG * nplkcon1
static ITG * ithermal1
static double * pmastsurf1
#define SFREE(a)
Definition: CalculiX.h:41
static ITG * ncocon1
static double * xstiff1
static ITG * npmat1_
static double * fn1
static double * pslavsurf1
static double * reltime1
static ITG * nrhcon1
static ITG * ielmat1
subroutine resultsforc_em(nk, f, fn, nactdof, ipompc, nodempc, coefmpc, labmpc, nmpc, mi, fmpc, calcul_fn, calcul_f, inomat)
Definition: resultsforc_em.f:19
static double * t01
static double * plicon1
static ITG * iendset1
static ITG * ikmpc1
static double * xload1
static double * vold1
static ITG * ilmpc1
static ITG * istep1
static char * lakon1
int pthread_join(pthread_t thread, void **status_ptr)
void * resultsemmt(ITG *i)
static ITG * nmpc1
static ITG * nmethod1
static double * shcon1
static double * orab1
static ITG mt1
#define ITG
Definition: CalculiX.h:51
static double * cocon1
static double * time1
static double * rhcon1
static ITG * ialset1
static ITG * ncmat1_
static double * coefmpc1
static double * co1
static ITG * nplicon1
static double * xstateini1
#define NNEW(a, b, c)
Definition: CalculiX.h:39
static ITG * ne1
static double * dtime1
static ITG * ntmat1_
static ITG * iactive1
static ITG * norien1
static double * plkcon1
static double * h01
void* resultsthermemmt ( ITG i)

Definition at line 326 of file resultsinduction.c.

326  {
327 
328  ITG indexfn,indexqa,indexnal,nea,neb,nedelta;
329 
330  indexfn=*i*mt1**nk1;
331  indexqa=*i*3;
332  indexnal=*i;
333 
334  nedelta=(ITG)floor(*ne1/(double)num_cpus);
335  nea=*i*nedelta+1;
336  neb=(*i+1)*nedelta;
337  if((*i==num_cpus-1)&&(neb<*ne1)) neb=*ne1;
338 
344  npmat1_,
347  &calcul_fn1,&calcul_qa1,&nal[indexnal],&nea,&neb,ithermal1,
350  ielprop1,prop1));
351 
352  return NULL;
353 }
static ITG * iinc1
static ITG * mi1
static double * v1
static ITG * nelemload1
static ITG * nstate1_
static double * prop1
static double * qa1
static ITG num_cpus
static ITG calcul_fn1
void FORTRAN(addimdnodecload,(ITG *nodeforc, ITG *i, ITG *imdnode, ITG *nmdnode, double *xforc, ITG *ikmpc, ITG *ilmpc, ITG *ipompc, ITG *nodempc, ITG *nmpc, ITG *imddof, ITG *nmddof, ITG *nactdof, ITG *mi, ITG *imdmpc, ITG *nmdmpc, ITG *imdboun, ITG *nmdboun, ITG *ikboun, ITG *nboun, ITG *ilboun, ITG *ithermal))
static double * elcon1
static ITG * ielorien1
static double * xstate1
static double * clearini1
static char * sideload1
static char * matname1
static double * xloadold1
static ITG * nelcon1
static ITG * nload1
static ITG * ielprop1
static double * qfx1
static ITG * kon1
static ITG * iperturb1
static ITG mortar1
static ITG * nal
static ITG * nodempc1
static ITG * ipkon1
static ITG * ipompc1
static ITG calcul_qa1
static double * springarea1
static double * ttime1
static ITG * iout1
static ITG * nk1
static ITG * nshcon1
static ITG * nplkcon1
static ITG * ithermal1
static double * pmastsurf1
static ITG * ncocon1
static double * xstiff1
static ITG * npmat1_
static double * fn1
static double * pslavsurf1
static double * reltime1
static ITG * nrhcon1
static ITG * ielmat1
static double * t01
static double * plicon1
static ITG * ikmpc1
static double * xload1
static double * vold1
static ITG * ilmpc1
subroutine resultstherm(co, kon, ipkon, lakon, v, elcon, nelcon, rhcon, nrhcon, ielmat, ielorien, norien, orab, ntmat_, t0, iperturb, fn, shcon, nshcon, iout, qa, vold, ipompc, nodempc, coefmpc, nmpc, dtime, time, ttime, plkcon, nplkcon, xstateini, xstiff, xstate, npmat_, matname, mi, ncmat_, nstate_, cocon, ncocon, qfx, ikmpc, ilmpc, istep, iinc, springarea, calcul_fn, calcul_qa, nal, nea, neb, ithermal, nelemload, nload, nmethod, reltime, sideload, xload, xloadold, pslavsurf, pmastsurf, mortar, clearini, plicon, nplicon, ielprop, prop)
Definition: resultstherm.f:19
static ITG * istep1
static char * lakon1
static ITG * nmpc1
static ITG * nmethod1
static double * shcon1
static double * orab1
static ITG mt1
#define ITG
Definition: CalculiX.h:51
static double * cocon1
static double * time1
static double * rhcon1
static ITG * ncmat1_
static double * coefmpc1
static double * co1
static ITG * nplicon1
static double * xstateini1
static ITG * ne1
static double * dtime1
static ITG * ntmat1_
static ITG * norien1
static double * plkcon1

Variable Documentation

double * alcon1
static

Definition at line 35 of file resultsinduction.c.

ITG calcul_fn1
static

Definition at line 27 of file resultsinduction.c.

ITG calcul_qa1
static

Definition at line 27 of file resultsinduction.c.

double * clearini1
static

Definition at line 36 of file resultsinduction.c.

double* co1
static

Definition at line 35 of file resultsinduction.c.

double * cocon1
static

Definition at line 36 of file resultsinduction.c.

double * coefmpc1
static

Definition at line 36 of file resultsinduction.c.

double * dtime1
static

Definition at line 36 of file resultsinduction.c.

double * elcon1
static

Definition at line 35 of file resultsinduction.c.

double * fn1 =NULL
static

Definition at line 36 of file resultsinduction.c.

double * h01
static

Definition at line 36 of file resultsinduction.c.

ITG * iactive1
static

Definition at line 31 of file resultsinduction.c.

ITG * ialset1
static

Definition at line 31 of file resultsinduction.c.

ITG * ielmat1
static

Definition at line 27 of file resultsinduction.c.

ITG * ielorien1
static

Definition at line 27 of file resultsinduction.c.

ITG * ielprop1
static

Definition at line 27 of file resultsinduction.c.

ITG * iendset1
static

Definition at line 31 of file resultsinduction.c.

ITG * iinc1
static

Definition at line 27 of file resultsinduction.c.

ITG * ikmpc1
static

Definition at line 31 of file resultsinduction.c.

ITG * ilmpc1
static

Definition at line 31 of file resultsinduction.c.

ITG * iout1
static

Definition at line 27 of file resultsinduction.c.

ITG * iperturb1
static

Definition at line 27 of file resultsinduction.c.

ITG * ipkon1
static

Definition at line 27 of file resultsinduction.c.

ITG * ipompc1
static

Definition at line 31 of file resultsinduction.c.

ITG * istartset1
static

Definition at line 31 of file resultsinduction.c.

ITG * istep1
static

Definition at line 27 of file resultsinduction.c.

ITG * ithermal1
static

Definition at line 27 of file resultsinduction.c.

ITG* kon1
static

Definition at line 27 of file resultsinduction.c.

char* lakon1
static

Definition at line 25 of file resultsinduction.c.

char * matname1
static

Definition at line 25 of file resultsinduction.c.

ITG * mi1
static

Definition at line 27 of file resultsinduction.c.

ITG mortar1
static

Definition at line 31 of file resultsinduction.c.

ITG mt1
static

Definition at line 31 of file resultsinduction.c.

ITG * nal =NULL
static

Definition at line 31 of file resultsinduction.c.

ITG * nalcon1
static

Definition at line 27 of file resultsinduction.c.

ITG * ncmat1_
static

Definition at line 27 of file resultsinduction.c.

ITG * ncocon1
static

Definition at line 31 of file resultsinduction.c.

ITG * ne1
static

Definition at line 27 of file resultsinduction.c.

ITG * nelcon1
static

Definition at line 27 of file resultsinduction.c.

ITG * nelemload1
static

Definition at line 31 of file resultsinduction.c.

ITG * nk1
static

Definition at line 31 of file resultsinduction.c.

ITG * nload1
static

Definition at line 31 of file resultsinduction.c.

ITG * nmethod1
static

Definition at line 27 of file resultsinduction.c.

ITG * nmpc1
static

Definition at line 31 of file resultsinduction.c.

ITG * nodempc1
static

Definition at line 31 of file resultsinduction.c.

ITG * norien1
static

Definition at line 27 of file resultsinduction.c.

ITG * nplicon1
static

Definition at line 27 of file resultsinduction.c.

ITG * nplkcon1
static

Definition at line 27 of file resultsinduction.c.

ITG * npmat1_
static

Definition at line 27 of file resultsinduction.c.

ITG * nrhcon1
static

Definition at line 27 of file resultsinduction.c.

ITG * nshcon1
static

Definition at line 31 of file resultsinduction.c.

ITG * nstate1_
static

Definition at line 27 of file resultsinduction.c.

ITG * ntmat1_
static

Definition at line 27 of file resultsinduction.c.

ITG num_cpus
static

Definition at line 31 of file resultsinduction.c.

double * orab1
static

Definition at line 35 of file resultsinduction.c.

double * plicon1
static

Definition at line 36 of file resultsinduction.c.

double * plkcon1
static

Definition at line 36 of file resultsinduction.c.

double * pmastsurf1
static

Definition at line 36 of file resultsinduction.c.

double * prop1
static

Definition at line 36 of file resultsinduction.c.

double * pslavsurf1
static

Definition at line 36 of file resultsinduction.c.

double * qa1 =NULL
static

Definition at line 36 of file resultsinduction.c.

double * qfx1
static

Definition at line 36 of file resultsinduction.c.

double * reltime1
static

Definition at line 36 of file resultsinduction.c.

double * rhcon1
static

Definition at line 35 of file resultsinduction.c.

double * shcon1
static

Definition at line 36 of file resultsinduction.c.

char * sideload1
static

Definition at line 25 of file resultsinduction.c.

double * springarea1
static

Definition at line 36 of file resultsinduction.c.

double * sti1
static

Definition at line 36 of file resultsinduction.c.

double * t01
static

Definition at line 35 of file resultsinduction.c.

double * time1
static

Definition at line 36 of file resultsinduction.c.

double * ttime1
static

Definition at line 36 of file resultsinduction.c.

double * v1
static

Definition at line 35 of file resultsinduction.c.

double * vini1
static

Definition at line 36 of file resultsinduction.c.

double * vold1
static

Definition at line 36 of file resultsinduction.c.

double * xload1
static

Definition at line 36 of file resultsinduction.c.

double * xloadold1
static

Definition at line 36 of file resultsinduction.c.

double * xstate1
static

Definition at line 36 of file resultsinduction.c.

double * xstateini1
static

Definition at line 36 of file resultsinduction.c.

double * xstiff1
static

Definition at line 36 of file resultsinduction.c.

Hosted by OpenAircraft.com, (Michigan UAV, LLC)