| /dports/cad/calculix-ccx/CalculiX/ccx_2.18/src/ |
| H A D | umat_main.f | 79 & iel,iint,kode,elconloc,emec,emec0,
89 & iel,iint,kode,elconloc,emec,emec0,
99 & iel,iint,kode,elconloc,emec,
109 & iel,iint,kode,elconloc,emec,
119 & iel,iint,kode,elconloc,emec,emec0,
129 & elconloc,emec,emec0,
159 & iel,iint,kode,elconloc,emec,
170 & iel,iint,kode,elconloc,emec,
180 & iel,iint,kode,elconloc,emec,
199 & elconloc,emec,emec0,
[all …]
|
| H A D | mechmodel.f | 19 subroutine mechmodel(elconloc,elas,emec,kode,emec0,ithermal, argument
55 real*8 elconloc(*),elas(21),emec(*),emec0(*),beta(*),stre(*), local
64 call linel(kode,mattyp,beta,emec,stre,elas,elconloc,
68 call rubber(elconloc,elas,emec,kode,didc,d2idc2,
73 call defplas(elconloc,elas,emec,ithermal,icmd,beta,stre,
78 call incplas(elconloc,plconloc,xstate,xstateini,elas,emec,
83 call incplas_lin(elconloc,plconloc,xstate,xstateini,elas,
91 call umat_main(amat,iel,iint,kode,elconloc,emec,emec0,beta,
|
| H A D | materialdata_em.f | 19 & imat,ntmat_,t1l,elconloc,ncmat_,alpha) argument
30 & elconloc(21) local
72 elconloc(k)=elcon(k,1,imat)
76 elconloc(k)=elcon(k,1,imat)
80 elconloc(k)=elcon(k,id,imat)
84 elconloc(k)=elcon(k,id,imat)+
|
| H A D | materialdata_sp.f | 19 & elconloc,kode,plicon,nplicon,npmat_,plconloc,ncmat_) argument
28 real*8 elcon(0:ncmat_,ntmat_,*),t1l,elconloc(*), local
95 elconloc(k)=elcon(k,1,imat)
99 elconloc(k)=elcon(k,1,imat)
103 elconloc(k)=elcon(k,id,imat)
107 elconloc(k)=elcon(k,id,imat)+
|
| H A D | defplas.f | 19 subroutine defplas(elconloc,elas,emec,ithermal,icmd, argument
34 real*8 elconloc(*),elas(*),emec(*),beta(*),s(6),al, local
50 ee=elconloc(1)
51 un=elconloc(2)
52 s0=elconloc(3)
53 xn=elconloc(4)
54 al=elconloc(5)
|
| H A D | umat_lin_iso_el.f | 19 subroutine umat_lin_iso_el(amat,iel,iint,kode,elconloc,emec,emec0, argument
122 real*8 elconloc(*),stiff(21),emec(6),emec0(6),beta(6),stre(6),
132 e=elconloc(1)
133 un=elconloc(2)
|
| H A D | dashdamp.f | 20 & ncmat_,ntmat_,nope,lakonl,t0l,t1l,kode,elconloc,plicon, argument
33 & elcon(0:ncmat_,ntmat_,*),t0l,t1l,elconloc(*),damp, local
63 & elconloc,kode,plicon,nplicon,npmat_,plconloc,ncmat_)
68 damp=elconloc(1)
|
| H A D | umat_undo_nlgeom_lin_el.f | 20 & elconloc,emec,emec0,beta,xokl,voj,xkl,vj,ithermal,t1l, argument
144 real*8 elconloc(*),stiff(21),emec(6),emec0(6),beta(6),stre(6), local
229 call linel(nconstants,mattyp,beta,emec,stre,stiff,elconloc,
245 e=elconloc(1)
246 un=elconloc(2)
|
| H A D | springstiff_n2f.f | 20 & ncmat_,ntmat_,nope,lakonl,t1l,kode,elconloc,plicon,
42 & xs2(3,7),t1l,elconloc(21),plconloc(802),xk,fk,
96 xk=elconloc(1)
133 dd=elconloc(1)
134 xn(1)=elconloc(2)
135 xn(2)=elconloc(3)
136 xn(3)=elconloc(4)
137 xk=elconloc(5)
139 eps=pi*elconloc(6)/xk
194 xk=elconloc(1)
[all …]
|
| H A D | materialdata_me.f | 20 & alzero,mattyp,t0l,t1l,ihyper,istiff,elconloc,eth,kode,plicon, argument
43 & skl(3,3),xa(3,3),elconloc(*),emax,pgauss(3), local
181 elconloc(k)=elcon(k,1,imat)
185 elconloc(k)=elcon(k,1,imat)
392 elconloc(k)=elcon(k,1,imat)
396 elconloc(k)=elcon(k,1,imat)
400 elconloc(k)=elcon(k,id,imat)
404 elconloc(k)=elcon(k,id,imat)+
|
| H A D | linel.f | 19 subroutine linel(kode,mattyp,beta,emec,stre,elas,elconloc, argument
30 & elconloc(*),emax,ya(3,3,3,3),orab(7,*),skl(3,3),e,un,
52 elas(i)=elconloc(i)
78 elas(i)=elconloc(i)
99 elas(i)=elconloc(i)
|
| H A D | springforc_n2f.f | 20 & elas,fnl,ncmat_,ntmat_,nope,lakonl,t1l,kode,elconloc, argument
41 & shp2(7,9),xi,et,elconloc(*),plconloc(802),xk,fk,dd,val, local
108 & elconloc,kode,plicon,nplicon,npmat_,plconloc,ncmat_)
110 dd=elconloc(1)
111 xn(1)=elconloc(2)
112 xn(2)=elconloc(3)
113 xn(3)=elconloc(4)
114 xk=elconloc(5)
116 eps=pi*elconloc(6)/xk
341 & elconloc,kode,plicon,nplicon,npmat_,plconloc,ncmat_)
|
| H A D | e_c3d_em.f | 55 & elcon(0:ncmat_,ntmat_,*),elconloc(21),sigma, local
302 & imat,ntmat_,t1l,elconloc,ncmat_,alpha)
306 uminv=weight/elconloc(1)
307 um=weight*elconloc(1)
315 if((int(elconloc(2)).eq.2).or.(int(elconloc(2)).eq.3))
338 if((int(elconloc(2)).eq.2).and.mass) then
356 else if(int(elconloc(2)).eq.1) then
371 if((rhsi).and.(int(elconloc(2)).eq.1)) then
393 m=int(elconloc(2))
|
| H A D | calcspringforc.f | 29 real*8 t1l,elcon(0:ncmat_,ntmat_,*),elconloc(21),plconloc(802), local
38 & elconloc,kode,plicon,nplicon,npmat_,plconloc,ncmat_)
43 xk=elconloc(1)
|
| H A D | incplas_lin.f | 19 subroutine incplas_lin(elconloc,plconloc,xstate,xstateini, argument
43 real*8 elconloc(*),elas(21),emec(6),beta(6),stre(6), local
74 ee=elconloc(1)
75 un=elconloc(2)
99 if(elconloc(3).lt.0.d0) then
103 xxa=elconloc(3)*(ttime+time)**elconloc(5)
105 xxn=elconloc(4)
|
| H A D | umat_ideal_gas.f | 19 subroutine umat_ideal_gas(amat,iel,iint,kode,elconloc,emec,emec0, argument
131 real*8 elconloc(*),stiff(21),emec(6),emec0(6),beta(6),stre(6),
141 rho0r=elconloc(1)
|
| H A D | umat_user.f | 19 subroutine umat_user(amat,iel,iint,kode,elconloc,emec,emec0, argument
134 real*8 elconloc(*),stiff(21),emec(6),emec0(6),beta(6),stre(6), local
|
| H A D | umat_ciarlet_el.f | 23 subroutine umat_ciarlet_el(amat,iel,iint,kode,elconloc,emec,emec0, argument
123 real*8 elconloc(*),stiff(21),emec(6),emec0(6),beta(6),stre(6),
136 e=elconloc(1)
137 un=elconloc(2)
|
| H A D | umat_undo_nlgeom_lin_iso_el.f | 20 & elconloc,emec,emec0,beta,xokl,voj,xkl,vj,ithermal,t1l, argument
147 real*8 elconloc(*),stiff(21),emec(6),emec0(6),beta(6),stre(6), local
285 e=elconloc(1)
286 un=elconloc(2)
|
| H A D | umat_single_crystal.f | 292 c1111=elconloc(1)
293 c1122=elconloc(2)
294 c1212=elconloc(3)
802 ck(i)=elconloc(4)
803 cn(i)=elconloc(5)
804 c(i)=elconloc(6)
805 d(i)=elconloc(7)
809 q(i)=elconloc(11)
810 b(i)=elconloc(12)
818 c(i)=elconloc(15)
[all …]
|
| H A D | umat_tension_only.f | 20 & amat,iel,iint,kode,elconloc,emec,emec0, argument
135 real*8 elconloc(*),stiff(21),emec(6),emec0(6),beta(6),stre(6), local
158 if(elconloc(1).lt.1.d-30) then
164 if(elconloc(2).lt.1.d-30) then
169 young=elconloc(1)
170 eps=elconloc(2)*pi/young
|
| H A D | resultsem.f | 40 & elconloc(21),xi,et,ze,xsj,t1l,dtime,weight,xsj2(3),shp2(7,9),
259 & imat,ntmat_,t1l,elconloc,ncmat_,alpha)
261 um=elconloc(1)
263 if(int(elconloc(2)).eq.1) then
289 if(int(elconloc(2)).eq.2) then
330 m=int(elconloc(2))
|
| H A D | umat_compression_only.f | 20 & amat,iel,iint,kode,elconloc,emec,emec0, argument
135 real*8 elconloc(*),stiff(21),emec(6),emec0(6),beta(6),stre(6), local
158 if(elconloc(1).lt.1.d-30) then
164 if(elconloc(2).lt.1.d-30) then
169 young=elconloc(1)
170 eps=elconloc(2)*pi/young
|
| H A D | springstiff_f2f_th.f | 20 & ncmat_,ntmat_,nope,lakonl,kode,elconloc,plicon, argument
41 & xi,et,dpresdoverlap,xs2(3,7),elconloc(21),plconloc(802), local
189 & elconloc,kode,plicon,nplicon,npmat_,plconloc,ncmat_)
217 & elconloc,kode,plkcon,nplkcon,npmat_,plconloc,ncmat_)
|
| H A D | springforc_f2f_th.f | 20 & tnl,ncmat_,ntmat_,nope,lakonl,kode,elconloc, argument
42 & xi,et,elconloc(21),plconloc(802),xk,xiso(20),yiso(20), local
199 & elconloc,kode,plicon,nplicon,npmat_,plconloc,ncmat_)
227 & elconloc,kode,plkcon,nplkcon,npmat_,plconloc,ncmat_)
|