/dports/science/elk/elk-7.2.42/src/ |
H A D | match.f90 | 70 call genylmv(lmaxapw,vgpc(:,igp),ylmgp(:,igp)) 80 do igp=1,ngp 89 do igp=1,ngp 90 z2=djl(l,1,igp)*z1*sfacgp(igp,ias) 92 apwalm(igp,1,lm,ias)=z2*conjg(ylmgp(lm,igp)) 102 do igp=1,ngp 103 t1=gpc(igp)*rmt(is) 109 t1=t1*gpc(igp) 110 djl(:,io,igp)=t1*djl(:,io,igp) 129 do igp=1,ngp [all …]
|
H A D | getcfgq.f90 | 94 vgpl(:,igp)=dble(ivg(:,igp))+vpl(:) 101 do igp=i,ng 102 if (done(igp)) cycle 103 t1=abs(v(1)-vgpl(1,igp))+abs(v(2)-vgpl(2,igp))+abs(v(3)-vgpl(3,igp)) 105 map(igp)=igq 106 done(igp)=.true. 110 do igp=i,ng 112 i=igp 120 do igp=1,ng 121 igq=map(igp) [all …]
|
H A D | gendwfsv.f90 | 122 do igp=1,ngp(jspn) 123 dwfir(igp,ispn,j)=dwfir(igp,ispn,j)+z1*evecfv(igp,ist,jspn) 127 do igp=1,ngp(jspn) 128 ifg=igfft(igpqig(igp,jspn)) 136 do igp=1,ngpq(jspn) 137 dwfir(igp,ispn,j)=dwfir(igp,ispn,j)+z1*devecfv(igp,ist,jspn) 141 do igp=1,ngpq(jspn) 151 do igp=1,ngpq(1) 152 dwfir(igp,1,j)=devecfv(igp,k,1) 155 do igp=1,ngpq(1) [all …]
|
H A D | eveqnsv.f90 | 279 do igp=1,ngp 280 wfir1(igfft(igpig(igp)))=evecfv(igp,jst) 289 wfgp1(igp)=wfir2(igfft(igpig(igp))) 296 wfgp3(igp)=wfir2(igfft(igpig(igp))) 306 t1=a1*vgpc(1,igp)+a2*vgpc(2,igp)+a3*vgpc(3,igp) 307 wfir1(igfft(igpig(igp)))=t1*evecfv(igp,jst) 314 wfgp1(igp)=wfgp1(igp)+z1 315 if (spinpol) wfgp2(igp)=wfgp2(igp)+z1 348 gwfgp(igp,ist)=vgpc(k,igp)*cmplx(-aimag(z1),dble(z1),8) 356 wfir1(igfft(igpig(igp)))=gwfgp(igp,jst) [all …]
|
H A D | getevecfv.f90 | 143 do igp=i,ngk(jspn,ik) 144 if (done(igp)) cycle 145 t1=abs(v(1)-vgpl(1,igp,jspn)) & 146 +abs(v(2)-vgpl(2,igp,jspn)) & 147 +abs(v(3)-vgpl(3,igp,jspn)) 149 evecfv(igp,:,jspn)=evecfv_(igk,:) 150 done(igp)=.true. 154 do igp=i,ngk(jspn,ik) 155 if (.not.done(igp)) then 156 i=igp
|
H A D | genwfpw.f90 | 68 do igp=i,ngp(jspn) 69 t1=abs(vhpc(1,ihp,jspn)-vgpc(1,igp,jspn)) & 70 +abs(vhpc(2,ihp,jspn)-vgpc(2,igp,jspn)) & 71 +abs(vhpc(3,ihp,jspn)-vgpc(3,igp,jspn)) 75 wfpw(ihp,ispn,ist)=wfgp(igp,ispn,ist) 78 if (igp.eq.i) i=i+1 97 do igp=1,ngp(jspn) 99 call genylmv(lmaxo,vgpc(:,igp,jspn),ylm) 109 t1=gpc(igp,jspn)*rcmt(irc,is) 116 z1=t0*sfacgp(igp,ias,jspn) [all …]
|
H A D | eveqnss.f90 | 156 do igp=1,ngp(ispn) 157 wfir1(igfft(igpig(igp,ispn)),ispn)=evecfv(igp,jst,ispn) 165 do igp=1,ngp(1) 166 wfgp1(igp)=wfir2(igfft(igpig(igp,1))) 170 do igp=1,ngp(2) 171 wfgp2(igp)=wfir2(igfft(igpig(igp,2))) 175 do igp=1,ngp(1) 176 wfgp3(igp)=wfir2(igfft(igpig(igp,1)))
|
H A D | gensfacgp.f90 | 39 do igp=1,ngp 40 t1=vgpc(1,igp)*v1+vgpc(2,igp)*v2+vgpc(3,igp)*v3 41 sfacgp(igp,ias)=cmplx(cos(t1),sin(t1),8)
|
H A D | genvmatk.f90 | 69 do igp=1,ngp(jspn) 70 wfir(igfft(igpig(igp,jspn)))=wfgp(igp,ispn,jst) 77 do igp=1,ngp(jspn) 78 z(igp)=wfir(igfft(igpig(igp,jspn)))
|
H A D | dmatch.f90 | 22 do igp=1,ngp 23 z1=apwalm(igp,io,lm,ias) 24 dapwalm(igp,io,lm)=vgpc(ip,igp)*cmplx(-aimag(z1),dble(z1),8)
|
H A D | genexpmat.f90 | 112 do igp=1,ngp 113 ifg=igfft(igpig(igp)) 114 zfir(ifg)=evecfv1(igp,jst) 123 do igp=1,ngpq 124 ifg=igfft(igpqig(igp)) 125 x(igp)=zfir(ifg)
|
H A D | genvbmatk.f90 | 77 do igp=1,ngp(jspn) 78 wfir1(igfft(igpig(igp,jspn)),ispn)=wfgp(igp,ispn,jst) 95 do igp=1,ngp(jspn) 96 z(igp)=wfir2(igfft(igpig(igp,jspn)),ispn)
|
H A D | genpmatk.f90 | 145 do igp=1,ngp(jspn) 146 ifg=igfft(igpig(igp,jspn)) 147 z1=wfgp(igp,ispn,jst) 148 gwfir(ifg,1:3)=vgpc(1:3,igp,jspn)*cmplx(-aimag(z1),dble(z1),8) 160 do igp=1,ngp(jspn) 161 ifg=igfft(igpig(igp,jspn)) 162 z(igp)=gwfir(ifg,i)
|
H A D | zftwfir.f90 | 29 do igp=1,ngp(jspn) 30 ifg=igfc(igpig(igp,jspn)) 31 wfir(ifg,ispn,ist)=t0*z(igp)
|
/dports/cad/tkgate/tkgate-2.1/src/tkgate/ |
H A D | igenerate.c | 95 igp->igp_pos = n; in new_IGPort() 97 igp->igp_keep = 0; in new_IGPort() 98 igp->igp_x = 0; in new_IGPort() 99 igp->igp_y = 0; in new_IGPort() 100 return igp; in new_IGPort() 105 free(igp->igp_name); in delete_IGPort() 106 free(igp); in delete_IGPort() 122 return igp->igp_pos; in igp_getPos() 127 igp->igp_pos = pos; in igp_setPos() 1027 x = igp->igp_x; in igen_generate_symbol() [all …]
|
/dports/print/lyx/lyx-2.3.4.2/src/frontends/qt4/ |
H A D | GuiGraphics.cpp | 528 if (igp.bbox.empty()) { in paramsToDialog() 559 clip->setChecked(igp.clip); in paramsToDialog() 567 bool const scaleChecked = !igp.scale.empty() && igp.scale != "100"; in paramsToDialog() 583 if (igp.groupId.empty()) in paramsToDialog() 590 if (igp.width.value() == 0) in paramsToDialog() 603 if (igp.height.value() == 0) in paramsToDialog() 627 && igp.rotateAngle != "0"); in paramsToDialog() 687 igp.width = Length("0pt"); in applyView() 688 igp.height = Length("0pt"); in applyView() 691 igp.scale = string(); in applyView() [all …]
|
/dports/science/berkeleygw/BGW-2.0.0/Sigma/ |
H A D | mtxel_cor.f90 | 491 if (igp .gt. ncouls .or. igp .le. 0) cycle 820 if (igp .gt. ncouls .or. igp .le. 0) cycle 964 if (igp .gt. ncouls .or. igp .le. 0) cycle 1008 if (igp .gt. ncouls .or. igp .le. 0) cycle 1020 if (igp .gt. ncouls .or. igp .le. 0) cycle 1365 if (igp>ncouls .or. igp<=0) cycle 1472 if (igp .gt. ncouls .or. igp .le. 0) cycle 1849 if (igp .gt. ncouls .or. igp .le. 0) cycle 2179 if (igp>ncouls .or. igp<=0) cycle 2213 if (igp>ncouls .or. igp<=0) cycle [all …]
|
/dports/print/lyx/lyx-2.3.4.2/src/insets/ |
H A D | InsetGraphicsParams.cpp | 49 copy(igp); in InsetGraphicsParams() 87 filename = igp.filename; in copy() 89 display = igp.display; in copy() 90 scale = igp.scale; in copy() 91 width = igp.width; in copy() 92 height = igp.height; in copy() 94 draft = igp.draft; in copy() 97 bbox = igp.bbox; in copy() 98 clip = igp.clip; in copy() 102 special = igp.special; in copy() [all …]
|
/dports/net/boinc-client/boinc-client_release-7.8-7.8.6/tools/ |
H A D | tree_threader_splitter | 59 $igp = 0; 66 start_group($igp); 68 add_file_to_group($igp, $p); 71 finish_group($igp); 73 $igp++; 77 finish_group($igp);
|
/dports/net/exabgp4/exabgp-4.2.13/lib/exabgp/bgp/message/update/nlri/bgpls/tlvs/ |
H A D | node.py | 50 def unpack(cls, data, igp): argument 65 if (igp == 3 or igp == 6) and dlength == 4: 69 if (igp == 3 or igp == 6) and dlength == 8: 74 if (igp == 1 or igp == 2) and dlength == 6: 81 if (igp == 1 or igp == 2) and dlength == 7:
|
/dports/science/berkeleygw/BGW-2.0.0/BSE/ |
H A D | epscopy.f90 | 388 do igp =1,nmtx 393 if (igp .eq. 1) then 412 xct%epscol_bg(1:nmtx,igp,1) = epscol(:) 414 xct%epscol(1:nmtx,igp,1) = epscol(:) 423 xct%epsdiag_bg(igp,1) = epscol(igp) 425 xct%epsdiag(igp,1) = epscol(igp) 598 do igp=1,nmtx 602 xct%epsdiag_bg(igp,irq+1)=epscol(igp) 604 xct%epsdiag(igp,irq+1)=epscol(igp) 615 xct%epscol(1:nmtx,igp,irq+1) = epscol(:) [all …]
|
H A D | mtxel_md.f90 | 34 integer :: ic,ick,ickp,icp,ik,ikp,ifq,ig,ign,igp, & 93 do igp=2,xct%neps 94 fqq(:) = fq(:) + gvec%components(:,igp) 97 wpt(igp)=epsinv/ekin 123 do igp=1,wfncp%ng 124 igaddp=wfncp%isort(igp) 228 do igp=1,wfnv%ng 229 igaddp=wfnv%isort(igp) 258 MYCONJG(wfnv%cg(igp,iv,isv))*wfnc%cg(ign,ic,isc) 286 do igp=1,wfnvp%ng [all …]
|
/dports/mail/mailx/mail-2.2.8/ |
H A D | cmd2.c | 563 register struct ignore *igp; local 573 igp = (struct ignore *) calloc(1, sizeof (struct ignore)); 574 igp->i_field = calloc((unsigned) strlen(field) + 1, 576 strcpy(igp->i_field, field); 577 igp->i_link = tab->i_head[h]; 578 tab->i_head[h] = igp; 593 struct ignore *igp; local 604 for (igp = tab->i_head[h]; igp != 0; igp = igp->i_link) 605 *ap++ = igp->i_field;
|
/dports/science/berkeleygw/BGW-2.0.0/Epsilon/ |
H A D | epsinvomega.f90 | 36 integer :: i,j,k,iq,mq,ig,igp,iunit variable 195 igp=0 200 gvec(3,i).eq.gp(3)) igp=i 205 if (igp.eq.0) then 265 igp=isorti(igp) 269 if (igp.eq.0) then 281 call read_eps_matrix_col_hdf5(eps,igp,nmtx,mq+1,1,infile) 293 call read_eps_matrix_col_f_hdf5(epsRTemp,nFreq,igp,nmtx,mq+1,1,infile) 305 if (j.eq.igp) then 317 if (j.eq.igp.and.i.eq.ig) then [all …]
|
/dports/mail/heirloom-mailx/mailx-12.4/ |
H A D | cmd2.c | 697 struct ignore *igp; in ignore1() local 715 igp = (struct ignore *)scalloc(1, sizeof (struct ignore)); in ignore1() 716 igp->i_field = smalloc(strlen(field) + 1); in ignore1() 717 strcpy(igp->i_field, field); in ignore1() 718 igp->i_link = tab->i_head[h]; in ignore1() 719 tab->i_head[h] = igp; in ignore1() 733 struct ignore *igp; in igshow() local 745 for (igp = tab->i_head[h]; igp != 0; igp = igp->i_link) in igshow() 746 *ap++ = igp->i_field; in igshow()
|