| /dports/cad/calculix-ccx/CalculiX/ccx_2.18/src/ |
| H A D | umat_main.f | 20 & beta,xikl,vij,xkl,vj,ithermal,t1l,dtime,time,ttime, argument
80 & beta,xikl,vij,xkl,vj,ithermal,t1l,dtime,time,ttime,
90 & beta,xikl,vij,xkl,vj,ithermal,t1l,dtime,time,ttime,
120 & beta,xikl,vij,xkl,vj,ithermal,t1l,dtime,time,ttime,
130 & beta,xikl,vij,xkl,vj,ithermal,t1l,dtime,time,ttime,
140 & beta,xikl,vij,xkl,vj,ithermal,t1l,dtime,time,ttime,
150 & beta,xikl,vij,xkl,vj,ithermal,t1l,dtime,time,ttime,
190 & beta,xikl,vij,xkl,vj,ithermal,t1l,dtime,time,ttime,
200 & beta,xikl,vij,xkl,vj,ithermal,t1l,dtime,time,ttime,
210 & beta,xikl,vij,xkl,vj,ithermal,t1l,dtime,time,ttime,
[all …]
|
| H A D | dynresults.f | 44 if(ithermal(1).le.1) then
47 elseif(ithermal(1).eq.2) then
99 if(ithermal(1).lt.2) cycle
101 if(ithermal(1).eq.2) cycle
166 if(ithermal(1).lt.2) cycle
168 if(ithermal(1).eq.2) cycle
220 if(ithermal(1).lt.2) cycle
222 if(ithermal(1).eq.2) cycle
291 if(ithermal(1).lt.2) cycle
293 if(ithermal(1).eq.2) cycle
[all …]
|
| H A D | gen3dtemp.f | 21 & ithermal,vold,mi,t0g,t1g,nam,iamt1) argument
66 if(ithermal(1).gt.1) vold(0,node)=t0(node)
69 if(ithermal(1).gt.1) vold(0,node)=t0(node)
73 if(ithermal(1).gt.1) vold(0,node)=t0(node)
79 if(ithermal(1).gt.1) vold(0,node)=t0(node)
84 if(ithermal(1).gt.1) vold(0,node)=t0(node)
89 if(ithermal(1).gt.1) vold(0,node)=t0(node)
94 if(ithermal(1).gt.1) vold(0,node)=t0(node)
98 if(ithermal(1).gt.1) vold(0,node)=t0(node)
102 if(ithermal(1).gt.1) vold(0,node)=t0(node)
[all …]
|
| H A D | resultsini_mortar.f | 25 subroutine resultsini_mortar(nk,v,ithermal,iperturb, argument
42 & ipompc(*),nodempc(3,*),mt,nk,ithermal(*),i,j,
54 if(ithermal(1).ne.2) then
72 if(ithermal(1).gt.1) then
94 if(ithermal(1).ne.2) then
108 if(ithermal(1).gt.1) then
160 if(ithermal(1).lt.2) cycle
164 if(ithermal(1).eq.2) cycle
|
| H A D | checkconvergence.c | 105 if(*ithermal!=2){ in checkconvergence()
117 if(*ithermal>1){ in checkconvergence()
134 if(*ithermal<2){ in checkconvergence()
152 if(*ithermal==2){ in checkconvergence()
165 if(*ithermal==3){ in checkconvergence()
322 if(*ithermal==2){ in checkconvergence()
324 *ithermal=1; in checkconvergence()
332 *ithermal=3; in checkconvergence()
710 *ithermal=3; in checkconvergence()
730 if(*ithermal>1){ in checkconvergence()
[all …]
|
| H A D | materialdata_cfd.f | 20 & ntmat_,mi,cvel,vfa,cocon,ncocon,physcon,cvfa,ithermal,nface, argument
28 integer nef,i,imat,ntmat_,mi(*),ielmatf(mi(3),*),ithermal(*), local
46 & ithermal)
57 & ithermal)
72 & ithermal)
82 & ithermal)
|
| H A D | mechmodel.f | 19 subroutine mechmodel(elconloc,elas,emec,kode,emec0,ithermal, argument
52 integer kode,ithermal(*),icmd,ielas,iel,iint,nstate_,mi(*),iorien, local
70 & ithermal,icmd,beta,stre)
73 call defplas(elconloc,elas,emec,ithermal,icmd,beta,stre,
79 & ithermal,icmd,beta,stre,vj,kode,ielas,amat,t1l,dtime,
85 & ithermal,icmd,beta,stre,vj,kode,ielas,amat,t1l,dtime,
92 & xikl,vij,xkl,vj,ithermal,t1l,dtime,time,ttime,icmd,ielas,
|
| H A D | materialdata_cfd1.f | 20 & ntmat_,mi,cvel,physcon,ithermal,umel,rhcon,nrhcon,nefa,nefb)
27 integer nef,i,imat,ntmat_,mi(*),ielmatf(mi(3),*),ithermal(*),
42 & ithermal)
53 & ithermal)
|
| H A D | phys2con.f | 20 & compressible,vcon,rhcon,nrhcon,ithermal,mi,ifreesurface,ierr, argument
31 & ithermal(*),mi(*),imat,k,ifreesurface,ierr,nk local
64 if(ithermal(1).gt.1) then
75 if(ithermal(1).gt.1) then
77 & temp,ntmat_,ithermal)
|
| H A D | resultsini_em.f | 19 subroutine resultsini_em(nk,v,ithermal,filab,iperturb,f,fn, argument
40 & ipompc(*),nodempc(3,*),mt,nk,ithermal(*),i,j, local
55 if(ithermal(1).ne.2) then
74 if(ithermal(1).gt.1) then
97 if(ithermal(1).ne.2) then
115 if(ithermal(1).gt.1) then
223 if(ithermal(1).lt.2) cycle
227 if(ithermal(1).eq.2) cycle
|
| H A D | genislavactdof.f | 32 & ithermal) argument
50 & islavactdof(*),islavnode(*),ithermal(*) local
71 if(ithermal(1).gt.1)then
86 if(ithermal(1).gt.1)then
|
| H A D | storeresidual.f | 19 subroutine storeresidual(nactdof,b,fn,filab,ithermal,nk,sti,stn, argument
38 integer mi(*),nactdof(0:mi(2),*),ithermal(*),i,j,nk, local
68 if(ithermal(1).ne.2) then
76 if(ithermal(1).gt.1) then
104 if(ithermal(1).gt.1) then
|
| H A D | materialdata_cfd2.f | 20 & ntmat_,mi,vfa,cocon,ncocon,physcon,cvfa,ithermal, argument
28 integer i,imat,ntmat_,mi(*),ielmatf(mi(3),*),ithermal(*), local
50 & ithermal)
60 & ithermal)
|
| H A D | writecvg.f | 20 & ithermal) argument
26 integer istep,iinc,iit,ne,ne0,ithermal(*),icutb local
31 if(ithermal(1).eq.2) then
56 if(ithermal(1).le.1) then
|
| H A D | substructuregenerates.f | 21 & ithermal,ipoinpc,filab,ier) argument
37 & iline,ipol,inl,ipoinp(2,*),inp(3,*),ithermal(*),ipoinpc(0:*), local
59 if(ithermal(1).gt.1) then
60 ithermal(1)=1
|
| H A D | resultsprint.f | 20 & stx,ielorien,norien,orab,t1,ithermal,filab,een,iperturb,fn, argument
54 & inotr(2,*),iorienloc,iflag,nload,mt,nk,ne,ithermal(*),i, local
112 & mi(1),nstate_,ithermal,co,kon,qfx,ttime,trab,inotr,ntrans,
146 & ithermal,nactdoh,icfd,time,stn)
167 if((filab(2)(1:4).eq.'NT ').and.(ithermal(1).le.1)) then
206 & ((filab(2)(1:4).eq.'NT ').and.(ithermal(1).gt.1))) then
211 if((filab(2)(1:4).eq.'NT ').and.(ithermal(1).le.1)) then
245 & .and.(ithermal(1).ne.2))) then
353 if(((filab(9)(1:4).eq.'HFL ').and.(ithermal(1).gt.1)).or.
354 & ((filab(42)(1:3).eq.'ECD').and.(ithermal(1).eq.2))) then
[all …]
|
| H A D | greens.f | 21 & ipoinp,inp,ithermal,isolver,xboun,nboun,ipoinpc,
33 & n,key,iline,ipol,inl,ipoinp(2,*),inp(3,*),ithermal(*),isolver,
50 if(ithermal(1).gt.1) then
51 ithermal(1)=1
|
| H A D | electromagnetics.c | 276 if(*ithermal>1){ in electromagnetics()
398 if(*ithermal>1){ in electromagnetics()
870 if((*ithermal==1)||(*ithermal>=3)){ in electromagnetics()
890 if((*ithermal==1)||(*ithermal>=3)){ in electromagnetics()
1104 if(*ithermal>1){ in electromagnetics()
1290 if(*ithermal>1){ in electromagnetics()
1314 if(*ithermal<2){ in electromagnetics()
1340 if(*ithermal<2){ in electromagnetics()
1364 if(*ithermal<2){ in electromagnetics()
1378 if(*ithermal<2){ in electromagnetics()
[all …]
|
| H A D | gen3dmembrane.f | 20 & mpcfree,ikmpc,ilmpc,labmpc,nk,ithermal,i) argument
31 & ithermal(*),jstart,jend local
41 if(ithermal(2).le.1) then
44 elseif(ithermal(2).eq.2) then
|
| H A D | readinput.c | 26 ITG *ipoinp, ITG **inpp, ITG **ipoinpcp, ITG *ithermal, in readinput() argument
376 &irestartstep,&icntrl,ithermal,&nener,&nstate,&ntie, in readinput()
447 if(ithermal[1]==0){ in readinput()
448 if(initialtemperature==1)ithermal[1]=1; in readinput()
449 }else if(ithermal[1]==2){ in readinput()
450 ithermal[1]=3; in readinput()
453 if(ithermal[1]<2) ithermal[1]=ithermal[1]+2; in readinput()
455 ithermal[1]=3; in readinput()
457 ithermal[1]=3; in readinput()
459 ithermal[1]=3; in readinput()
|
| H A D | buckles.f | 20 & nforc,nload,ithermal,iprestr,nbody,t0,t1,nk,iperturb, argument
33 & nforc,nload,ithermal(*),iprestr,i,nk,iperturb(*),iline,ipol,inl, local
47 if(ithermal(1).gt.1) then
48 ithermal(1)=1
174 if(ithermal(1).eq.1) then
|
| H A D | resultsini.c | 25 void resultsini(ITG *nk,double *v,ITG *ithermal,char *filab,ITG *iperturb, in resultsini() argument
47 if(ithermal[0]!=2){ in resultsini()
68 if(ithermal[0]>1){ in resultsini()
89 if(ithermal[0]!=2){ in resultsini()
96 if(ithermal[0]>1){ in resultsini()
227 if(ithermal[0]<2) continue; in resultsini()
231 if(ithermal[0]==2) continue; in resultsini()
288 if((*nmethod==4)&&(iperturb[0]>1)&&(ithermal[0]<=1)){ in resultsini()
|
| H A D | printout.f | 21 & mi,nstate_,ithermal,co,kon,qfx,ttime,trab,inotr,ntrans, argument
63 & ((prlab(ii)(1:4).eq.'NT ').and.(ithermal(1).gt.1))) then
75 if((prlab(ii)(1:4).eq.'NT ').and.(ithermal(1).le.1)) then
188 call printoutnode(prlab,v,t1,fn,ithermal,ii,node,
192 call printoutnode(prlab,v,t1,fn,ithermal,ii,node,
197 call printoutnode(prlab,v,t1,fn,ithermal,ii,node,
311 & ielprop,prop,nelem,ithermal,orname)
317 & ielprop,prop,nelem,ithermal,orname)
324 & thicke,eme,ielprop,prop,nelem,ithermal,
517 & xmasstot,xinertot,cg,ithermal,rhcon,nrhcon,
[all …]
|
| H A D | calcrhoel.f | 20 & ithermal,mi) argument
27 integer nef,i,nrhcon(*),imat,ithermal(*),ntmat_,mi(*), local
36 & ithermal)
|
| H A D | complexfrequencys.f | 21 & ipoinp,inp,ithermal,xboun,nboun,ipoinpc,mcs,cs,cyclicsymmetry, argument
32 & n,key,iline,ipol,inl,ipoinp(2,*),inp(3,*),nev,ithermal(*), local
49 if(ithermal(1).gt.1) then
50 ithermal(1)=1
|