Home
last modified time | relevance | path

Searched refs:xforc (Results 1 – 25 of 62) sorted by relevance

123

/dports/cad/calculix-ccx/CalculiX/ccx_2.18/src/
H A Dmafillsmforc.f19 subroutine mafillsmforc(nforc,ndirforc,nodeforc,xforc,nactdof, argument
31 real*8 xforc(*),fext(*),coefmpc(*),fnext(0:mi(2),*),trab(7,*), local
59 & fnext(ndirforc(i),nodeforc(1,i))+xforc(i)
63 fext(jdof)=fext(jdof)+xforc(i)
79 & coefmpc(index)*xforc(i)/coefmpc(ist)
99 fnext(j,node)=fnext(j,node)+a(j,idir)*xforc(i)
106 fext(jdof)=fext(jdof)+a(j,idir)*xforc(i)
123 & coefmpc(index)*a(j,idir)*xforc(i)
H A Drhsnodef.f20 & ipompc,nodempc,coefmpc,nmpc,nodeforc,ndirforc,xforc, argument
39 real*8 co(3,*),coefmpc(*),xforc(*), local
53 if(dabs(xforc(i)).lt.1.d-30) cycle
70 fext(jdof)=fext(jdof)+xforc(i)
102 & coefmpc(index)*xforc(i)/coefmpc(ist)
135 fext(jdof)=fext(jdof)+a(j,idir)*xforc(i)
167 & coefmpc(index)*a(j,idir)*xforc(i)/
200 call mafillsmforc(nforc,ndirforc,nodeforc,xforc,nactdof,
H A Dforcadd.f19 subroutine forcadd(node,i,val,nodeforc,ndirforc,xforc, argument
37 real*8 xforc(*),val,trab(7,*),a(3,3),co(3,*)
92 xforc(k)=xforc(k)+val
94 xforc(k)=val
116 xforc(nforc)=val
H A Daddimdnodecload.f19 subroutine addimdnodecload(nodeforc,iforc,imdnode,nmdnode,xforc, argument
35 real*8 xforc(*) local
41 if((xforc(iforc).lt.1.2357111318d0).and.
42 & (xforc(iforc).gt.1.2357111316d0)) then
H A Dtempload.f58 real*8 xforc(*),xforcact(*),xload(2,*),xloadact(2,*),
227 if((xforc(i).lt.1.2357111318d0).and.
228 & (xforc(i).gt.1.2357111316d0)) then
268 if((xforc(i).lt.1.2357111318d0).and.
269 & (xforc(i).gt.1.2357111316d0)) then
286 elseif((xforc(i).lt.1.9232931375d0).and.
287 & (xforc(i).gt.1.9232931373d0)) then
323 & (xforc(i)-xforcold(i))*reltime
325 xforcact(i)=xforc(i)*ampli(iamforci)
329 & (xforc(i)-xforcold(i))*reltime
[all …]
H A Dtempload_em.f58 real*8 xforc(*),xforcact(*),xload(2,*),xloadact(2,*), local
228 if((xforc(i).lt.1.2357111318d0).and.
229 & (xforc(i).gt.1.2357111316d0)) then
268 if((xforc(i).lt.1.2357111318d0).and.
269 & (xforc(i).gt.1.2357111316d0)) then
285 elseif((xforc(i).lt.1.9232931375d0).and.
286 & (xforc(i).gt.1.9232931373d0)) then
322 & (xforc(i)-xforcold(i))*reltime
324 xforcact(i)=xforc(i)*ampli(iamforci)
328 & (xforc(i)-xforcold(i))*reltime
[all …]
H A Dtemploadfem.f19 subroutine temploadfem(xforcold,xforc,xforcact,iamforc,nforc, argument
51 real*8 xforc(*),xforcact(*),xload(2,*),xloadact(2,*), local
200 if((xforc(i).lt.1.2357111318d0).and.
201 & (xforc(i).gt.1.2357111316d0)) then
238 if((xforc(i).lt.1.2357111318d0).and.
239 & (xforc(i).gt.1.2357111316d0)) then
264 xforcact(i)=xforc(i)*ampli(iamforci)
267 & (xforc(i)-xforcold(i))*reltime
269 xforcact(i)=xforc(i)
H A Dtemploaddiff.f19 subroutine temploaddiff(xforcold,xforc,xforcact,iamforc,nforc, argument
54 real*8 xforc(*),xforcact(*),xload(2,*),xloadact(2,*), local
199 if((xforc(i).lt.1.2357111318d0).and.
200 & (xforc(i).gt.1.2357111316d0)) then
246 if((xforc(i).lt.1.2357111318d0).and.
247 & (xforc(i).gt.1.2357111316d0)) then
286 & (xforc(i)-xforcold(i))*reltime
288 xforcact(i)=xforc(i)*ampli(iamforci)
292 & (xforc(i)-xforcold(i))*reltime
294 xforcact(i)=xforc(i)
H A Dcfluxs.f20 & ialset,nset,nodeforc,ndirforc,xforc,nforc,nforc_,iamforc, argument
46 real*8 xforc(*),forcval,co(3,*),trab(7,*),amta(2,*) local
64 if(ndirforc(j).eq.0) xforc(j)=0.d0
197 & nodeforc,ndirforc,xforc,nforc,nforc_,iamforc,
227 & nodeforc,ndirforc,xforc,nforc,nforc_,iamforc,
237 & nodeforc,ndirforc,xforc,nforc,nforc_,
H A Dcloads.f20 & ialset,nset,nodeforc,ndirforc,xforc,nforc,nforc_,iamforc, argument
48 real*8 xforc(*),forcval,co(3,*),trab(7,*),amta(2,*),omega0 local
70 xforc(j)=0.d0
311 call forcadd(l,iforcdir,forcval,nodeforc,ndirforc,xforc,
362 & nodeforc,ndirforc,xforc,nforc,nforc_,iamforc,
392 & nodeforc,ndirforc,xforc,nforc,nforc_,
H A Daddizdofcload.f20 & nzdof,iforc,iznode,nznode,nk,imdnode,nmdnode,xforc,ntrans, argument
33 real*8 xforc(*) local
H A Dresultsini_em.f24 & ikin,intpointvart,xforc,nforc) argument
47 & cam(5),b(*),xboun(*),coefmpc(*),veold(0:mi(2),*),xforc(*), local
173 if((xforc(i).lt.1.2357111318d0).and.
174 & (xforc(i).gt.1.2357111316d0)) then
H A DCalculiXstep.c218 static double *coefmpc=NULL,*xforc=NULL,*clearini=NULL, in CalculiXstep() local
439 NNEW(xforc,double,nforc_); in CalculiXstep()
657 RENEW(xforc,double,nforc_); in CalculiXstep()
763 ndirforc,xforc,&nforc,&nforc_,nelemload,sideload,xload, in CalculiXstep()
1143 RENEW(xforc,double,nforc); in CalculiXstep()
1563 xforc,&nforc, in CalculiXstep()
1593 ndirforc,xforc,&nforc, in CalculiXstep()
1624 ndirforc,xforc, in CalculiXstep()
1762 &coefmpcref,&ikmpcref,&nodeforc,&ndirforc,&xforc, in CalculiXstep()
1865 xforc[i]=xforcold[i];} in CalculiXstep()
[all …]
H A Dccx_2.18.c286 NNEW(xforc,double,nforc_); in main()
505 RENEW(xforc,double,nforc_); in main()
969 RENEW(xforc,double,nforc); in main()
1402 xforc,&nforc, in main()
1432 ndirforc,xforc,&nforc, in main()
1463 ndirforc,xforc, in main()
1496 ndirforc,xforc,&nforc,nelemload,sideload,xload,&nload, in main()
1545 ndirforc,xforc,&nforc,nelemload,sideload,xload,&nload, in main()
1607 &coefmpcref,&ikmpcref,&nodeforc,&ndirforc,&xforc, in main()
1711 xforc[i]=xforcold[i];} in main()
[all …]
H A Dgen3dforc.f20 & ndirforc,xforc,iamforc,ntrans,inotr,trab,rig,ipompc,nodempc, argument
52 real*8 xforc(*),trab(7,*),coefmpc(*),xnor(*),val,co(3,*),dot, local
129 val=xforc(i)
145 & ndirforc,xforc,nforc,nforc_,iamforc,
465 val=xforc(i)
467 & ndirforc,xforc,nforc,nforc_,iamforc,
701 & ndirforc,xforc,nforc,nforc_,iamforc,
H A Drestarts.f26 & nodeforc,ndirforc,iamforc,xforc,ikforc,ilforc,nelemload,iamload,
73 real*8 co(*),xboun(*),coefmpc(*),xforc(*),xload(*),elcon(*),
124 & nodeforc,ndirforc,iamforc,xforc,ikforc,ilforc,nelemload,iamload,
H A Ddealloc_cal.c87 *fmpc=NULL,*coefmpc=NULL,*coefmpcref=NULL,*xforc=NULL,*xforcold=NULL, in dealloc_cal() local
103 xforc=*xforcp;ikforc=*ikforcp;ilforc=*ilforcp;xforcold=*xforcoldp; in dealloc_cal()
142 SFREE(nodeforc);SFREE(ndirforc);SFREE(xforc);SFREE(ikforc);SFREE(ilforc); in dealloc_cal()
212 *xforcp=xforc;*ikforcp=ikforc;*ilforcp=ilforc;*xforcoldp=xforcold; in dealloc_cal()
H A Drestartwrite.f26 & ilmpc,nodeforc,ndirforc,iamforc,xforc,ikforc,ilforc,
78 real*8 co(*),xboun(*),coefmpc(*),xforc(*),xload(*),elcon(*),
274 write(15)(xforc(i),i=1,nforc)
H A Drestartread.f26 & nodeforc,ndirforc,iamforc,xforc,ikforc,ilforc,nelemload,iamload, argument
71 real*8 co(*),xboun(*),coefmpc(*),xforc(*),xload(*),elcon(*), local
260 read(15)(xforc(i),i=1,nforc)
H A Dmafillcorio.f21 & ipompc,nodempc,coefmpc,nmpc,nodeforc,ndirforc,xforc, argument
51 real*8 co(3,*),xboun(*),coefmpc(*),xforc(*),xload(2,*),p1(3), local
H A Dgen3delem.f24 & nforc_,nodeforc,ndirforc,xforc,iamforc,sideload, argument
62 & tmax,offset(2,*),t0(*),t1(*),xforc(*),trab(7,*),co(3,*), local
484 & ndirforc,xforc,iamforc,ntrans,inotr,trab,rig,ipompc,nodempc,
H A Dreadnewmesh.c35 ITG *iamforc,double *xforc,ITG *ithermal,ITG *nk, in readnewmesh() argument
186 nload,sideload,iamload,&iglob,nforc,iamforc,xforc, in readnewmesh()
267 xboun,nload,sideload,iamload,&iglob,nforc,iamforc,xforc, in readnewmesh()
H A Dsensi_orien.c28 ITG *nodeforc,ITG *ndirforc,double *xforc,ITG *nforc, in sensi_orien() argument
122 nload,sideload,iamload,&iglob,nforc,iamforc,xforc, in sensi_orien()
355 FORTRAN(tempload,(xforcold,xforc,xforcact,iamforc,nforc,xloadold,xload, in sensi_orien()
714 &reltime,&ne0,xforc,nforc,thicke,shcon,nshcon, in sensi_orien()
789 springarea,&reltime,&ne0,xforc,nforc,thicke,shcon, in sensi_orien()
H A Dmafillsmmain.c52 double *xforc,ITG *nforc,ITG *nelemload,char *sideload, in mafillsmmain() argument
213 nmpc1=nmpc;nodeforc1=nodeforc;ndirforc1=ndirforc;xforc1=xforc; in mafillsmmain()
391 FORTRAN(mafillsmforc,(nforc,ndirforc,nodeforc,xforc,nactdof, in mafillsmmain()
H A Drhs.f20 & ipompc,nodempc,coefmpc,nmpc,nodeforc,ndirforc,xforc,
52 real*8 co(3,*),coefmpc(*),xforc(*),xload(2,*),p1(3,2),

123