/dports/cad/calculix-ccx/CalculiX/ccx_2.18/src/ |
H A D | mafillsmforc.f | 19 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 D | rhsnodef.f | 20 & 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 D | forcadd.f | 19 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 D | addimdnodecload.f | 19 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 D | tempload.f | 58 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 D | tempload_em.f | 58 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 D | temploadfem.f | 19 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 D | temploaddiff.f | 19 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 D | cfluxs.f | 20 & 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 D | cloads.f | 20 & 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 D | addizdofcload.f | 20 & nzdof,iforc,iznode,nznode,nk,imdnode,nmdnode,xforc,ntrans, argument 33 real*8 xforc(*) local
|
H A D | resultsini_em.f | 24 & 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 D | CalculiXstep.c | 218 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 D | ccx_2.18.c | 286 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 D | gen3dforc.f | 20 & 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 D | restarts.f | 26 & 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 D | dealloc_cal.c | 87 *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 D | restartwrite.f | 26 & 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 D | restartread.f | 26 & 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 D | mafillcorio.f | 21 & ipompc,nodempc,coefmpc,nmpc,nodeforc,ndirforc,xforc, argument 51 real*8 co(3,*),xboun(*),coefmpc(*),xforc(*),xload(2,*),p1(3), local
|
H A D | gen3delem.f | 24 & 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 D | readnewmesh.c | 35 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 D | sensi_orien.c | 28 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 D | mafillsmmain.c | 52 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 D | rhs.f | 20 & ipompc,nodempc,coefmpc,nmpc,nodeforc,ndirforc,xforc, 52 real*8 co(3,*),coefmpc(*),xforc(*),xload(2,*),p1(3,2),
|