/dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/PORT_sw_rad/src/ |
H A D | cmparray_mod.F90 | 50 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 D | list_sort_search.cc | 56 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 D | list_sort_search.cc | 56 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 D | eig2bxsf.f | 12 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 D | search.f | 56 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 D | dint_block_j.F | 2 & 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 D | dint_block_j.F | 2 & 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 D | dummy2.red | 143 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 D | grad1_so.F | 45 $ 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 D | grad1_so.F | 45 $ 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 D | intlist_test.py | 75 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 D | intlist_test.py | 75 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 D | intlist_test.py | 75 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 D | onedd_calc.F | 39 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 D | onedd_calc.F | 39 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 D | gipaw_module.f90 | 438 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 D | SJplot.m | 245 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 D | SJplot.m | 245 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 D | SJplot.m | 245 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 D | SJplot.m | 245 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 D | SJplot.m | 245 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 D | SJplot.m | 245 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 D | SJplot.m | 245 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 D | SJplot.m | 245 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 D | SJplot.m | 245 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 …]
|