Home
last modified time | relevance | path

Searched refs:il1 (Results 1 – 25 of 565) sorted by relevance

12345678910>>...23

/dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/PORT_sw_rad/src/
H A Dcmparray_mod.F9050 INTEGER, intent(in) :: il1 local
63 INTEGER, intent(in) :: il1 local
76 INTEGER, intent(in) :: il1 local
91 Array(il1:il1+Nday-1,j,k) = Array(IdxDay(1:Nday),j,k)
92 Array(il1+Nday:il1+Nday+Nnite-1,j,k) = tmp(1:Nnite)
144 do i=il1,il1+Nday-1
147 do i=il1+Nday,il1+Nday+Nnite-1
199 Array(il1:il1+Nday-1,j,k) = Array(IdxDay(1:Nday),j,k)
200 Array(il1+Nday:il1+Nday+Nnite-1,j,k) = tmp(1:Nnite)
250 Array(IdxNite(1:Nnite),j,k) = Array(il1+Nday:il1+Nday+Nnite-1,j,k)
[all …]
/dports/devel/zpu-binutils/zpu-toolchain-1.0/toolchain/gcc/libstdc++-v3/testsuite/performance/20_util/allocator/
H A Dlist_sort_search.cc56 My_List il1; in Test_Allocator() local
64 il1.push_back (rand()%500001); in Test_Allocator()
68 std::find (il1.begin(), il1.end(), rand()%100001); in Test_Allocator()
70 il1.sort (); in Test_Allocator()
75 typename My_List::iterator _liter = std::find (il1.begin(), il1.end(), rand()%100001); in Test_Allocator()
76 if (_liter != il1.end()) in Test_Allocator()
77 il1.erase (_liter); in Test_Allocator()
80 il1.clear (); in Test_Allocator()
/dports/devel/zpu-gcc/zpu-toolchain-1.0/toolchain/gcc/libstdc++-v3/testsuite/performance/20_util/allocator/
H A Dlist_sort_search.cc56 My_List il1; in Test_Allocator() local
64 il1.push_back (rand()%500001); in Test_Allocator()
68 std::find (il1.begin(), il1.end(), rand()%100001); in Test_Allocator()
70 il1.sort (); in Test_Allocator()
75 typename My_List::iterator _liter = std::find (il1.begin(), il1.end(), rand()%100001); in Test_Allocator()
76 if (_liter != il1.end()) in Test_Allocator()
77 il1.erase (_liter); in Test_Allocator()
80 il1.clear (); in Test_Allocator()
/dports/science/siesta/siesta-4.1.5/Util/Contrib/APostnikov/
H A Deig2bxsf.f12 integer ii1,ii2,ii3,io1,il1
13 parameter (ii1=11,ii2=12,ii3=13,io1=14,il1=15)
95 write(il1,*) 'Direct cell vectors:'
97 write(il1, 502) (cell(ii,jj),jj=1,3)
100 write(il1,*) 'Reciprocal cell vectors without 2pi:'
102 write(il1, 502) (rcell(jj,ii),jj=1,3)
104 write(il1,*) 'Reciprocal cell vectors times 2pi:'
106 write(il1, 502) (rcell(jj,ii)*twopi,jj=1,3)
164 write (il1,501) ikp, (relk(ii,ikp),ii=1,3),
195 write (il1,503) idiv1,idiv2,idiv3,ikp
[all …]
/dports/biology/molden/molden5.8/
H A Dsearch.f56 il1 = len(line)
57 if (il1.gt.137) il1 = 137
61 cline(1:il1) = line
63 call tocap(cline,il1)
66 icdex = index(cline(1:il1),caps(1:il2))
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/nwdft/dftgrad/
H A Ddint_block_j.F2 & idatom, if1, il1, if2, il2, if3, il3, if4, il4)
13 integer if1, il1, if2, il2, if3, il3, if4, il4
28 do ip1 = if1, il1
71 double precision dfij(if2:il2, if1:il1)
109 do ip1 = if1, il1
133 & if1, il1, 1.d0, dfij, 0.d0)
221 & idatom, if1, il1, if2, il2)
233 integer if1, il1, if2, il2
249 do ip1 = if1, il1
324 do ip1 = if1, il1
[all …]
/dports/science/nwchem-data/nwchem-7.0.2-release/src/nwdft/dftgrad/
H A Ddint_block_j.F2 & idatom, if1, il1, if2, il2, if3, il3, if4, il4)
13 integer if1, il1, if2, il2, if3, il3, if4, il4
28 do ip1 = if1, il1
71 double precision dfij(if2:il2, if1:il1)
109 do ip1 = if1, il1
133 & if1, il1, 1.d0, dfij, 0.d0)
221 & idatom, if1, il1, if2, il2)
233 integer if1, il1, if2, il2
249 do ip1 = if1, il1
324 do ip1 = if1, il1
[all …]
/dports/math/reduce/Reduce-svn5758-src/packages/atensor/
H A Ddummy2.red143 symbolic procedure il_update1(il,d_alst,il1)$
144 if null il then reversip il1
179 begin scalar il1,il2,w,w1,ok,x$
182 then << il1:=car w . il1$ w:=cdr w >>
185 il1:=car w . il1$
186 il2:=il1$
197 x:=car il1$
198 rplaca(il1,car il2)$
232 symbolic procedure mk_fflip2(il,dp1,dp2,il1)$
234 if null il then reverse il1
[all …]
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/nwdft/so_dft/
H A Dgrad1_so.F45 $ if1, il1, if2, il2,
112 status = bas_cn2bfr(basis,ish1,if1,il1)
114 il1 = il1 - iab1f + 1
119 nint = ( il1 - if1 + 1 ) * ( il2 - if2 + 1 )
132 do 22, ip1 = if1, il1
156 do 31, ip1 = if1, il1
178 do 131, ip1 = if1, il1
189 do 230, ip1 = if1, il1
200 do 250, ip1 = if1, il1
/dports/science/nwchem-data/nwchem-7.0.2-release/src/nwdft/so_dft/
H A Dgrad1_so.F45 $ if1, il1, if2, il2,
112 status = bas_cn2bfr(basis,ish1,if1,il1)
114 il1 = il1 - iab1f + 1
119 nint = ( il1 - if1 + 1 ) * ( il2 - if2 + 1 )
132 do 22, ip1 = if1, il1
156 do 31, ip1 = if1, il1
178 do 131, ip1 = if1, il1
189 do 230, ip1 = if1, il1
200 do 250, ip1 = if1, il1
/dports/devel/shiboken2/pyside-setup-opensource-src-5.15.2/sources/shiboken2/tests/samplebinding/
H A Dintlist_test.py75 il1 = IntList(123)
76 il2 = IntList(il1)
77 self.assertEqual(len(il1), len(il2))
78 for i in range(len(il1)):
79 self.assertEqual(il1[i], il2[i])
/dports/devel/pyside2-tools/pyside-setup-opensource-src-5.15.2/sources/shiboken2/tests/samplebinding/
H A Dintlist_test.py75 il1 = IntList(123)
76 il2 = IntList(il1)
77 self.assertEqual(len(il1), len(il2))
78 for i in range(len(il1)):
79 self.assertEqual(il1[i], il2[i])
/dports/devel/pyside2/pyside-setup-opensource-src-5.15.2/sources/shiboken2/tests/samplebinding/
H A Dintlist_test.py75 il1 = IntList(123)
76 il2 = IntList(il1)
77 self.assertEqual(len(il1), len(il2))
78 for i in range(len(il1)):
79 self.assertEqual(il1[i], il2[i])
/dports/science/nwchem-data/nwchem-7.0.2-release/src/hessian/analytic/
H A Donedd_calc.F39 integer iab1f, iab1l, iab2f, iab2l, ish1, ish2, if1, il1, if2, il2
109 status = bas_cn2bfr(basis,ish1,if1,il1)
111 il1 = il1 - iab1f + 1
136 do 22 ip1 = if1, il1
169 do ip1 = if1, il1
203 do 31 ip1 = if1, il1
247 do ip1 = if1, il1
301 do ip1 = if1, il1
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/hessian/analytic/
H A Donedd_calc.F39 integer iab1f, iab1l, iab2f, iab2l, ish1, ish2, if1, il1, if2, il2
109 status = bas_cn2bfr(basis,ish1,if1,il1)
111 il1 = il1 - iab1f + 1
136 do 22 ip1 = if1, il1
169 do ip1 = if1, il1
203 do 31 ip1 = if1, il1
247 do ip1 = if1, il1
301 do ip1 = if1, il1
/dports/science/quantum-espresso/q-e-qe-6.7.0/XSpectra/src/
H A Dgipaw_module.f90438 do il1=1, paw_recon(nt)%paw_nbeta
439 l1 = paw_recon(nt)%psphi(il1)%label%l
440 kkpsi = paw_recon(nt)%aephi(il1)%kkpsi
442 nrc = paw_recon(nt)%psphi(il1)%label%nrc
460 radial_integral_diamagnetic(il1,il2,nt) )
463 radial_integral_diamagnetic(il1,il2,nt) &
481 radial_integral_paramagnetic(il1,il2,nt) )
484 radial_integral_paramagnetic(il1,il2,nt) &
508 radial_integral_rmc(il1,il2,nt) )
511 radial_integral_rmc(il1,il2,nt)
[all …]
/dports/math/suitesparse-klu/SuiteSparse-5.10.1/MATLAB_Tools/spqr_rank/SJget/
H A DSJplot.m245 il1 = find( disv > 1) ; variable
252 for i = 1:length(il1)
254 isvalsv = isv(1):isv(il1(i));
260 nsvalp(1) = isv(il1(i));
269 isvalsv = isv(il1(i-1) + 1): isv(il1(i));
271 nsvalp(i) = length( svals( isv(il1(i-1) + 1): isv(il1(i))) );
272 svalp = [ svalp; svals( isv(il1(i-1) + 1): isv(il1(i)))];
274 isv(il1(i)))];
280 if ( length( il1 ) == 0 )
283 ib = isv( il1( length( il1 )) + 1 );
[all …]
/dports/math/suitesparse-ldl/SuiteSparse-5.10.1/MATLAB_Tools/spqr_rank/SJget/
H A DSJplot.m245 il1 = find( disv > 1) ; variable
252 for i = 1:length(il1)
254 isvalsv = isv(1):isv(il1(i));
260 nsvalp(1) = isv(il1(i));
269 isvalsv = isv(il1(i-1) + 1): isv(il1(i));
271 nsvalp(i) = length( svals( isv(il1(i-1) + 1): isv(il1(i))) );
272 svalp = [ svalp; svals( isv(il1(i-1) + 1): isv(il1(i)))];
274 isv(il1(i)))];
280 if ( length( il1 ) == 0 )
283 ib = isv( il1( length( il1 )) + 1 );
[all …]
/dports/math/suitesparse-config/SuiteSparse-5.10.1/MATLAB_Tools/spqr_rank/SJget/
H A DSJplot.m245 il1 = find( disv > 1) ; variable
252 for i = 1:length(il1)
254 isvalsv = isv(1):isv(il1(i));
260 nsvalp(1) = isv(il1(i));
269 isvalsv = isv(il1(i-1) + 1): isv(il1(i));
271 nsvalp(i) = length( svals( isv(il1(i-1) + 1): isv(il1(i))) );
272 svalp = [ svalp; svals( isv(il1(i-1) + 1): isv(il1(i)))];
274 isv(il1(i)))];
280 if ( length( il1 ) == 0 )
283 ib = isv( il1( length( il1 )) + 1 );
[all …]
/dports/math/suitesparse-amd/SuiteSparse-5.10.1/MATLAB_Tools/spqr_rank/SJget/
H A DSJplot.m245 il1 = find( disv > 1) ; variable
252 for i = 1:length(il1)
254 isvalsv = isv(1):isv(il1(i));
260 nsvalp(1) = isv(il1(i));
269 isvalsv = isv(il1(i-1) + 1): isv(il1(i));
271 nsvalp(i) = length( svals( isv(il1(i-1) + 1): isv(il1(i))) );
272 svalp = [ svalp; svals( isv(il1(i-1) + 1): isv(il1(i)))];
274 isv(il1(i)))];
280 if ( length( il1 ) == 0 )
283 ib = isv( il1( length( il1 )) + 1 );
[all …]
/dports/math/suitesparse-graphblas/SuiteSparse-5.10.1/MATLAB_Tools/spqr_rank/SJget/
H A DSJplot.m245 il1 = find( disv > 1) ; variable
252 for i = 1:length(il1)
254 isvalsv = isv(1):isv(il1(i));
260 nsvalp(1) = isv(il1(i));
269 isvalsv = isv(il1(i-1) + 1): isv(il1(i));
271 nsvalp(i) = length( svals( isv(il1(i-1) + 1): isv(il1(i))) );
272 svalp = [ svalp; svals( isv(il1(i-1) + 1): isv(il1(i)))];
274 isv(il1(i)))];
280 if ( length( il1 ) == 0 )
283 ib = isv( il1( length( il1 )) + 1 );
[all …]
/dports/math/suitesparse-mongoose/SuiteSparse-5.10.1/MATLAB_Tools/spqr_rank/SJget/
H A DSJplot.m245 il1 = find( disv > 1) ; variable
252 for i = 1:length(il1)
254 isvalsv = isv(1):isv(il1(i));
260 nsvalp(1) = isv(il1(i));
269 isvalsv = isv(il1(i-1) + 1): isv(il1(i));
271 nsvalp(i) = length( svals( isv(il1(i-1) + 1): isv(il1(i))) );
272 svalp = [ svalp; svals( isv(il1(i-1) + 1): isv(il1(i)))];
274 isv(il1(i)))];
280 if ( length( il1 ) == 0 )
283 ib = isv( il1( length( il1 )) + 1 );
[all …]
/dports/math/suitesparse-cholmod/SuiteSparse-5.10.1/MATLAB_Tools/spqr_rank/SJget/
H A DSJplot.m245 il1 = find( disv > 1) ; variable
252 for i = 1:length(il1)
254 isvalsv = isv(1):isv(il1(i));
260 nsvalp(1) = isv(il1(i));
269 isvalsv = isv(il1(i-1) + 1): isv(il1(i));
271 nsvalp(i) = length( svals( isv(il1(i-1) + 1): isv(il1(i))) );
272 svalp = [ svalp; svals( isv(il1(i-1) + 1): isv(il1(i)))];
274 isv(il1(i)))];
280 if ( length( il1 ) == 0 )
283 ib = isv( il1( length( il1 )) + 1 );
[all …]
/dports/math/suitesparse-colamd/SuiteSparse-5.10.1/MATLAB_Tools/spqr_rank/SJget/
H A DSJplot.m245 il1 = find( disv > 1) ; variable
252 for i = 1:length(il1)
254 isvalsv = isv(1):isv(il1(i));
260 nsvalp(1) = isv(il1(i));
269 isvalsv = isv(il1(i-1) + 1): isv(il1(i));
271 nsvalp(i) = length( svals( isv(il1(i-1) + 1): isv(il1(i))) );
272 svalp = [ svalp; svals( isv(il1(i-1) + 1): isv(il1(i)))];
274 isv(il1(i)))];
280 if ( length( il1 ) == 0 )
283 ib = isv( il1( length( il1 )) + 1 );
[all …]
/dports/math/suitesparse-ccolamd/SuiteSparse-5.10.1/MATLAB_Tools/spqr_rank/SJget/
H A DSJplot.m245 il1 = find( disv > 1) ; variable
252 for i = 1:length(il1)
254 isvalsv = isv(1):isv(il1(i));
260 nsvalp(1) = isv(il1(i));
269 isvalsv = isv(il1(i-1) + 1): isv(il1(i));
271 nsvalp(i) = length( svals( isv(il1(i-1) + 1): isv(il1(i))) );
272 svalp = [ svalp; svals( isv(il1(i-1) + 1): isv(il1(i)))];
274 isv(il1(i)))];
280 if ( length( il1 ) == 0 )
283 ib = isv( il1( length( il1 )) + 1 );
[all …]

12345678910>>...23