Home
last modified time | relevance | path

Searched refs:lm1 (Results 1 – 25 of 891) sorted by relevance

12345678910>>...36

/dports/science/elk/elk-7.2.42/src/
H A Dgenvmatmt.f90147 dm(lm1,1,lm1,1)=dm(lm1,1,lm1,1)-(n0+mg0(3))
148 dm(lm1,2,lm1,2)=dm(lm1,2,lm1,2)-(n0-mg0(3))
151 dm(lm1,1,lm1,2)=dm(lm1,1,lm1,2)-(mg0(1)-zi*mg0(2))
152 dm(lm1,2,lm1,1)=dm(lm1,2,lm1,1)-(mg0(1)+zi*mg0(2))
156 dm(lm1,1,lm1,1)=dm(lm1,1,lm1,1)-n0
227 vmatmt(lm1,1,lm1,1,ias)=vmatmt(lm1,1,lm1,1,ias) &
229 vmatmt(lm1,2,lm1,2,ias)=vmatmt(lm1,2,lm1,2,ias) &
231 vmatmt(lm1,1,lm1,2,ias)=vmatmt(lm1,1,lm1,2,ias)+j*dms(1,2)
232 vmatmt(lm1,2,lm1,1,ias)=vmatmt(lm1,2,lm1,1,ias)+j*dms(2,1)
242 vmatmt(lm1,1,lm1,1,ias)=vmatmt(lm1,1,lm1,1,ias) &
[all …]
H A Dztorfmt.f9056 lm2=lm1+2*(l+1)
58 lm1=lm1+1
61 rflm(lm1,:)=-c1*(aimag(zflm(lm1,:))+aimag(zflm(lm2,:)))
63 rflm(lm1,:)=c1*(aimag(zflm(lm2,:))-aimag(zflm(lm1,:)))
66 lm1=lm1+1
68 rflm(lm1,:)=dble(zflm(lm1,:))
70 lm1=lm1+1
73 rflm(lm1,:)=c1*(dble(zflm(lm1,:))-dble(zflm(lm2,:)))
75 rflm(lm1,:)=c1*(dble(zflm(lm1,:))+dble(zflm(lm2,:)))
H A Drtozfmt.f9056 lm2=lm1+2*(l+1)
58 lm1=lm1+1
61 zflm(lm1,:)=c1*cmplx(-rflm(lm2,:),-rflm(lm1,:),8)
63 zflm(lm1,:)=c1*cmplx(rflm(lm2,:),-rflm(lm1,:),8)
66 lm1=lm1+1
68 zflm(lm1,:)=rflm(lm1,:)
70 lm1=lm1+1
73 zflm(lm1,:)=c1*cmplx(rflm(lm1,:),-rflm(lm2,:),8)
75 zflm(lm1,:)=c1*cmplx(rflm(lm1,:),rflm(lm2,:),8)
H A Drotdmat.f9050 lm1=1
53 call zgemm('N','N',nm,lmmax,nm,zone,d(lm1,lm1),lmmax, &
54 dmat1(lm1,ispn,1,jspn),lds,zzero,c(lm1,1),lmmax)
55 lm1=lm1+nm
57 lm1=1
60 call zgemm('N','C',lmmax,nm,nm,zone,c(1,lm1),lmmax,d(lm1,lm1),lmmax, &
61 zzero,dm(1,ispn,lm1,jspn),lds)
62 lm1=lm1+nm
73 do lm1=1,lmmax
75 a(:,:)=dm(lm1,:,lm2,:)
[all …]
H A Dgenylmv.f9072 lm1=(l+1)**2
78 ylm(lm4)=conjg(ylm(lm1))
80 ylm(lm4)=-conjg(ylm(lm1))
82 lm1=lm1-1
86 ylm(lm4)=conjg(ylm(lm1))
88 ylm(lm4)=-conjg(ylm(lm1))
93 lm1=lm1-1; lm2=lm2-1; lm3=lm3-1; lm4=lm4+1
98 ylm(lm4)=conjg(ylm(lm1))
100 ylm(lm4)=-conjg(ylm(lm1))
103 lm1=lm1-1; lm2=lm2-1; lm3=lm3-1
[all …]
H A Dzfmtconj.f9056 lm1=l**2
59 lm1=lm1+1
62 zflm2(lm1,:)=conjg(zflm1(lm2,:))
63 zflm2(lm2,:)=conjg(zflm1(lm1,:))
65 zflm2(lm1,:)=-conjg(zflm1(lm2,:))
66 zflm2(lm2,:)=-conjg(zflm1(lm1,:))
70 lm1=lm1+1
71 zflm2(lm1,:)=conjg(zflm1(lm1,:))
H A Dylmrot.f9054 lm1=l**2+1
55 lm2=lm1+2*l
56 dy(lm1:lm2,lm1:lm2)=-dy(lm1:lm2,lm1:lm2)
63 lm1=n+m1
67 d(lm1,lm2)=dy(lm1,lm2)*cmplx(cos(t1),sin(t1),8)
H A Dwavefcr.f9048 lm1=l*(l+1)+m+1
50 lm1=0
75 i1=lm1
84 if (lm1.gt.0) wfcr(i1,1)=t0*c1
91 if (lm1.gt.0) then
93 wfcr(i+lm,1)=t1*zbshti(lm,lm1)
114 i1=i+lm1
120 if (lm1.gt.0) wfcr(i1,1)=t0*c1
127 if (lm1.gt.0) then
129 wfcr(i+lm,1)=t1*zbshto(lm,lm1)
H A Drotrfmt.f90165 lm1=lm1+1
166 lmi(m1)=lm1
206 lm1=l**2+1
207 lm2=lm1+2*l
208 d(lm1:lm2,lm1:lm2)=-d(lm1:lm2,lm1:lm2)
/dports/biology/ncbi-toolkit/ncbi/biostruc/cdd/
H A Dthrdsalr.c86 lm1=sli->lp[cs]; in salr()
89 ntmn+= (lm1>lm2) ? lm1 : lm2; in salr()
92 ntmx+= (lm1>lm2) ? lm1 : lm2; in salr()
105 lm1=sli->lp[cs+1]; in salr()
108 ctmx-= (lm1>lm2) ? lm1 : lm2; in salr()
111 ctmn-= (lm1>lm2) ? lm1 : lm2; in salr()
130 lm1=qsq->sac.mn[cs]; in salr()
131 if(lm1>*mx) return(0); in salr()
132 if(lm1>*mn) *mn=lm1;} in salr()
135 lm1=qsq->sac.mx[cs]; in salr()
[all …]
H A Dthrdsal0.c126 lm1=sli->lp[i+1]; in sal0()
128 ntmn+= (lm1>lm2) ? lm1 : lm2; in sal0()
131 ntmx+= (lm1>lm2) ? lm1 : lm2; in sal0()
176 lm1=sli->lp[i]; in sal0()
178 ctmx-= (lm1>lm2) ? lm1 : lm2; in sal0()
181 ctmn-= (lm1>lm2) ? lm1 : lm2; in sal0()
204 lm1=qsq->sac.mn[cs]; in sal0()
205 if(lm1>*mx) return(0); in sal0()
206 if(lm1>*mn) *mn=lm1;} in sal0()
209 lm1=qsq->sac.mx[cs]; in sal0()
[all …]
H A Dthrdslo0.c181 ntmn+= (lm1>lm2) ? lm1 : lm2; in slo0()
183 printf("lm1:%d lm2:%d ntmn:%d\n",lm1,lm2,ntmn); in slo0()
186 ntmx+= (lm1>lm2) ? lm1 : lm2; in slo0()
188 printf("lm1:%d lm2:%d ntmx:%d\n",lm1,lm2,ntmx); in slo0()
255 ctmx-= (lm1>lm2) ? lm1 : lm2; in slo0()
257 printf("lm1:%d lm2:%d ctmx:%d\n",lm1,lm2,ctmx); in slo0()
260 ctmn-= (lm1>lm2) ? lm1 : lm2; in slo0()
300 lm1=qsq->sac.mn[cs]; in slo0()
301 if(lm1>qmx) return(0); in slo0()
310 lm1=qsq->sac.mx[cs]; in slo0()
[all …]
/dports/biology/ncbi-cxx-toolkit/ncbi_cxx--25_2_0/src/algo/structure/threader/
H A Dthrdsalr.c75 lm1=sli->lp[cs]; in salr()
78 ntmn+= (lm1>lm2) ? lm1 : lm2; in salr()
81 ntmx+= (lm1>lm2) ? lm1 : lm2; in salr()
94 lm1=sli->lp[cs+1]; in salr()
97 ctmx-= (lm1>lm2) ? lm1 : lm2; in salr()
100 ctmn-= (lm1>lm2) ? lm1 : lm2; in salr()
119 lm1=qsq->sac.mn[cs]; in salr()
120 if(lm1>*mx) return(0); in salr()
121 if(lm1>*mn) *mn=lm1;} in salr()
124 lm1=qsq->sac.mx[cs]; in salr()
[all …]
H A Dthrdsal0.c118 lm1=sli->lp[i+1]; in sal0()
120 ntmn+= (lm1>lm2) ? lm1 : lm2; in sal0()
123 ntmx+= (lm1>lm2) ? lm1 : lm2; in sal0()
168 lm1=sli->lp[i]; in sal0()
170 ctmx-= (lm1>lm2) ? lm1 : lm2; in sal0()
173 ctmn-= (lm1>lm2) ? lm1 : lm2; in sal0()
196 lm1=qsq->sac.mn[cs]; in sal0()
197 if(lm1>*mx) return(0); in sal0()
198 if(lm1>*mn) *mn=lm1;} in sal0()
201 lm1=qsq->sac.mx[cs]; in sal0()
[all …]
H A Dthrdslo0.c173 ntmn+= (lm1>lm2) ? lm1 : lm2; in slo0()
175 printf("lm1:%d lm2:%d ntmn:%d\n",lm1,lm2,ntmn); in slo0()
178 ntmx+= (lm1>lm2) ? lm1 : lm2; in slo0()
180 printf("lm1:%d lm2:%d ntmx:%d\n",lm1,lm2,ntmx); in slo0()
247 ctmx-= (lm1>lm2) ? lm1 : lm2; in slo0()
249 printf("lm1:%d lm2:%d ctmx:%d\n",lm1,lm2,ctmx); in slo0()
252 ctmn-= (lm1>lm2) ? lm1 : lm2; in slo0()
292 lm1=qsq->sac.mn[cs]; in slo0()
293 if(lm1>qmx) return(0); in slo0()
302 lm1=qsq->sac.mx[cs]; in slo0()
[all …]
/dports/lang/eisl/eisl-2.35/library/
H A Dformatter.lsp156 (newline lm1)
189 (newline lm1)
222 (newline lm1)
244 (let ((lm1 (+ lm 5))
257 (let ((lm1 (+ lm 6))
284 (newline lm1)
307 (let ((lm1 (+ lm 3))
314 (t (newline lm1) (pp-body body lm1)))
328 (t (newline lm1) (pp-body body lm1)))
358 (newline lm1)
[all …]
/dports/math/libxsmm/libxsmm-1.16.3/samples/xgemm/
H A Dbf16sgemm.c114 for ( lm1 = 0; lm1 < Bm; ++lm1 ) { in sgemm_trup()
116 LIBXSMM_VLA_ACCESS( 2, offa, lm1, lk1, Bk ) = ((size_t)bm*bk*lk1) + ((size_t)lm1*bm*(*k)); in sgemm_trup()
131 for ( lm1 = 0; lm1 < Bm; ++lm1 ) { in sgemm_trup()
132 LIBXSMM_VLA_ACCESS( 2, offc, ln1, lm1, Bm ) = ((size_t)bm*lm1) + ((size_t)ln1*bn*(*m)); in sgemm_trup()
165 for ( lm1 = lmo; lm1 < Bme; ++lm1 ) { in sgemm_trup()
183 for ( lm1 = lmo; lm1 < Bme; ++lm1 ) { in sgemm_trup()
284 for ( lm1 = 0; lm1 < Bm; ++lm1 ) { in bf16sgemm_trup()
301 for ( lm1 = 0; lm1 < Bm; ++lm1 ) { in bf16sgemm_trup()
302 LIBXSMM_VLA_ACCESS( 2, offc, ln1, lm1, Bm ) = ((size_t)bm*lm1) + ((size_t)ln1*bn*(*m)); in bf16sgemm_trup()
342 for ( lm1 = lmo; lm1 < Bme; ++lm1 ) { in bf16sgemm_trup()
[all …]
/dports/x11-fm/worker/worker-4.10.0/src/
H A Dmodifytabsop.cc70 ListerMode *lm1; in run() local
75 lm1 = startlister->getActiveMode(); in run()
76 if ( lm1 != NULL ) { in run()
77 if ( dynamic_cast< VirtualDirMode *>( lm1 ) ) { in run()
80 lm1->not_supported(); in run()
127 ListerMode *lm1 = NULL; in nm_tab_action() local
130 lm1 = startlister->getActiveMode(); in nm_tab_action()
131 if ( lm1 != NULL ) { in nm_tab_action()
135 lm1->runCommand( "close_current_tab" ); in nm_tab_action()
146 lm1->runCommand( "toggle_lock_current_tab" ); in nm_tab_action()
[all …]
H A Ddirsizeop.cc62 ListerMode *lm1; in run() local
67 lm1=startlister->getActiveMode(); in run()
68 if(lm1!=NULL) { in run()
69 if(dynamic_cast< VirtualDirMode * > ( lm1 ) ) { in run()
72 lm1->not_supported(); in run()
89 ListerMode *lm1=NULL; in normalmodedirsize() local
94 lm1=startlister->getActiveMode(); in normalmodedirsize()
95 if(lm1==NULL) return 1; in normalmodedirsize()
115 if ( auto vdm = dynamic_cast< VirtualDirMode * >( lm1 ) ) { in normalmodedirsize()
H A Drenameop.cc63 ListerMode *lm1; in run() local
68 lm1=startlister->getActiveMode(); in run()
69 if(lm1!=NULL) { in run()
70 if(dynamic_cast< VirtualDirMode * >( lm1 ) ) { in run()
73 lm1->not_supported(); in run()
90 ListerMode *lm1=NULL; in normalmoderename() local
95 lm1=startlister->getActiveMode(); in normalmoderename()
96 if(lm1==NULL) return 1; in normalmoderename()
116 if ( auto vdm = dynamic_cast< VirtualDirMode * >( lm1 ) ) { in normalmoderename()
H A Dvolumemanagerop.cc65 ListerMode *lm1; in run() local
75 lm1 = l1->getActiveMode(); in run()
76 if ( lm1 ) { in run()
78 lm1->getSelFiles( sellist, ListerMode::LM_GETFILES_ONLYACTIVE ); in run()
82 dirname = lm1->getCurrentDirectory(); in run()
99 if ( fse.isDir( true ) && lm1 ) { in run()
104 lm1->runCommand( "enter_dir", args ); in run()
H A Ddirbookmarkop.cc70 ListerMode *lm1; in run() local
84 lm1 = l1->getActiveMode(); in run()
85 if ( lm1 != NULL ) { in run()
87 lm1->getSelFiles( sellist, ListerMode::LM_GETFILES_ONLYACTIVE ); in run()
91 dirname = lm1->getCurrentDirectory(); in run()
125 lm1->runCommand( "enter_dir", args ); in run()
131 lm1->runCommand( "activate_entry", args ); in run()
/dports/math/R-cran-Zelig/Zelig/R/
H A Dmodel-ls.R144 mm <- model.matrix(lm1)
145 y <- lm1$y
146 sigma <- getSigma(lm1)
150 bread <- -solve(vcov(lm1))
157 mm <- model.matrix(lm1)
158 y <- lm1$y
159 sigma <- getSigma(lm1)
163 bread <- -solve(vcov(lm1))
166 muB<-lm1$fitted.values
187 mu <- lm1$fitted.values
[all …]
/dports/textproc/py-whoosh/Whoosh-2.7.4/tests/
H A Dtest_matching.py113 um = matching.UnionMatcher(lm1, lm2)
122 um = matching.UnionMatcher(lm1, lm2)
127 um = matching.UnionMatcher(lm1, lm2)
169 anm = matching.AndNotMatcher(lm1, lm2)
183 anm = matching.AndNotMatcher(lm1, lm2)
188 anm = matching.AndNotMatcher(lm1, lm2)
202 rm = matching.RequireMatcher(lm1, lm2)
211 rm = matching.RequireMatcher(lm1, lm2)
216 rm = matching.RequireMatcher(lm1, lm2)
230 amm = matching.AndMaybeMatcher(lm1, lm2)
[all …]
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/nwpw/nwpwlib/utilities/paw_utilities/
H A Dnwpw_gintegrals3.F546 integer lm1(*),lm2(*) local
559 lm1(1) = l1*(l1+1)
568 lm1(1) = l1*(l1+1)
571 lm1(2) = l1*(l1+1)
687 integer lm1(*),lm2(*) local
700 lm1(1) = l1*(l1+1)
709 lm1(1) = l1*(l1+1)
712 lm1(2) = l1*(l1+1)
829 integer lm1(*),lm2(*) local
854 lm1(1) = l1*(l1+1)
[all …]

12345678910>>...36