/dports/science/elk/elk-7.2.42/src/ |
H A D | genvmatmt.f90 | 147 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 D | ztorfmt.f90 | 56 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 D | rtozfmt.f90 | 56 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 D | rotdmat.f90 | 50 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 D | genylmv.f90 | 72 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 D | zfmtconj.f90 | 56 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 D | ylmrot.f90 | 54 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 D | wavefcr.f90 | 48 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 D | rotrfmt.f90 | 165 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 D | thrdsalr.c | 86 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 D | thrdsal0.c | 126 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 D | thrdslo0.c | 181 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 D | thrdsalr.c | 75 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 D | thrdsal0.c | 118 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 D | thrdslo0.c | 173 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 D | formatter.lsp | 156 (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 D | bf16sgemm.c | 114 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 D | modifytabsop.cc | 70 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 D | dirsizeop.cc | 62 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 D | renameop.cc | 63 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 D | volumemanagerop.cc | 65 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 D | dirbookmarkop.cc | 70 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 D | model-ls.R | 144 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 D | test_matching.py | 113 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 D | nwpw_gintegrals3.F | 546 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 …]
|