| /dports/cad/calculix-ccx/CalculiX/ccx_2.18/src/ |
| H A D | solidsections.f | 20 & ialset,nset,ielmat,matname,nmat,ielorien,orname,norien,
174 if(ielorien(1,k).lt.0) then
183 & (orab(7,-ielorien(1,k)).ne.0.d0)) then
184 ielorien(1,k)=-ielorien(1,k)
186 ielorien(1,k)=iorientation
189 ielorien(1,k)=iorientation
207 if(ielorien(1,k).lt.0) then
216 & (orab(7,-ielorien(1,k)).ne.0.d0)) then
217 ielorien(1,k)=-ielorien(1,k)
219 ielorien(1,k)=iorientation
[all …]
|
| H A D | extrapolate_u.f | 20 & ne,mi,ndim,orab,ielorien,co,iorienloc,cflag, argument
34 & iorienloc,ielorien(mi(3),*),ielmat(mi(3),*),ielprop(*) local
41 & ne,mi,ndim,orab,ielorien,co,iorienloc,cflag,
45 & ne,mi,ndim,orab,ielorien,co,iorienloc,cflag,
49 & ne,mi,ndim,orab,ielorien,co,iorienloc,cflag,
|
| H A D | printoutint.f | 20 & mi,nstate_,ii,nelem,qfx,orab,ielorien,norien,co,konf,
66 iorien=max(0,ielorien(1,nelel))
80 if(ielorien(k,nelel).ne.0) then
81 iorien=max(0,ielorien(k,nelel))
137 if(ielorien(k,nelel).ne.0) then
138 iorien=max(0,ielorien(k,nelel))
391 iorien=max(0,ielorien(ilayer,nelel))
396 iorien=max(0,ielorien(ilayer,nelel))
447 iorien=max(0,ielorien(ilayer,nelel))
452 iorien=max(0,ielorien(ilayer,nelel))
[all …]
|
| H A D | distributions.f | 21 & set,istartset,iendset,ialset,nset,ne,ielorien,mi) argument
34 & iendset(*),ialset(*),nset,l,ne,mi(*),ielorien(mi(3),*),ipos local
95 if(l.gt.0) ielorien(1,l)=-norien
126 ielorien(1,l)=-norien
132 ielorien(1,l)=-norien
|
| H A D | extrapolateshell.f | 20 & ne,mi,ndim,orab,ielorien,co,iorienloc,cflag,
36 & ndim,ielorien(mi(3),*),ielmat(mi(3),*),ielprop(*),iflag
57 & nfield,nk,ne,mi,ndim,orab,ielorien,co,iorienloc,cflag,
61 & nfield,nk,ne,mi,ndim,orab,ielorien,co,iorienloc,cflag,
|
| H A D | elemperorien.f | 19 subroutine elemperorien(ipoorel,iorel,ielorien,ne,mi) argument
23 integer ipoorel(*),iorel(2,*),i,ne,mi(*),ielorien(mi(3),*), local
33 iorien=max(0,ielorien(1,i))
|
| H A D | resultsprint.f | 20 & stx,ielorien,norien,orab,t1,ithermal,filab,een,iperturb,fn, argument
51 integer kon(*),inum(*),iperm(20),mi(*),ielorien(mi(3),*), local
113 & orab,ielorien,norien,nk,ne,inum,filab,vold,ikin,ielmat,thicke,
135 & ne,mi(1),ndim,orab,ielorien,co,iorienloc,cflag,
257 & ne,mi(1),ndim,orab,ielorien,co,iorienloc,cflag,
277 & ne,mi(1),ndim,orab,ielorien,co,iorienloc,cflag,
296 & ne,mi(1),ndim,orab,ielorien,co,iorienloc,cflag,
311 & ne,mi(1),ndim,orab,ielorien,co,iorienloc,cflag,
326 & ne,mi(1),ndim,orab,ielorien,co,iorienloc,cflag,
346 & ne,mi(1),ndim,orab,ielorien,co,iorienloc,cflag,
[all …]
|
| H A D | printoutintfluidfem.f | 20 & mi,ii,nelem,qfx,orab,ielorien,norien,co,kon,
37 & ielorien(mi(3),*),norien,kon(*),konl,indexe,m,iorien,iflag,
70 iorien=max(0,ielorien(1,nelef))
84 if(ielorien(k,nelef).ne.0) then
85 iorien=max(0,ielorien(k,nelef))
141 if(ielorien(k,nelef).ne.0) then
142 iorien=max(0,ielorien(k,nelef))
393 iorien=max(0,ielorien(ilayer,nelef))
398 iorien=max(0,ielorien(ilayer,nelef))
450 iorien=max(0,ielorien(ilayer,nelef))
[all …]
|
| H A D | masss.f | 22 & nset,ielmat,ielorien,ipoinpc,mi,iaxial,ier)
36 & ialset(*),ipos,nset,j,k,ielmat(mi(3),*),ielorien(mi(3),*),
139 ielorien(1,ialset(j))=0
146 ielorien(1,k)=0
|
| H A D | gaps.f | 23 & nset,ielmat,ielorien,ipoinpc,mi,ier) argument
37 & ialset(*),ipos,nset,j,k,ielmat(mi(3),*),ielorien(mi(3),*), local
158 ielorien(1,ialset(j))=0
165 ielorien(1,k)=0
|
| H A D | membranesections.f | 20 & ialset,nset,ielmat,matname,nmat,ielorien,orname,norien, argument
37 & ielorien(mi(3),*),kon(*),ipkon(*),indexe,irstrt(*),nset,nmat, local
190 ielorien(1,ialset(j))=iorientation
212 ielorien(1,k)=iorientation
314 ielorien(nlayer,ialset(j))=iorientation
340 ielorien(nlayer,k)=iorientation
|
| H A D | resultsmech_u.f | 21 & ielmat,ielorien,norien,orab,ntmat_,t0,t1,ithermal,prestr, argument
38 & ielorien(mi(3),*),ntmat_,ipkon(*),ne0, local
65 & ielmat,ielorien,norien,orab,ntmat_,t0,t1,ithermal,prestr,
78 & ielmat,ielorien,norien,orab,ntmat_,t0,t1,ithermal,prestr,
92 & ielmat,ielorien,norien,orab,ntmat_,t0,t1,ithermal,prestr,
|
| H A D | shellsections.f | 20 & ialset,nset,ielmat,matname,nmat,ielorien,orname,norien,
37 & ielorien(mi(3),*),kon(*),ipkon(*),indexe,irstrt(*),nset,nmat,
209 ielorien(1,ialset(j))=iorientation
241 ielorien(1,k)=iorientation
339 ielorien(nlayer,ialset(j))=iorientation
366 ielorien(nlayer,k)=iorientation
|
| H A D | changesolidsections.f | 20 & iendset,ialset,nset,ielmat,matname,nmat,ielorien,orname,norien, argument
35 & ielorien(mi(3),*),kon(*),ipkon(*),indexe,irstrt(*),nset,nmat, local
170 if(norien.gt.0) ielorien(1,ialset(j))=iorientation
187 if(norien.gt.0) ielorien(1,k)=iorientation
|
| H A D | printoutfluidfem.f | 22 & orab,ielorien,norien,vold,ielmat,
37 & nelem,kon(*),inotr(2,*),ntrans,ielorien(mi(3),*),norien,
192 & orab,ielorien,norien,co,kon,ielmat,thicke,
198 & ielorien,norien,co,kon,ielmat,thicke,
205 & qfx,orab,ielorien,norien,co,kon,ielmat,
|
| H A D | e_c3d_u.f | 21 & alzero,ielmat,ielorien,norien,orab,ntmat_, argument
59 & ielmat(mi(3),*),ielorien(mi(3),*),ipkon(*),indexe, local
80 & alzero,ielmat,ielorien,norien,orab,ntmat_,
93 & alzero,ielmat,ielorien,norien,orab,ntmat_,
106 & alzero,ielmat,ielorien,norien,orab,ntmat_,
|
| H A D | checkconvergence.c | 41 ITG *inotr, ITG *ntrans, double *orab, ITG *ielorien, ITG *norien, in checkconvergence() argument
375 ielorien,co,itg,ntg,vold,ielmat,thicke,ielprop,prop)); in checkconvergence()
382 trab,inotr,ntrans,orab,ielorien,norien,description, in checkconvergence()
495 ipkon,inum,kon,lakon,ne,mi,orab,ielorien,co,itg,ntg,vold, in checkconvergence()
503 trab,inotr,ntrans,orab,ielorien,norien,description, in checkconvergence()
598 ielorien,co,itg,ntg,vold,ielmat,thicke,ielprop,prop)); in checkconvergence()
605 trab,inotr,ntrans,orab,ielorien,norien,description, in checkconvergence()
660 ielorien,co,itg,ntg,vold,ielmat,thicke,ielprop,prop)); in checkconvergence()
691 ielorien,co,itg,ntg,vold,ielmat,thicke,ielprop,prop)); in checkconvergence()
770 ielorien,co,itg,ntg,vold,ielmat,thicke,ielprop,prop)); in checkconvergence()
[all …]
|
| H A D | storeresidual.f | 20 & ipkon,inum,kon,lakon,ne,mi,orab,ielorien,co, argument
41 & ne,ielorien,itg(*),ntg,mt,nlabel local
101 & ne,mi(1),ndim,orab,ielorien,co,iorienglob,cflag,
|
| H A D | dashpots.f | 23 & nset,ielmat,ielorien,ipoinpc,mi,ier) argument
39 & ialset(*),ipos,nset,j,k,ielmat(mi(3),*),ielorien(mi(3),*), local
227 ielorien(1,ialset(j))=0
234 ielorien(1,k)=0
|
| H A D | checkdivergence.c | 39 ITG *inotr, ITG *ntrans, double *orab, ITG *ielorien, ITG *norien, in checkdivergence() argument
95 ielorien,co,itg,ntg,vold,ielmat,thicke,ielprop,prop)); in checkdivergence()
102 trab,inotr,ntrans,orab,ielorien,norien,description, in checkdivergence()
126 ielorien,co,itg,ntg,vold,ielmat,thicke,ielprop,prop)); in checkdivergence()
133 trab,inotr,ntrans,orab,ielorien,norien,description, in checkdivergence()
|
| H A D | beamgeneralsections.f | 20 & iendset,ialset,nset,ielmat,matname,nmat,ielorien,orname, argument
41 & ipoinpc(0:*),ielorien(mi(3),*),ipkon(*),iline,ipol,inl,lprop, local
201 ielorien(1,ialset(j))=iorientation
225 ielorien(1,k)=iorientation
252 ielorien(1,ialset(j))=iorientation
269 ielorien(1,k)=iorientation
|
| H A D | extrapolate_us3.f | 20 & ne,mi,ndim,orab,ielorien,co,iorienloc,cflag, argument
105 & iorienloc,ielorien(mi(3),*),ielmat(mi(3),*),ielprop(*) local
|
| H A D | extrapolate_us45.f | 20 & ne,mi,ndim,orab,ielorien,co,iorienloc,cflag,
105 & iorienloc,ielorien(mi(3),*),ielmat(mi(3),*),ielprop(*)
|
| H A D | extrapolateshell_us45.f | 20 & nfield,nk,ne,mi,ndim,orab,ielorien,co,iorienloc,cflag, argument
104 & iorienloc,ielorien(mi(3),*),ielmat(mi(3),*),ielprop(*),iflag local
|
| H A D | extrapolate_u1.f | 20 & ne,mi,ndim,orab,ielorien,co,iorienloc,cflag, argument
109 & iorienloc,ielorien(mi(3),*),ielmat(mi(3),*),ielprop(*) local
|