/dports/cad/calculix-ccx/CalculiX/ccx_2.18/src/ |
H A D | temploaddiff.f | 320 xloaddiff(1,i)=xloadact(1,i) 324 xloadact(1,i)=xbounact(ilboun(id)) 340 xloaddiff(1,i)=xloadact(1,i) 346 xloadact(1,i)=xloadold(1,i)+ 352 xloadact(1,i)=xloadold(1,i)+ 355 xloadact(1,i)=xload(1,i) 357 xloaddiff(1,i)=xloadact(1,i)-xloaddiff(1,i) 360 xloaddiff(2,i)=xloadact(1,i) 366 xloadact(2,i)=xloadold(2,i)+ 372 xloadact(2,i)=xload(2,i) [all …]
|
H A D | radresult.f | 19 subroutine radresult(ntr,xloadact,bcr,nloadtr,tarea, argument 27 real*8 xloadact(2,*), tarea(*),tenv(*),auview(*), 55 xloadact(2,j)= 57 xloadact(2,j)=(xloadact(2,j))**0.25d0+physcon(1)
|
H A D | flowresult.f | 20 & nelemload,xloadact,nactdog,network,mi,ne,ipkon,lakon,kon) argument 31 real*8 cam(5),vold(0:mi(2),*),v(0:mi(2),*),xloadact(2,*) local 113 xloadact(2,i)=vold(0,node) 122 xloadact(1,i)=vold(2,node)
|
H A D | temploadfem.f | 20 & xloadold,xload,xloadact,iamload,nload,ibody,xbody,nbody, argument 51 real*8 xforc(*),xforcact(*),xload(2,*),xloadact(2,*), local 285 xloadact(1,i)=xbounact(ilboun(id)) 299 xloadact(1,i)=xload(1,i)*ampli(iamloadi1) 301 xloadact(1,i)=xloadold(1,i)+ 304 xloadact(1,i)=xload(1,i) 307 xloadact(2,i)=xload(2,i)*ampli(iamloadi2) 311 xloadact(2,i)=xload(2,i)
|
H A D | tempload.f | 20 & xloadold,xload,xloadact,iamload,nload,ibody,xbody,nbody, 58 real*8 xforc(*),xforcact(*),xload(2,*),xloadact(2,*), 347 xloadact(1,i)=xbounact(ilboun(id)) 362 xloadact(1,i)=xloadold(1,i)+ 365 xloadact(1,i)=xload(1,i)*ampli(iamloadi1) 368 xloadact(1,i)=xloadold(1,i)+ 371 xloadact(1,i)=xload(1,i) 375 xloadact(2,i)=xloadold(2,i)+ 378 xloadact(2,i)=xload(2,i)*ampli(iamloadi2) 383 xloadact(2,i)=xload(2,i)
|
H A D | tempload_em.f | 20 & xloadold,xload,xloadact,iamload,nload,ibody,xbody,nbody, argument 58 real*8 xforc(*),xforcact(*),xload(2,*),xloadact(2,*), local 346 xloadact(1,i)=xbounact(ilboun(id)) 361 xloadact(1,i)=xloadold(1,i)+ 364 xloadact(1,i)=xload(1,i)*ampli(iamloadi1) 367 xloadact(1,i)=xloadold(1,i)+ 370 xloadact(1,i)=xload(1,i) 374 xloadact(2,i)=xloadold(2,i)+ 377 xloadact(2,i)=xload(2,i)*ampli(iamloadi2) 382 xloadact(2,i)=xload(2,i)
|
H A D | frictionheating.f | 21 & veold,pslavsurf,xloadact,nload,nload_,nelemload,iamload, argument 42 & areamast,pslavsurf(3,*),value,velm(3),um,xloadact(2,*),weight, local 224 call loadadd(nelems,label,value,nelemload,sideload,xloadact, 283 call loadadd(nelems,label,value,nelemload,sideload,xloadact, 346 call loadadd(nelemm,label,value,nelemload,sideload,xloadact,
|
H A D | radflowload.c | 51 ITG *nelemload,double *xloadact,char *lakon,ITG *ipiv, in radflowload() argument 175 nelemload,xloadact, in radflowload() 214 nelemload,xloadact,lakon,ntmat_,v, in radflowload() 236 nelemload,xloadact,lakon,ntmat_,v, in radflowload() 255 xloadact,lakon,ntmat_,v,shcon,nshcon,ipkon,kon,co, in radflowload() 364 nelemload,xloadact,nactdog,network,mi,ne,ipkon,lakon,kon)); in radflowload() 466 tenv[i]=xloadact[2*nloadtr[i]-1]-physcon[0]; in radflowload() 578 xloadact,lakon,vold,ipkon,kon,co,nloadtr,tarea,tenv,physcon, in radflowload() 642 FORTRAN(radresult,(ntr,xloadact,bcr,nloadtr,tarea, in radflowload()
|
H A D | rearrangecfd.f | 28 & xloadoldf,xloadact,xloadactf,inotr,inotrf,nam,ntrans, argument 56 & xbounactf(*),xloadold(2,*),xloadoldf(2,*),xloadact(2,*), local 232 xloadactf(1,nloadf)=xloadact(1,i) 233 xloadactf(2,nloadf)=xloadact(2,i)
|
H A D | electromagnetics.c | 131 *xforcact=NULL,*xloadact=NULL,*fext=NULL,h0scale=1., in electromagnetics() local 255 NNEW(xloadact,double,2**nload); in electromagnetics() 866 RENEW(xloadact,double,2**nload_); in electromagnetics() 945 DMEMSET(xloadact,0,2**nload_,0.); in electromagnetics() 953 xloadact,iamload,nload,ibody,xbody,nbody,xbodyold, in electromagnetics() 1074 DMEMSET(xloadact,0,2**nload_,0.); in electromagnetics() 1135 mi,ne,sti,ielmat,nelemload,sideload,xloadact, in electromagnetics() 1154 nforc,nelemload,sideload,xloadact,nload,xbodyact, in electromagnetics() 1722 sideload,xloadact,xloadold,&icfd,inomat,h0,islavnode, in electromagnetics() 1742 mi,ne,stx,ielmat,nelemload,sideload,xloadact, in electromagnetics() [all …]
|
H A D | radmatrix.f | 27 & xloadact,lakon,vold,ipkon,kon,co,nloadtr,tarea,tenv,physcon, 44 real*8 adrad(*),aurad(*),bcr(ntr,1),xloadact(2,*),h(2), 192 erad(i1)=xloadact(1,i)
|
H A D | linstatic.c | 99 *xloadact=NULL,*t1act=NULL,*ampli=NULL,*xstaten=NULL,*eei=NULL, in linstatic() local 158 NNEW(xloadact,double,2**nload); in linstatic() 321 xloadact,iamload,nload,ibody,xbody,nbody,xbodyold,xbodyact, in linstatic() 370 sideload,xloadact,xloadold,&icfd,inomat,pslavsurf,pmastsurf, in linstatic() 457 nforc,nelemload,sideload,xloadact,nload,xbodyact,ipobody, in linstatic() 486 nforc,nelemload,sideload,xloadact,nload,xbodyact,ipobody, in linstatic() 648 sideload,xloadact,xloadold,&icfd,inomat,pslavsurf,pmastsurf, in linstatic() 871 sideload,xloadact,xloadold,&icfd,inomat,pslavsurf,pmastsurf, in linstatic() 1103 sideload,xloadact,xloadold,&icfd,inomat,pslavsurf,pmastsurf, in linstatic() 1224 for(k=0;k<2**nload;++k){xloadold[k]=xloadact[k];} in linstatic() [all …]
|
H A D | sensi_orien.c | 89 *xloadact=NULL,*t1act=NULL,*ampli=NULL,*xstaten=NULL,*eei=NULL, in sensi_orien() local 329 NNEW(xloadact,double,2**nload); in sensi_orien() 356 xloadact,iamload,nload,ibody,xbody,nbody,xbodyold,xbodyact, in sensi_orien() 715 sideload,xloadact,xloadold,&icfd,inomat,pslavsurf,pmastsurf, in sensi_orien() 753 nforc,nelemload,sideload,xloadact,nload,xbodyact,ipobody, in sensi_orien() 790 nshcon,sideload,xloadact,xloadold,&icfd,inomat, in sensi_orien() 830 SFREE(xbounact);SFREE(xforcact);SFREE(xloadact);SFREE(t1act);SFREE(ampli); in sensi_orien()
|
H A D | sensi_coor.c | 91 *xloadact=NULL,*t1act=NULL,*ampli=NULL,*xstaten=NULL,*eei=NULL, in sensi_coor() local 425 NNEW(xloadact,double,2**nload); in sensi_coor() 452 xloadact,iamload,nload,ibody,xbody,nbody,xbodyold,xbodyact, in sensi_coor() 810 sideload,xloadact,xloadold,&icfd,inomat,pslavsurf,pmastsurf, in sensi_coor() 854 xforcact,nforc,nelemload,sideload,xloadact,nload, in sensi_coor() 878 xforcact,nforc,nelemload,sideload,xloadact,nload, in sensi_coor() 914 nshcon,sideload,xloadact,xloadold,&icfd,inomat, in sensi_coor() 1055 SFREE(xbounact);SFREE(xforcact);SFREE(xloadact);SFREE(t1act);SFREE(ampli); in sensi_coor()
|
H A D | nonlingeo.c | 147 *xforcact=NULL,*xloadact=NULL,*fext=NULL,*clearini=NULL, in nonlingeo() local 433 NNEW(xloadact,double,2**nload); in nonlingeo() 680 xbounactf,xloadold,xloadoldf,xloadact,xloadactf, in nonlingeo() 956 xloadact,iamload,nload,ibody,xbody,nbody,xbodyold, in nonlingeo() 1622 xloadact, in nonlingeo() 2106 xloadact,iamload,nload,ibody,xbody,nbody,xbodyold, in nonlingeo() 2323 RENEW(xloadact,double,2*nload_); in nonlingeo() 2324 DOUMEMSET(xloadact,2**nload,2*nload_,0.); in nonlingeo() 2332 vold,veold,pslavsurf,xloadact,nload,&nload_, in nonlingeo() 2457 nforc,nelemload,sideload,xloadact,nload,xbodyact, in nonlingeo() [all …]
|
H A D | rhsmain.c | 45 ITG *nelemload,char *sideload,double *xloadact,ITG *nload, in rhsmain() argument 133 sideload1=sideload;xloadact1=xloadact;nload1=nload;xbodyact1=xbodyact; in rhsmain()
|
H A D | steadystate.c | 105 *xforcact=NULL,*xloadact=NULL,y,*fr=NULL,*fi=NULL,*cc=NULL, in steadystate() local 1066 NNEW(xloadact,double,2**nload); in steadystate() 1348 xloadold,xload,xloadact,iamload,nload,ibody,xbody, in steadystate() 1367 xloadr[2*i+j]=xloadact[2*i+j]*(1-iphaseload[i]); in steadystate() 1539 xloadi[2*i+j]=xloadact[2*i+j]*iphaseload[i]; in steadystate() 2332 for(k=0;k<2**nload;++k){xload[k]=xloadact[k];} in steadystate() 2402 NNEW(xloadact,double,nfour*2**nload); in steadystate() 2505 r[l]=xloadact[l*2**nload+2*i]; in steadystate() 2510 xloadact[l*2**nload+2*i]=r[l]/nfour*2.; in steadystate() 2512 xloadact[2*i]=xloadact[2*i]/2.; in steadystate() [all …]
|
H A D | mafillnet.f | 22 & xloadact,lakon,ntmat_,v,shcon,nshcon,ipkon,kon,co,nflow,iinc, argument 49 real*8 ac(nteq,*),xloadact(2,*),cp,h(2),physcon(*),dvi, local 791 h(1)=xloadact(1,i)
|
H A D | dyna.c | 112 *cd=NULL,*cv=NULL,*xforcact=NULL,*xloadact=NULL,*cc=NULL, in dyna() local 959 NNEW(xloadact,double,2**nload); in dyna() 1057 xloadold,xload,xloadact,iamload,nload,ibody,xbody, in dyna() 1077 nforc,nelemload,sideload,xloadact,nload,xbodyact,ipobody,nbody, in dyna() 1306 xloadold,xload,xloadact,iamload,nload,ibody,xbody, in dyna() 1336 nforc,nelemload,sideload,xloadact,nload,xbodyact, in dyna() 1425 xloadold,xload,xloadact,iamload,nload,ibody,xbody, in dyna() 1455 nforc,nelemload,sideload,xloadact,nload,xbodyact, in dyna() 1926 for(k=0;k<2**nload;++k){xload[k]=xloadact[k];} in dyna() 1942 SFREE(xforcact);SFREE(xloadact);SFREE(xbounact);SFREE(aa);SFREE(bb);SFREE(aanew); in dyna()
|
H A D | compfluidfem.c | 83 ITG *nface,double *cocon,ITG *ncocon,double *xloadact, in compfluidfem() 558 xload,xloadact,iamload,nload,ibody,xbody,nbody, in compfluidfem() 573 xload,xloadact,iamload,nload,ibody,xbody,nbody, in compfluidfem() 602 nelemload1=nelemload;sideload1=sideload;xloadact1=xloadact;nload1=nload; in compfluidfem()
|
H A D | premortar.c | 223 double *xloadact,ITG *nodeforc,ITG *ndirforc,double *xforcact, in premortar() 545 sideload,xloadact,xloadold,icfd,inomat,pslavsurf,pmastsurf, in premortar() 582 nforc2,nelemload,sideload,xloadact,nload,xbodyact,ipobody, in premortar()
|
H A D | resultnet.f | 22 & bc,nload,sideload,nelemload,xloadact,lakon,ntmat_, 52 real*8 bc(nteq),xloadact(2,*),cp,h(2),physcon(*),r,dvi,rho, 1042 h(1)=xloadact(1,i)
|
H A D | compfluid.c | 58 ITG *ncocon,double *xloadact,double *tper,ITG *jmax,ITG *jout, in compfluid() argument 418 xloadold,xload,xloadact,iamload,nload,ibody,xbody,nbody, in compfluid() 759 xloadold,xload,xloadact,iamload,nload,ibody,xbody,nbody, in compfluid()
|
H A D | CalculiX.h | 1567 double *xforcact,double *xloadact,double *t1act, 2194 double *xloadact,ITG *nactdog,ITG *network,ITG *mi, 3126 ITG *nelemload,double *xloadact,char *lakon, 4542 char *sideload,ITG *nelemload,double *xloadact,char *lakon, 4552 void FORTRAN(radresult,(ITG *ntr,double *xloadact,double *bcr, 4637 double *xloadoldf,double *xloadact,double *xloadactf, 4856 ITG *nelemload,double *xloadact,char *lakon, 5792 double *xloadact,ITG *iamload,ITG *nload,ITG *ibody, 5815 double *xloadact,ITG *iamload,ITG *nload,ITG *ibody, 5839 double *xloadact,ITG *iamload,ITG *nload,ITG *ibody, [all …]
|
H A D | mortar.h | 440 double *xloadact,ITG *nodeforc,ITG *ndirforc,double *xforcact,
|