Home
last modified time | relevance | path

Searched refs:dgdxglob (Results 1 – 25 of 28) sorted by relevance

12

/dports/cad/calculix-ccx/CalculiX/ccx_2.18/src/
H A Dclonesensitivities.f19 subroutine clonesensitivities(nobject,nk,objectset,g0,dgdxglob) argument
27 real*8 g0(*),dgdxglob(2,nk,nobject),buffer local
44 dgdxglob(1,k,i)=dgdxglob(1,k,j)
45 dgdxglob(2,k,i)=dgdxglob(2,k,j)
82 buffer=dgdxglob(1,k,1)
83 dgdxglob(1,k,1)=dgdxglob(1,k,objective_id)
84 dgdxglob(1,k,objective_id)=buffer
86 buffer=dgdxglob(2,k,1)
87 dgdxglob(2,k,1)=dgdxglob(2,k,objective_id)
88 dgdxglob(2,k,objective_id)=buffer
H A Dprojectgrad.f19 subroutine projectgrad(vector,ndesi,nodedesi,dgdxglob,nactive, argument
33 real*8 dgdxglob(2,nk,nobject),vector(ndesi),rhs(*),scalar,dd, local
44 & +rhs(icol)*dgdxglob(2,node,ipos)
60 scalar=scalar+dgdxglob(2,node,1)*dgdxglob(2,node,ipos)
64 scalar=dgdxglob(2,node,1)
71 dgdxglob(2,node,nobject)=dgdxglob(2,node,nobject)
87 dgdxglob(1,node,nobject)=dgdxglob(1,node,nobject)
91 dgdxglob(1,node,nobject)=dgdxglob(1,node,nobject)
H A Dscalesen.f19 subroutine scalesen(dgdxglob,nobject,nk,nodedesi,ndesi, argument
33 real*8 dgdxglob(2,nk,*),dd local
40 dd=dd+dgdxglob(2,node,iobject)**2
45 dgdxglob(2,node,iobject)=dgdxglob(2,node,iobject)/dd
53 dd=max(dd,abs(dgdxglob(2,node,iobject)))
57 dgdxglob(2,node,iobject)=dgdxglob(2,node,iobject)/dd
H A Dpreprojectgrad.f19 subroutine preprojectgrad(vector,ndesi,nodedesi,dgdxglob,nactive, argument
31 real*8 dgdxglob(2,nk,nobject),vector(ndesi),rhs(*),scalar,dd, local
38 dgdxglob(2,irow,nobject)=0.d0
39 dgdxglob(1,irow,nobject)=0.d0
47 xtf(icol)=xtf(icol)+dgdxglob(2,node,1)
48 & *dgdxglob(2,node,ipos)
53 xtf(icol)=dgdxglob(2,node,1)
H A Dpostprojectgrad.f19 subroutine postprojectgrad(ndesi,nodedesi,dgdxglob,nactive, argument
31 real*8 dgdxglob(2,nk,nobject),scalar,dd,len
39 dgdxglob(2,node,nobject)=dgdxglob(2,node,1)
40 & -dgdxglob(2,node,nobject)
56 dgdxglob(1,nodedesi(i),1)=0.d0
H A Dextrapol2dto3d.f19 subroutine extrapol2dto3d(dgdxglob,iponod2dto3d,ndesi, argument
36 real*8 dgdxglob(2,nk,nobject),xinterpol(2,nk,nobject)
90 dgdxglob(1,node,l)=dgdxglob(1,idesvar,l)
91 dgdxglob(2,node,l)=dgdxglob(2,idesvar,l)
H A Dfixnode.f20 & ialset,iobject,nodedesiinv,dgdxglob,objectset) argument
31 real*8 dgdxglob(2,nk,nobject) local
52 dgdxglob(1,node,iobject)=1.0d0
53 dgdxglob(2,node,iobject)=1.0d0
61 dgdxglob(1,node,iobject)=1.0d0
62 dgdxglob(2,node,iobject)=1.0d0
H A Dnmatrix.f19 subroutine nmatrix(ad,au,jqs,irows,ndesi,nodedesi,dgdxglob, argument
29 real*8 ad(*),au(*),dgdxglob(2,nk,nobject) local
36 ad(idof)=ad(idof)+dgdxglob(2,node,ipos)**2
44 au(i)=au(i)+dgdxglob(2,node,ipos)
45 & *dgdxglob(2,node,jpos)
49 au(i)=dgdxglob(2,node,ipos)
H A Dthickness.f21 & ndesib,iobject,ndesi,dgdxglob,nk,normdesi) argument
36 & numericdist,dgdxglob(2,nk,nobject) local
83 dgdxglob(1,iactnode,iobject)=actdist
87 dgdxglob(2,iactnode,iobject)=1.0d0
89 dgdxglob(2,iactnode,iobject)=-1.0d0
95 dgdxglob(2,iactnode,iobject)=1.0d0
97 dgdxglob(2,iactnode,iobject)=-1.0d0
H A Dfeasibledirection.c69 *vector=NULL,*xlambd=NULL,*xtf=NULL,*objnorm=NULL,*dgdxglob=NULL, in feasibledirection() local
72 objectset=*objectsetp;dgdxglob=*dgdxglobp;ipkon=*ipkonp;lakon=*lakonp; in feasibledirection()
96 &iobject,nodedesiinv,dgdxglob,xdesi); in feasibledirection()
103 ialset,jobnamec,output,dgdxglob,&i,objectset,ntrans,inotr, in feasibledirection()
111 &iobject,nodedesiinv,dgdxglob,objectset)); in feasibledirection()
126 FORTRAN(clonesensitivities,(nobject,nk,objectset,g0,dgdxglob)); in feasibledirection()
178 FORTRAN(scalesen,(dgdxglob,nobject,nk,nodedesi,ndesi,objectset, in feasibledirection()
183 RENEW(dgdxglob,double,2**nk**nobject); in feasibledirection()
376 nobject,ndesi,nodedesi,dgdxglob,nk)); in feasibledirection()
389 FORTRAN(postprojectgrad,(ndesi,nodedesi,dgdxglob,&nactive,nobject, in feasibledirection()
[all …]
H A Dtransition.f19 subroutine transition(dgdxglob,nobject,nk,nodedesi,ndesi, argument
35 real*8 dgdxglob(2,nk,nobject),xo(*),yo(*),zo(*),x(*), local
74 dgdxglob(2,iactnode,m)=dgdxglob(2,iactnode,m)*scale
H A Dcheckprojectgrad.f21 & inameactiold,g0,nobject,ndesi,nodedesi,dgdxglob,nk) argument
36 real*8 xlambd(*),g0(*),dgdxglob(2,nk,*),val local
81 val=dgdxglob(2,node,inameactiold(i))
130 dgdxglob(2,node,i)=0.d0
136 dgdxglob(2,node,i)=1.d0
H A Dfilter.f19 subroutine filter(dgdxglob,nobject,nk,nodedesi,ndesi, argument
33 real*8 dgdxglob(2,nk,nobject),xo(ndesi),yo(ndesi),zo(ndesi), local
124 & dgdxglob(1,nodedesi(neighbor(i)),m)
128 & dgdxglob(1,nodedesi(neighbor(i)),m)
132 dgdxglob(2,nodedesi(j),m)=nominator/denominator
H A Dquadraticsens.f19 subroutine quadraticsens(ipkon,lakon,kon,nobject,dgdxglob, argument
35 real*8 dgdxglob(2,nk,nobject),xinterpol(nk,nobject)
140 & dgdxglob(1,konl(i),ii)
154 dgdxglob(1,i,j)=xinterpol(i,j)/nnodes(i)
H A Dcheckconstraint.f20 & nnlconst,ipoacti,ndesi,dgdxglob,nk,nodedesi,iconstacti, argument
36 & dgdxglob(2,nk,nobject) local
64 if(dgdxglob(2,node,iobject).gt.0) then
151 if(dgdxglob(2,node,iobject).eq.1) then
169 if(dgdxglob(2,node,iobject).eq.1) then
H A Dfiltermain.c39 void filtermain(double *co, double *dgdxglob, ITG *nobject, ITG *nk, in filtermain() argument
55 dgdxglob[i]=dgdxglob[i-1]; in filtermain()
133 dgdxglob1=dgdxglob;nobject1=nobject;nk1=nk;nodedesi1=nodedesi; in filtermain()
H A Dwritelm.f20 & nobject,ipoacti,iconstacti,inameacti,nodedesi,dgdxglob,nk) argument
31 real*8 xlambd(*),dgdxglob(2,nk,*),val local
100 val=dgdxglob(2,node,inameacti(i))
H A Dsensitivity_out.c24 void sensitivity_out(char *jobnamec,double *dgdxglob,ITG *neq,ITG *nobject, in sensitivity_out() argument
52 fprintf(f1,"%12.5E",(double)dgdxglob[3+5*i+(5*neq[1]+2)*iobject]); in sensitivity_out()
H A Ddistributesens.f22 & dgdxglob,nk,physcon,nobjectstart) argument
47 & dgdxglob(2,nk,nobject),physcon(*) local
464 dgdxglob(1,iactnode,iobject)=dgdx(idesvar,iobject)
467 dgdxglob(1,iactnode,iobject)=dgdx(idesvar,iobject)
H A Dtransitionmain.c37 void transitionmain(double *co, double *dgdxglob, ITG *nobject, ITG *nk, in transitionmain() argument
133 dgdxglob1=dgdxglob;nobject1=nobject;nk1=nk;nodedesi1=nodedesi; in transitionmain()
H A Dthicknessmain.c42 double *dgdxglob,double *xdesi){ in thicknessmain() argument
129 iobject1=iobject;ndesi1=ndesi;dgdxglob1=dgdxglob;nk1=nk; in thicknessmain()
H A Dsensi_coor.c61 ITG *mpcend,double *dgdxglob,double *g0,ITG **nodedesip, in sensi_coor()
948 dgdxglob,nk,physcon,nobjectstart)); in sensi_coor()
958 FORTRAN(quadraticsens,(ipkon,lakon,kon,nobject,dgdxglob,xinterpol,nnodes, in sensi_coor()
965 filtermain(co,dgdxglob,nobject,nk,nodedesi,ndesi,objectset, in sensi_coor()
971 transitionmain(co,dgdxglob,nobject,nk,nodedesi,ndesi,objectset, in sensi_coor()
986 FORTRAN(extrapol2dto3d,(dgdxglob,iponod2dto3d,ndesi, in sensi_coor()
1001 FORTRAN(scalesen,(dgdxglob,nobject,nk,nodedesi,ndesi,objectset, in sensi_coor()
1014 FORTRAN(map3dto1d2d,(&dgdxglob[2**nk*iobject],ipkon,inum,kon,lakon, in sensi_coor()
1024 dgdxglob,&iobject,objectset,ntrans,inotr,trab,&idesvar,orname, in sensi_coor()
H A Ddealloc_cal.c95 *dgdxglob=NULL,*g0=NULL,*xdesi=NULL; in dealloc_cal() local
123 heading=*headingp;nodedesi=*nodedesip;g0=*g0p;dgdxglob=*dgdxglobp; in dealloc_cal()
198 if(*nobject_>0){SFREE(objectset);SFREE(nodedesi);SFREE(dgdxglob); in dealloc_cal()
232 *headingp=heading;*nodedesip=nodedesi;*dgdxglobp=dgdxglob;*g0p=g0; in dealloc_cal()
H A DCalculiXstep.c228 *velo=NULL,*veloo=NULL,energy[5],*ratiorfn=NULL,*dgdxglob=NULL, in CalculiXstep() local
598 NNEW(dgdxglob,double,nobject_*2*nk_); in CalculiXstep()
1674 jobnamef,iponor,knor,&ne2d,iponoel,inoel,&mpcend,dgdxglob, in CalculiXstep()
1735 feasibledirection(&nobject,&objectset,&dgdxglob,g0,&ndesi,nodedesi,nk, in CalculiXstep()
1780 &nodedesi,&dgdxglob,&g0,&nuel_,&xdesi); in CalculiXstep()
2014 &nodedesi,&dgdxglob,&g0,&nuel_,&xdesi); in CalculiXstep()
H A Dccx_2.18.c100 *velo=NULL,*veloo=NULL,energy[5],*ratiorfn=NULL,*dgdxglob=NULL, in main() local
446 NNEW(dgdxglob,double,nobject_*2*nk_); in main()
1513 jobnamef,iponor,knor,&ne2d,iponoel,inoel,&mpcend,dgdxglob, in main()
1574 feasibledirection(&nobject,&objectset,&dgdxglob,g0,&ndesi,nodedesi,&nk, in main()
1625 &nodedesi,&dgdxglob,&g0,&nuel_,&xdesi); in main()
1841 &nodedesi,&dgdxglob,&g0,&nuel_,&xdesi); in main()

12