| /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()
|