| /dports/cad/calculix-ccx/CalculiX/ccx_2.18/src/ |
| H A D | printoutint.f | 64 iorien=0
73 iorien=0
78 iorien=0
130 iorien=0
135 iorien=0
386 iorien=0
400 if(iorien.eq.0) then
442 iorien=0
498 iorien=0
564 iorien=0
[all …]
|
| H A D | umat_main.f | 22 & iorien,pgauss,orab,pnewdt,istep,iinc,ipkon,nmethod, argument
49 & iorien,pgauss,orab,istep,iinc,pnewdt,nmethod,iperturb)
56 & iorien,pgauss,orab,istep,iinc,pnewdt,nmethod,iperturb)
65 & iorien,pgauss,orab,istep,iinc,pnewdt,nmethod,iperturb)
82 & iorien,pgauss,orab,nmethod,pnewdt)
92 & iorien,pgauss,orab,nmethod,pnewdt,depvisc)
132 & iorien,pgauss,orab,eloc,nlgeom_undo)
192 & iorien,pgauss,orab,pnewdt,ipkon)
202 & iorien,pgauss,orab,eloc,nlgeom_undo)
212 & iorien,pgauss,orab,eloc,nlgeom_undo)
[all …]
|
| H A D | printoutintfluidfem.f | 68 iorien=0
70 iorien=max(0,ielorien(1,nelef))
77 iorien=0
82 iorien=0
134 iorien=0
139 iorien=0
388 iorien=0
402 if(iorien.eq.0) then
434 & orname(iorien)(1:20)
445 iorien=0
[all …]
|
| H A D | orientations.f | 33 & ipoinp(2,*),inp(3,*),ipoinpc(0:*),iaxis,j,ier,idis,iorien local
195 do iorien=1,norien
196 if(orname(iorien).eq.distname) then
198 orab(7,iorien)=system
199 orname(iorien)=oriename
205 if(orab(7,iorien).lt.0.d0) then
215 call transformatrix(orab(1,iorien),p,a)
243 orab(i,iorien)=0.d0
245 orab(i,iorien)=orab(i,iorien)+c(i,j)*a(j,1)
253 orab(i+3,iorien)=0.d0
[all …]
|
| H A D | elemperorien.f | 24 & iorelfree,iorien local
33 iorien=max(0,ielorien(1,i))
34 if(iorien.eq.0) cycle
36 iorel(2,iorelfree)=ipoorel(iorien)
37 ipoorel(iorien)=iorelfree
|
| H A D | writedeigdx.f | 29 integer idesvar,ndesi,iorien,iangle,iev local
41 iorien=(idesvar-1)/3+1
50 write(5,'(a80,1x,a5,1x,e11.4)') orname(iorien),angle,
|
| H A D | thermmodel.f | 21 & iorien,pgauss,orab,t1l,t1lold,vold,co,lakonl,konl, argument
29 integer iel,iint,kode,mi(*),nstate_,iorien,ntgrd,ncoconst, local
59 if((kode.eq.3).and.(iorien.eq.0)) then
75 if(iorien.ne.0) then
81 call transformatrix(orab(1,iorien),pgauss,skl)
|
| H A D | mechmodel.f | 22 & iorien,pgauss,orab,eloc,mattyp,pnewdt,istep,iinc,ipkon, argument
52 integer kode,ithermal(*),icmd,ielas,iel,iint,nstate_,mi(*),iorien, local
65 & iorien,orab,pgauss)
93 & mi(1),nstate_,xstateini,xstate,stre,elas,iorien,pgauss,
|
| H A D | linel.f | 20 & iorien,orab,pgauss)
27 & iorien,i,kode
73 if((kode.eq.9).and.(iorien.eq.0)) then
104 if(iorien.ne.0) then
108 call transformatrix(orab(1,iorien),pgauss,skl)
|
| H A D | springforc_n2f.f | 35 & iorien,idof,idof1,idof2,mscalmethod local
136 iorien=max(0,ielorien(1,nelem))
138 iorien=0
141 if(iorien.eq.0) then
147 call transformatrix(orab(1,iorien),xl(1,1),a)
175 iorien=max(0,ielorien(1,nelem))
177 iorien=0
180 if(iorien.eq.0) then
188 call transformatrix(orab(1,iorien),xl(1,1),a)
192 call transformatrix(orab(1,iorien),xl(1,2),a)
|
| H A D | umat_abaqus.f | 22 & iorien,pgauss,orab,istep,kinc,pnewdt,nmethod,iperturb) argument
140 & iorien,nmethod,iperturb(*),istep, local
202 if(iorien.ne.0) then
203 call transformatrix(orab(1,iorien),pgauss,skl)
305 if(iorien.ne.0) then
357 if(iorien.ne.0) then
|
| H A D | gen3dfrom2d.f | 48 & nope,neworien(0:norien),iorien,ipos,ielorien(mi(3),*) local
545 iorien=max(0,ielorien(j,i))
550 if(neworien(iorien).gt.0) then
551 ielorien(j,i)=neworien(iorien)
605 if(iorien.eq.0) then
616 call transformatrix(orab(1,iorien),p,a)
668 if(iorien.gt.0) then
669 ipos=index(orname(iorien),' ')
670 orname(norien)(1:ipos-1)=orname(iorien)(1:ipos-1)
688 neworien(iorien)=norien
|
| H A D | umat_user.f | 22 & iorien,pgauss,orab,pnewdt,ipkon) argument
131 integer ithermal(*),icmd,kode,ielas,iel,iint,nstate_,mi(*),iorien, local
|
| H A D | extrapolatefem.f | 34 & iorienloc,iorien,ielorien(mi(3),*),konl, local
104 iorien=ielorien(1,i)
154 if(iorien.eq.0) then
175 call transformatrix(orab(1,iorien),coords(1,j),a)
183 call transformatrix(orab(1,iorien),coords(1,j),a)
|
| H A D | objective_mass_dx.f | 36 & imat,mint3d,iorien,ilayer,nlayer,ki,kl,istartdesi(*), local
129 iorien=max(0,ielorien(1,i))
131 iorien=0
436 iorien=max(0,ielorien(ilayer,i))
438 iorien=0
498 iorien=max(0,ielorien(ilayer,i))
500 iorien=0
|
| H A D | materialdata_th.f | 18 subroutine materialdata_th(cocon,ncocon,imat,iorien,pgauss,orab, argument
27 integer ncocon(2,*),imat,iorien,k,mattyp,mi(*), local
42 if((ncond.le.-100).or.(iorien.ne.0)) ncond=6
|
| H A D | results_se.c | 81 intpointvart,mt=mi[1]+1,i,j,idesvar,iorien,idir,im, in results_se() local
237 iorien=(idesvar-1)/3; in results_se()
241 memcpy(&orabsav[0],&orab[7*iorien],sizeof(double)*7); in results_se()
245 FORTRAN(transformatrix,(&orab[7*iorien],pgauss,a)); in results_se()
250 idir=(idesvar-1)-iorien*3; in results_se()
262 for(i=0;i<6;i++){orab[7*iorien+i]=a[i];} in results_se()
301 memcpy(&orab[7*iorien],&orabsav[0],sizeof(double)*7); in results_se()
|
| H A D | e_c3d_us3.f | 228 & ntmat_,nope,norien,ihyper,iexpl,kode,imat,iorien,istiff, local
308 iorien=max(0,ielorien(1,nelem))
310 iorien=0
343 & imat,amat,iorien,coords,orab,ntmat_,elas,rho,
|
| H A D | springstiff_n2f.f | 36 & norien,nelem,idof,idof1,idof2,iorien
169 iorien=max(0,ielorien(1,nelem))
171 iorien=0
174 if(iorien.eq.0) then
180 call transformatrix(orab(1,iorien),xl(1,1),a)
228 iorien=max(0,ielorien(1,nelem))
230 iorien=0
233 if(iorien.eq.0) then
241 call transformatrix(orab(1,iorien),xl(1,1),a)
245 call transformatrix(orab(1,iorien),xl(1,2),a)
|
| H A D | umat_elastic_fiber.f | 23 & nstate_,xstateini,xstate,stre,stiff,iorien,pgauss,orab)
122 & j,k,l,m,n,ioffset,nt,kk(84),iorien
141 if(iorien.gt.0) then
142 call transformatrix(orab(1,iorien),pgauss,skl)
190 if(iorien.gt.0) then
|
| H A D | resultsmech_us3.f | 217 & nal,icmd,ihyper,nmethod,kode,imat,iorien,ielas, local
277 iorien = max(0,ielorien(1,i))
279 iorien = 0
348 & nalcon,imat,amat,iorien,pgauss,orab,ntmat_,
383 & iorien,orab,pgauss)
459 & nalcon,imat,amat,iorien,coords,orab,ntmat_,elas,rho,
|
| H A D | umat_undo_nlgeom_lin_el.f | 22 & stre,stiff,iorien,pgauss,orab,eloc,nlgeom_undo) argument
141 integer ithermal(*),icmd,kode,ielas,iel,iint,nstate_,mi(*),iorien, local
230 & iorien,orab,pgauss)
|
| H A D | call_external_umat_user.c | 83 const ccxint* const iorien, in call_external_umat_user_()
99 STRESS,DDSDDE,iorien,pgauss,orab,PNEWDT, in call_external_umat_user_()
|
| H A D | e_c3d_u1.f | 228 & ntmat_,nope,norien,ihyper,iexpl,kode,imat,iorien,istiff,
255 iorien=max(0,ielorien(1,nelem))
257 iorien=0
395 if(iorien.gt.0) then
418 & imat,amat,iorien,coords,orab,ntmat_,elas,rho,
|
| H A D | materialdata_me.f | 19 & imat,amat,iorien,pgauss,orab,ntmat_,elas,rho,iel,ithermal, argument
35 & imat,iorien,ithermal(*),j,k,mattyp,kal(2,6),j1,j2,j3,j4, local
60 if((nelas.lt.0).or.((nelas.ne.2).and.(iorien.ne.0))) nelas=21
414 if((iorien.ne.0).and.(nalcon(1,imat).gt.1)) then
418 call transformatrix(orab(1,iorien),pgauss,skl)
|