/dports/cad/z88/Z88OS-15/src/z88r/common/ |
H A D | sspu88.c | 120 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 D | stet88.c | 120 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 D | bspur88.c | 86 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 D | bspla88.c | 87 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 D | btetr88.c | 87 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 D | spur88.c | 91 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 D | tetr88.c | 91 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 D | bshaf88.c | 97 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 D | isod88.c | 92 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 D | spla88.c | 89 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 D | shad88.c | 91 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 D | gencontelem_f2f.f | 150 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 D | springstiff_f2f.f | 34 & 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 D | springforc_f2f.f | 23 & 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 D | printoutcontact.f | 32 & 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 D | springstiff_f2f_th.f | 22 & 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 D | springforc_f2f_th.f | 22 & 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 D | springdamp_f2f.f | 21 & 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 D | frictionheating.f | 33 & 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 D | totalcontact.f | 33 & 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 D | interpolateinface.f | 37 & 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 D | kvdw.f | 565 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 D | cp_ddapc_methods.F | 82 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 D | cp_ddapc_methods.F | 82 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 D | grdcal.f | 353 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
|