/dports/math/R-cran-lpSolve/lpSolve/src/ |
H A D | lusol7a.h | 66 MEMMOVE(LUSOL->indr+LR2, LUSOL->indr+LR1, L); in LU7ADD() 74 J = LUSOL->indr[L]; in LU7ADD() 75 LUSOL->indr[L] = 0; in LU7ADD() 206 LUSOL->indr[L] = IMAX; in LU7ELM() 306 J = LUSOL->indr[L]; in LU7FOR() 379 LUSOL->indr[L] = IV; in LU7FOR() 447 MEMMOVE(LUSOL->indr+LW2, LUSOL->indr+LW1, L); in LU7FOR() 512 J = LUSOL->indr[L]; in LU7FOR() 529 LUSOL->indr[LDIAG] = LUSOL->indr[LW1]; in LU7FOR() 610 LUSOL->indr[LMAX] = LUSOL->indr[L1]; in LU7RNK() [all …]
|
H A D | lusol1.h | 675 J = LUSOL->indr[LR]; 733 LUSOL->indr[LREP] = LUSOL->indr[LAST]; 1845 LUSOL->indr[L] = LUSOL->indr[*NUMNZ]; 1892 LUSOL->indr[I] = 0; 2049 LUSOL->indr[*LROW] = LUSOL->indr[LR]; 2744 LUSOL->indr[L] = LUSOL->indr[LPIVR]; 2840 LUSOL->indr[L] = LUSOL->indr[LAST]; 2948 LUSOL->indr[LU] = LUSOL->indr[LR]; 3541 LUSOL->indr[LL] = LUSOL->indr[LM]; 3557 LUSOL->indr[LL] = LUSOL->indr[LM]; [all …]
|
H A D | lusol6a.h | 113 J = LUSOL->indr[L]; in LU6CHK() 238 J = LUSOL->indr[L]; in LU6CHK() 377 JPIV = LUSOL->indr[L1]; in LU6L() 416 J = LUSOL->indr[L]; in LU6L() 471 IPIV = LUSOL->indr[L1]; in LU6LD() 549 I = LUSOL->indr[L]; in LU6LT() 586 …printf("V[%3d] = V[%3d] + L[%d,%d]*V[%3d]\n", LUSOL->indr[L1], LUSOL->indr[L1], J,LUSOL->indr[L1],… in LU6LT() 591 V[LUSOL->indr[L1]] += (REAL) SUM; in LU6LT() 615 J = LUSOL->indr[L]; in print_L0() 692 J = LUSOL->indr[L]; in LU6U() [all …]
|
/dports/math/lp_solve/lp_solve_5.5/bfp/bfp_LUSOL/LUSOL/ |
H A D | lusol7a.c | 66 MEMMOVE(LUSOL->indr+LR2, LUSOL->indr+LR1, L); in LU7ADD() 74 J = LUSOL->indr[L]; in LU7ADD() 75 LUSOL->indr[L] = 0; in LU7ADD() 206 LUSOL->indr[L] = IMAX; in LU7ELM() 306 J = LUSOL->indr[L]; in LU7FOR() 379 LUSOL->indr[L] = IV; in LU7FOR() 447 MEMMOVE(LUSOL->indr+LW2, LUSOL->indr+LW1, L); in LU7FOR() 512 J = LUSOL->indr[L]; in LU7FOR() 529 LUSOL->indr[LDIAG] = LUSOL->indr[LW1]; in LU7FOR() 610 LUSOL->indr[LMAX] = LUSOL->indr[L1]; in LU7RNK() [all …]
|
H A D | lusol1.c | 675 J = LUSOL->indr[LR]; 733 LUSOL->indr[LREP] = LUSOL->indr[LAST]; 1845 LUSOL->indr[L] = LUSOL->indr[*NUMNZ]; 1892 LUSOL->indr[I] = 0; 2049 LUSOL->indr[*LROW] = LUSOL->indr[LR]; 2744 LUSOL->indr[L] = LUSOL->indr[LPIVR]; 2840 LUSOL->indr[L] = LUSOL->indr[LAST]; 2948 LUSOL->indr[LU] = LUSOL->indr[LR]; 3541 LUSOL->indr[LL] = LUSOL->indr[LM]; 3557 LUSOL->indr[LL] = LUSOL->indr[LM]; [all …]
|
H A D | lusol6a.c | 113 J = LUSOL->indr[L]; in LU6CHK() 238 J = LUSOL->indr[L]; in LU6CHK() 377 JPIV = LUSOL->indr[L1]; in LU6L() 416 J = LUSOL->indr[L]; in LU6L() 471 IPIV = LUSOL->indr[L1]; in LU6LD() 549 I = LUSOL->indr[L]; in LU6LT() 586 …printf("V[%3d] = V[%3d] + L[%d,%d]*V[%3d]\n", LUSOL->indr[L1], LUSOL->indr[L1], J,LUSOL->indr[L1],… in LU6LT() 591 V[LUSOL->indr[L1]] += (REAL) SUM; in LU6LT() 615 J = LUSOL->indr[L]; in print_L0() 692 J = LUSOL->indr[L]; in LU6U() [all …]
|
/dports/emulators/libdsk/libdsk-1.4.2/tools/ |
H A D | dskscan.c | 58 int scan_cyl(DSK_PDRIVER indr, DSK_GEOMETRY *dg, 154 DSK_PDRIVER indr = NULL; in do_scan() local 165 e = dsk_open (&indr, infile, intyp, incomp); in do_scan() 166 if (!e) e = dsk_set_retry(indr, retries); in do_scan() 168 if (!e && idstep) e = dsk_set_option(indr, "DOUBLESTEP", 1); in do_scan() 177 if (!e) e = dsk_getgeom(indr, &dg); in do_scan() 192 dsk_get_comment(indr, &cmt); in do_scan() 207 e = scan_cyl(indr, &dg, cyl, head); in do_scan() 215 if (indr) dsk_close(&indr); in do_scan() 229 int scan_cyl(DSK_PDRIVER indr, DSK_GEOMETRY *dg, in scan_cyl() argument [all …]
|
H A D | dskdump.c | 59 int dump_cyl(DSK_PDRIVER indr, DSK_GEOMETRY *dg, 160 DSK_PDRIVER indr = NULL, outdr = NULL; in do_copy() local 169 e = dsk_open (&indr, infile, intyp, incomp); in do_copy() 170 if (!e) e = dsk_set_retry(indr, retries); in do_copy() 186 if (!e) e = dsk_getgeom(indr, &dg); in do_copy() 196 dsk_get_comment(indr, &cmt); in do_copy() 204 e = dump_cyl(indr, &dg, outdr, cyl, head); in do_copy() 210 if (indr) dsk_close(&indr); in do_copy() 223 int dump_cyl(DSK_PDRIVER indr, DSK_GEOMETRY *dg, in dump_cyl() argument 241 err = dsk_psecid(indr, dg, cyl, head, §or_id); in dump_cyl() [all …]
|
H A D | DskTrans.java | 91 Drive indr = null, outdr = null; in doCopy() local 99 indr = LibDsk.open(infile, intyp, incomp); in doCopy() 100 indr.setForceHead(inside); in doCopy() 103 outdr.setComment(indr.getComment()); in doCopy() 107 indr.probeGeometry(dg); in doCopy() 112 System.out.println("Input driver: " + indr.getDriverDesc()); in doCopy() 156 indr.read(dg, buf, ls); in doCopy() 158 else indr.read(dg, buf, cyl,head,sec + dg.secbase); in doCopy() 181 if (indr != null) indr.close(); in doCopy()
|
H A D | dsktrans.c | 207 DSK_PDRIVER indr = NULL, outdr = NULL; in do_copy() local 219 e = dsk_open (&indr, infile, intyp, incomp); in do_copy() 220 if (!e) e = dsk_set_retry(indr, retries); in do_copy() 224 if (!e && idstep) e = dsk_set_option(indr, "DOUBLESTEP", 1); in do_copy() 230 if (!e) e = dsk_getgeom(indr, &dg); in do_copy() 243 dsk_get_comment(indr, &cmt); in do_copy() 247 dsk_drvdesc(indr), dsk_drvdesc(outdr), in do_copy() 254 while (dsk_option_enum(indr, opt, &cmt) == DSK_ERR_OK && in do_copy() 258 dsk_get_option(indr, cmt, &value) == DSK_ERR_OK) in do_copy() 308 if (!e) e = dsk_lread(indr, &dg, buf, ls); in do_copy() [all …]
|
H A D | dskutil.c | 481 e = dsk_open (&indr, infile, intyp, incomp); in do_util() 482 if (!e) e = dsk_set_retry(indr, retries); in do_util() 491 if (!e) e = dsk_getgeom(indr, &dg); in do_util() 498 if (indr) dsk_close(&indr); in do_util() 546 if (indr) dsk_close(&indr); in do_util() 735 err = dsk_getgeom(indr, &newdg); in new_geometry() 773 dsk_close(&indr); in do_login() 774 indr = pdrv; in do_login() 787 dsk_close(&indr); in do_login() 788 indr = pdrv; in do_login() [all …]
|
/dports/math/octave-forge-dataframe/dataframe-1.2.0/inst/@dataframe/ |
H A D | fold.m | 1 function resu = fold(df, dim, indr, indc) 4 %# The purpose is to fold a dataframe. Part from (1:indr-1) doesn't 5 %# move, then content starting at indr is moved into the second, 31 [indr, nrow] = df_name2idx (df.x_name{1}, indr, df.x_cnt(1), 'row'); 34 if (indr(1) > 1) 35 slice_size = indr(1) - 1; 50 testfunc{indj} = @(x, indr, indc) ... 51 ~isna (x{indr, indc}); 53 testfunc{indj} = @(x, indr, indc) ... 54 ~isna (x(indr, indc)); [all …]
|
H A D | subsref.m | 193 nrow = df.x_cnt(1); indr = 1:nrow; 241 [indr, nrow, S(1).subs{1}] = ... 243 if (~isa(indr, 'char') && max (indr) > df.x_cnt(1)) 294 indr = unique (fullindr); nrow = length (indr); variable 300 dummy = zeros (indr(end), indc(end)); 305 dummy = dummy(indr(1):indr(end), indc(1):indc(end)); 414 resu.x_ridx = df.x_ridx(indr, inds); 416 if (length (df.x_name{1}) >= max (indr)) 451 resu.x_ridx = resu.x_ridx(indr); 477 if (length (df.x_name{1}) >= max (indr)) [all …]
|
H A D | strncmp.m | 28 indr = feval (@strncmp, A.x_data{indc}(:, A.x_rep{indc}), B, n); variable 29 resu(:, indc, A.x_rep{indc}) = indr; 34 indr = feval (@strncmp, A, B.x_data{indc}(:, B.x_rep{indc}), n); variable 35 resu(:, indc, B.x_rep{indc}) = indr;
|
/dports/science/berkeleygw/BGW-2.0.0/BSE/ |
H A D | distrib_kernel.f90 | 275 if (peinf%ipec(ipe,jc,kg%indr(ik)).eq.0) then 278 peinf%ipec(ipe,jc,kg%indr(ik))=peinf%iownwfc(ipe) 287 if (peinf%ipec(ipe,jcp,kg%indr(ikp)).eq.0) then 300 if (peinf%ipev(ipe,kv,kgq%indr(ik)).eq.0) then 312 if (peinf%ipev(ipe,kvp,kgq%indr(ikp)).eq.0) then 351 if (peinf%ipek(ipe,kg%indr(ik)).eq.0) then 353 peinf%ipek(ipe,kg%indr(ik))=peinf%iownwfk(ipe) 356 if (peinf%ipek(ipe,kg%indr(ikp)).eq.0) then 358 peinf%ipek(ipe,kg%indr(ikp))=peinf%iownwfk(ipe) 362 if (peinf%ipekq(ipe,kgq%indr(ik)).eq.0) then [all …]
|
/dports/math/octave-forge-dataframe/dataframe-1.2.0/inst/@dataframe/private/ |
H A D | df_matassign.m | 63 indr = S.subs{1}; variable 96 indr = S.subs{1, 1}; variable 114 indr = 1:nrow; variable 116 if (~isnumeric (indr)) 118 [indr, nrow] = df_name2idx (df.x_name{1}, indr, df.x_cnt(1), 'row'); 260 if (~isempty (indr) && isnumeric(indr)) 296 for indi = (indr) 489 df.x_name{1}(indr) = genvarname(RHS.x_name{1}(indr)); 490 df.x_over{1}(indr) = RHS.x_over{1}(indr); 567 if (~isempty (indr) && isnumeric (indr)) [all …]
|
/dports/science/berkeleygw/BGW-2.0.0/Common/ |
H A D | fullbz.f90 | 52 integer, allocatable :: indr(:),itran(:) local 72 SAFE_ALLOCATE(gr%indr,(gr%nf)) 77 gr%indr(ii)=ii 86 SAFE_ALLOCATE(indr, (gr%nr*ntran)) 96 read(21,*) fk(1:3,ii),itran(ii),indr(ii) 139 indr(gr%nf)=ir 176 tmpf = MATMUL(dble(syms%mtrx(:,:,itran(ii))),gr%r(:,indr(ii))) 224 SAFE_ALLOCATE(gr%indr, (gr%nf)) 227 gr%indr(1:gr%nf)=indr(1:gr%nf) 230 SAFE_DEALLOCATE(indr) [all …]
|
/dports/emulators/libdsk/libdsk-1.4.2/win32vc6/ |
H A D | dsktrans.c | 200 DSK_PDRIVER indr = NULL, outdr = NULL; in do_copy() local 212 e = dsk_open (&indr, infile, intyp, incomp); in do_copy() 213 if (!e) e = dsk_set_retry(indr, retries); in do_copy() 214 if (!e && inside >= 0) e = dsk_set_option(indr, "HEAD", inside); in do_copy() 217 if (!e && idstep) e = dsk_set_option(indr, "DOUBLESTEP", 1); in do_copy() 223 if (!e) e = dsk_getgeom(indr, &dg); in do_copy() 234 dsk_get_comment(indr, &cmt); in do_copy() 237 dsk_drvdesc(indr), dsk_drvdesc(outdr), in do_copy() 279 e = dsk_lread(indr, &dg, buf, ls); in do_copy() 281 else e = dsk_pread(indr, &dg, buf, cyl,head,sec + dg.dg_secbase); in do_copy() [all …]
|
/dports/math/geogram/geogram-1.7.7/src/lib/geogram/third_party/HLBFGS/ |
H A D | ICFS.cpp | 423 --indr; in dicf_() 465 indr[nlj] = i__; in dicf_() 507 indr[nlj] = i__; in dicf_() 519 w[indr[k]] /= diag[j]; in dicf_() 530 dsel2_(&nlj, &w[1], &indr[1], &kth); in dicf_() 537 insort_(&mlj, &indr[kth]); in dicf_() 541 ihsort_(&mlj, &indr[kth]); in dicf_() 554 a[k] = w[indr[k - newisj + kth]]; in dicf_() 565 diag[indr[k]] -= w[indr[k]] * w[indr[k]]; in dicf_() 581 indf[indr[k]] = 0; in dicf_() [all …]
|
/dports/multimedia/v4l_compat/linux-5.13-rc2/net/core/ |
H A D | flow_offload.c | 384 this->indr.cb_priv == cb_priv) in __flow_block_indr_cleanup() 385 list_move(&this->indr.list, cleanup_list); in __flow_block_indr_cleanup() 394 list_del(&this->indr.list); in flow_block_indr_notify() 395 this->indr.cleanup(this); in flow_block_indr_notify() 435 flow_block->indr.binder_type = bo->binder_type; in flow_block_indr_init() 436 flow_block->indr.data = data; in flow_block_indr_init() 437 flow_block->indr.cb_priv = cb_priv; in flow_block_indr_init() 438 flow_block->indr.dev = dev; in flow_block_indr_init() 439 flow_block->indr.sch = sch; in flow_block_indr_init() 440 flow_block->indr.cleanup = cleanup; in flow_block_indr_init() [all …]
|
/dports/multimedia/libv4l/linux-5.13-rc2/net/core/ |
H A D | flow_offload.c | 384 this->indr.cb_priv == cb_priv) in __flow_block_indr_cleanup() 385 list_move(&this->indr.list, cleanup_list); in __flow_block_indr_cleanup() 394 list_del(&this->indr.list); in flow_block_indr_notify() 395 this->indr.cleanup(this); in flow_block_indr_notify() 435 flow_block->indr.binder_type = bo->binder_type; in flow_block_indr_init() 436 flow_block->indr.data = data; in flow_block_indr_init() 437 flow_block->indr.cb_priv = cb_priv; in flow_block_indr_init() 438 flow_block->indr.dev = dev; in flow_block_indr_init() 439 flow_block->indr.sch = sch; in flow_block_indr_init() 440 flow_block->indr.cleanup = cleanup; in flow_block_indr_init() [all …]
|
/dports/multimedia/v4l-utils/linux-5.13-rc2/net/core/ |
H A D | flow_offload.c | 384 this->indr.cb_priv == cb_priv) in __flow_block_indr_cleanup() 385 list_move(&this->indr.list, cleanup_list); in __flow_block_indr_cleanup() 394 list_del(&this->indr.list); in flow_block_indr_notify() 395 this->indr.cleanup(this); in flow_block_indr_notify() 435 flow_block->indr.binder_type = bo->binder_type; in flow_block_indr_init() 436 flow_block->indr.data = data; in flow_block_indr_init() 437 flow_block->indr.cb_priv = cb_priv; in flow_block_indr_init() 438 flow_block->indr.dev = dev; in flow_block_indr_init() 439 flow_block->indr.sch = sch; in flow_block_indr_init() 440 flow_block->indr.cleanup = cleanup; in flow_block_indr_init() [all …]
|
/dports/science/py-GPy/GPy-1.10.0/GPy/kern/src/ |
H A D | eq_ode1.py | 319 indr = indtri1[ind] 321 r = t[indr] - t[indc] 324 kuu[indr, indc] = np.exp(-r2/lq2[index[indr]]) 326 kuu[indc, indr] = kuu[indr, indc] 397 indr = indtri1[ind] 399 r = t[indr] - t[indc] 408 glq[indc, indr] = glq[indr, indc] 423 indr = indtri1[ind] 425 r = t[indr] - t[indc] 431 c = 2.*r/lq2[index[indr]] [all …]
|
/dports/science/PETSc/petsc-3.14.1/src/mat/impls/aij/seq/lusol/ |
H A D | lusol.c | 40 double *parmlu, double *data, int *indc, int *indr, 47 int *indc, int *indr, int *rowperm, int *colperm, 56 int *indr; member 199 ierr = PetscFree3(lusol->data,lusol->indc,lusol->indr);CHKERRQ(ierr); in MatDestroy_LUSOL() 226 lusol->indc, lusol->indr, lusol->ip, lusol->iq, in MatSolve_LUSOL() 270 ierr = PetscFree3(lusol->data,lusol->indc,lusol->indr);CHKERRQ(ierr); in MatLUFactorNumeric_LUSOL() 271 ierr = PetscMalloc3(nnz,&lusol->data,nnz,&lusol->indc,nnz,&lusol->indr);CHKERRQ(ierr); in MatLUFactorNumeric_LUSOL() 287 lusol->indr[nz] = a->j[rs] + 1; in MatLUFactorNumeric_LUSOL() 301 lusol->indc, lusol->indr, lusol->ip, lusol->iq, in MatLUFactorNumeric_LUSOL() 410 ierr = PetscMalloc3(nnz,&lusol->data,nnz,&lusol->indc,nnz,&lusol->indr);CHKERRQ(ierr); in MatLUFactorSymbolic_LUSOL()
|
/dports/science/openkim-models/openkim-models-2021-01-28/model-drivers/PANNA__MD_805652781592_000/ |
H A D | PANNA.cpp | 147 double Gradial_d(double const rdiff, int const indr, double * const dtmp) in Gradial_d() argument 149 double const cent = rdiff - par_.Rsi_rad[indr]; in Gradial_d() 232 for (int indr = 0; indr < par_.RsN_rad; indr++) in compute_gvect() local 236 G[indsh + indr] += Gradial_d(Rij, indr, &dtmp); in compute_gvect() 238 int const indsh2 = (indsh + indr) * (num_neigh + 1) * 3; in compute_gvect() 744 for (int indr = 0; indr < par_.RsN_rad; indr++) in compute_parameters() local 745 par_.Rsi_rad.push_back(par_.Rs0_rad + indr * par_.Rsst_rad); in compute_parameters() 746 for (int indr = 0; indr < par_.RsN_ang; indr++) in compute_parameters() local 747 par_.Rsi_ang.push_back(par_.Rs0_ang + indr * par_.Rsst_ang); in compute_parameters() 748 for (int indr = 0; indr < par_.ThetasN; indr++) in compute_parameters() local [all …]
|