Home
last modified time | relevance | path

Searched refs:igauss (Results 1 – 25 of 66) sorted by relevance

123

/dports/cad/z88/Z88OS-15/src/z88r/common/
H A Dsspu88.c120 FR_INT4 i,igauss,j,k,lx,jk; in sspu88() local
254 for(igauss = 1;igauss <= ninto;igauss++) in sspu88()
339 for(igauss = 1;igauss <= 4;igauss++) in sspu88()
341 r= rkr[igauss]; in sspu88()
342 s= rks[igauss]; in sspu88()
343 t= rkt[igauss]; in sspu88()
386 jp[igauss]= jk; in sspu88()
392 for(igauss = 1;igauss <= 4;igauss++) in sspu88()
394 r= rgo[igauss]; in sspu88()
395 s= sgo[igauss]; in sspu88()
[all …]
H A Dstet88.c120 FR_INT4 i,igauss,j,k,lx,jk; in stet88() local
254 for(igauss = 1;igauss <= ninto;igauss++) in stet88()
339 for(igauss = 1;igauss <= 4;igauss++) in stet88()
341 r= rkr[igauss]; in stet88()
342 s= rks[igauss]; in stet88()
343 t= rkt[igauss]; in stet88()
385 jp[igauss]= jk; in stet88()
391 for(igauss = 1;igauss <= 4;igauss++) in stet88()
393 r= rgo[igauss]; in stet88()
394 s= sgo[igauss]; in stet88()
[all …]
H A Dbspur88.c86 FR_INT4 i,igauss,j; in bspur88() local
199 for(igauss = 1;igauss <= intore;igauss++) in bspur88()
201 r= rg[igauss+2*intore]; in bspur88()
202 s= sg[igauss+2*intore]; in bspur88()
209 wt= wg[igauss+2*intore]*0.5 ; /* Gaussg. halbieren */ in bspur88()
H A Dbspla88.c87 FR_INT4 ne= 18,i,igauss,j; in bspla88() local
211 for(igauss = 1;igauss <= intore;igauss++) in bspla88()
213 r= rg[igauss+2*intore]; in bspla88()
214 s= sg[igauss+2*intore]; in bspla88()
222 wt= wg[igauss+2*intore]*0.5 * det; /* Gaussg. halbieren */ in bspla88()
H A Dbtetr88.c87 FR_INT4 i,igauss,j; in btetr88() local
200 for(igauss = 1;igauss <= intore;igauss++) in btetr88()
202 r= rg[igauss+2*intore]; in btetr88()
203 s= sg[igauss+2*intore]; in btetr88()
210 wt= wg[igauss+2*intore]*0.5 ; /* Gaussg. halbieren */ in btetr88()
H A Dspur88.c91 FR_INT4 ne= 12,i,igauss,j,k,l; in spur88() local
212 for(igauss = 1;igauss <= intore;igauss++) in spur88()
214 r= rg[igauss + intore*4]; in spur88()
215 s= sg[igauss + intore*4]; in spur88()
216 t= tg[igauss + intore*4]; in spur88()
224 wt= wg[igauss + intore*4] * det * 0.1666666667; /* x 1/6 */ in spur88()
H A Dtetr88.c91 FR_INT4 ne= 30,i,igauss,j,k,l; in tetr88() local
212 for(igauss = 1;igauss <= intore;igauss++) in tetr88()
214 r= rg[igauss + intore*4]; in tetr88()
215 s= sg[igauss + intore*4]; in tetr88()
216 t= tg[igauss + intore*4]; in tetr88()
224 wt= wg[igauss + intore*4] * det * 0.1666666667; /* x 1/6 */ in tetr88()
H A Dbshaf88.c97 FR_INT4 ne= 18,i,igauss,j,inc,k; in bshaf88() local
290 for(igauss = 1;igauss <= intore;igauss++) in bshaf88()
292 r= rg[igauss+2*intore]; in bshaf88()
293 s= sg[igauss+2*intore]; in bshaf88()
301 wt= wg[igauss+2*intore]*0.5 * det; /* Gaussg. halbieren */ in bshaf88()
H A Disod88.c92 FR_INT4 ne= 12,i,ist,igauss,j,k,l; in isod88() local
281 for(igauss = 1;igauss <= intore;igauss++) in isod88()
283 r= rg[igauss+2*intore]; in isod88()
284 s= sg[igauss+2*intore]; in isod88()
295 wt= wg[igauss+2*intore]*0.5 * xbar * det; /* Gaussg. halbieren */ in isod88()
H A Dspla88.c89 FR_INT4 ne= 18,i,igauss,j,k,l; in spla88() local
247 for(igauss = 1;igauss <= intore;igauss++) in spla88()
249 r= rg[igauss+2*intore]; in spla88()
250 s= sg[igauss+2*intore]; in spla88()
258 wt= wg[igauss+2*intore]*0.5 * det; /* Gaussg. halbieren */ in spla88()
H A Dshad88.c91 FR_INT4 ne= 36,i,igauss,lz,j,k,l,intor_t; in shad88() local
257 for(igauss = 1;igauss <= intore;igauss++) in shad88()
259 r= rg[igauss+2*intore]; in shad88()
260 s= sg[igauss+2*intore]; in shad88()
271 wt= wg[igauss+2*intore]*0.5 * wgt[(lz-1)*4+intor_t] * det; in shad88()
/dports/cad/calculix-ccx/CalculiX/ccx_2.18/src/
H A Dgencontelem_f2f.f150 igauss=0
302 igauss=indexf+m
416 pmastsurf(3,igauss)=0.5d0
426 springarea(1,igauss)=area
427 springarea(2,igauss)=0.d0
550 pmastsurf(4,igauss)=xn(1)
551 pmastsurf(5,igauss)=xn(2)
552 pmastsurf(6,igauss)=xn(3)
554 xn(1)=pmastsurf(4,igauss)
555 xn(2)=pmastsurf(5,igauss)
[all …]
H A Dspringstiff_f2f.f34 & jfaces,igauss,nopem,nopes,nopep,kscale local
81 xi=pslavsurf(1,igauss)
82 et=pslavsurf(2,igauss)
83 weight=pslavsurf(3,igauss)
109 xi=pmastsurf(1,igauss)
110 et=pmastsurf(2,igauss)
143 xn(1)=pmastsurf(4,igauss)
144 xn(2)=pmastsurf(5,igauss)
145 xn(3)=pmastsurf(6,igauss)
278 xstate(6+i,1,ne0+igauss)=t(i)
[all …]
H A Dspringforc_f2f.f23 & xstate,reltime,ielas,jfaces,igauss, argument
94 xi=pslavsurf(1,igauss)
95 et=pslavsurf(2,igauss)
96 weight=pslavsurf(3,igauss)
122 xi=pmastsurf(1,igauss)
123 et=pmastsurf(2,igauss)
153 xn(1)=pmastsurf(4,igauss)
154 xn(2)=pmastsurf(5,igauss)
155 xn(3)=pmastsurf(6,igauss)
342 xstate(6+i,1,ne0+igauss)=t(i)
[all …]
H A Dprintoutcontact.f32 & iflag,indexe,ipos,itie,ipkon(*),kon(*),mi(*),igauss,jfaces, local
95 igauss=kon(indexe+nope+1)
114 xi=pslavsurf(1,igauss)
115 et=pslavsurf(2,igauss)
116 weight=pslavsurf(3,igauss)
146 xn(1)=pmastsurf(4,igauss)
147 xn(2)=pmastsurf(5,igauss)
148 xn(3)=pmastsurf(6,igauss)
177 darea=springarea(1,igauss)
H A Dspringstiff_f2f_th.f22 & reltime,jfaces,igauss,pslavsurf,pmastsurf,clearini,matname, argument
35 & nmethod,mi(*),node,noel,jfaces,igauss,nopem,nopes,nopep, local
82 xi=pslavsurf(1,igauss)
83 et=pslavsurf(2,igauss)
84 weight=pslavsurf(3,igauss)
113 xi=pmastsurf(1,igauss)
114 et=pmastsurf(2,igauss)
149 xn(1)=pmastsurf(4,igauss)
150 xn(2)=pmastsurf(5,igauss)
151 xn(3)=pmastsurf(6,igauss)
H A Dspringforc_f2f_th.f22 & springarea,nmethod,reltime,jfaces,igauss, argument
37 & igauss,nopes,nopem,nopep,nplkcon(0:ntmat_,*) local
81 xi=pslavsurf(1,igauss)
82 et=pslavsurf(2,igauss)
83 weight=pslavsurf(3,igauss)
115 xi=pmastsurf(1,igauss)
116 et=pmastsurf(2,igauss)
154 xn(1)=pmastsurf(4,igauss)
155 xn(2)=pmastsurf(5,igauss)
156 xn(3)=pmastsurf(6,igauss)
H A Dspringdamp_f2f.f21 & reltime,nasym,jfaces,igauss,pslavsurf,pmastsurf,clearini) argument
30 & nmethod,mi(*),nasym,jfaces,igauss,nopem,nopes,nopep local
74 xi=pslavsurf(1,igauss)
75 et=pslavsurf(2,igauss)
76 weight=pslavsurf(3,igauss)
102 xi=pmastsurf(1,igauss)
103 et=pmastsurf(2,igauss)
161 xn(1)=pmastsurf(4,igauss)
162 xn(2)=pmastsurf(5,igauss)
163 xn(3)=pmastsurf(6,igauss)
H A Dfrictionheating.f33 & ncmat_,ntmat_,kon(*),nope,igauss,jfaces,ifaces,nelems,ifacem, local
93 igauss=kon(indexe+nope+1)
104 ifacem=int(pmastsurf(3,igauss))
110 area=springarea(1,igauss)
125 xi=pslavsurf(1,igauss)
126 et=pslavsurf(2,igauss)
233 xi=pslavsurf(1,igauss)
234 et=pslavsurf(2,igauss)
258 xi=pmastsurf(1,igauss)
259 et=pmastsurf(2,igauss)
H A Dtotalcontact.f33 & igauss,nopem,nodefs(9),indexf,nkon0 local
72 igauss=0
146 igauss=indexf+m
151 ifacem=int(pmastsurf(3,igauss))
237 kon(id+1)=igauss
H A Dinterpolateinface.f37 & igauss,mi(*),nstate_,itriangle(100),itriold, local
136 do igauss=islavsurf(2,kk)+1,islavsurf(2,kk+1)
140 p(1)=pslavsurf(1,igauss)
141 p(2)=pslavsurf(2,igauss)
293 & p(1),p(2),xstate(i,1,ne0+igauss))
/dports/science/tinker/tinker/source/
H A Dkvdw.f565 igauss(1,1) = 846706.7d0
567 igauss(1,2) = 2713.651d0
575 igauss(1,1) = 14487.1d0
577 igauss(1,2) = -5.55338d0
581 igauss(1,1) = 2438.886d0
582 igauss(2,1) = 9.342616d0
584 igauss(2,2) = 1.564486d0
593 igauss(1,1) = 500.0d0
594 igauss(2,1) = 6.143d0
595 igauss(1,2) = -18.831d0
[all …]
/dports/science/cp2k/cp2k-2e995eec7fd208c8a72d9544807bd8b8ba8cd1cc/src/
H A Dcp_ddapc_methods.F82 DO igauss = 1, SIZE(radii)
83 rc = radii(igauss)
88 gfunc(ig, igauss) = EXP(-g2*rc2/4.0_dp)
153 DO igauss = 1, SIZE(radii)
154 idim = (iparticle - 1)*SIZE(radii) + igauss
156 my_bvw(ig) = my_bv(ig)*gfunc(ig, igauss)
165 DO igauss = 1, SIZE(radii)
166 idim = (iparticle - 1)*SIZE(radii) + igauss
319 DO igauss = 1, SIZE(radii)
320 idim = (iparticle - 1)*SIZE(radii) + igauss
[all …]
/dports/science/cp2k-data/cp2k-7.1.0/src/
H A Dcp_ddapc_methods.F82 DO igauss = 1, SIZE(radii)
83 rc = radii(igauss)
88 gfunc(ig, igauss) = EXP(-g2*rc2/4.0_dp)
153 DO igauss = 1, SIZE(radii)
154 idim = (iparticle - 1)*SIZE(radii) + igauss
156 my_bvw(ig) = my_bv(ig)*gfunc(ig, igauss)
165 DO igauss = 1, SIZE(radii)
166 idim = (iparticle - 1)*SIZE(radii) + igauss
319 DO igauss = 1, SIZE(radii)
320 idim = (iparticle - 1)*SIZE(radii) + igauss
[all …]
/dports/biology/molden/molden5.8/
H A Dgrdcal.f353 do igauss=1,shelln(ishell)
355 iex = shella(ishell) + igauss - 1
356 ipnth = ipnt + igauss
424 do igauss=1,shelln(ishell)
426 iex = shella(ishell) + igauss - 1
427 ipnth = ipnt + igauss
480 do igauss=1,shelln(ishell)
482 iex = shella(ishell) + igauss - 1
483 ipnth = ipnt + igauss

123