/dports/math/octave-forge-interval/interval-3.2.0/src/crlibm/scs_lib/ |
H A D | wrapper_scs.h | 68 Scs &operator=(const Scs &nb1); 69 Scs &operator=(const double nb1); 182 inline Scs operator+(Scs &nb1,Scs &nb2){ 194 scs_set_d(&(op.scsnb), nb1); 213 inline Scs operator-(Scs &nb1,Scs &nb2){ 225 scs_set_d(&(op.scsnb), nb1); 243 inline Scs operator*(Scs &nb1,Scs &nb2){ 255 scs_set_d(&(op.scsnb), nb1); 268 scs_mul_ui(&(res.scsnb), nb1); 300 scs_set_d(&(op.scsnb), nb1); [all …]
|
/dports/devel/p5-Curses-UI/Curses-UI-0.9609/t/ |
H A D | 13notebook.t | 37 $nb1->{-border} == 1 && $nb1->{-sbborder} == 0 && 38 $nb1->{-padleft} == 0 && $nb1->{-ipadleft} == 1, 72 my $page = $nb1->add_page('=' x ($nb1->{-w} - 28 - 3 + 1)); 102 $nb1->activate_page('Page 3') && $nb1->active_page eq 'Page 3', 103 'active_page(), nb1' 119 $nb1->delete_page('Page 1'); 127 $nb1->activate_page('Page 2'); 128 $nb1->delete_page('Page 2'); 136 $nb1->delete_page('Page 3'); 138 !$nb1->active_page && [all …]
|
/dports/math/scilab/scilab-6.1.1/scilab/modules/polynomials/src/fortran/ |
H A D | dpsimp.f | 90 nb1=nnb-(lb0-1) 94 n0=max(na1,nb1)+1 110 nb1=nb1-nz 113 nb1=nb1+1 169 nb1=nden 174 nb1=1 178 call dcopy(nb1+1,b(lb0),1,b1,1) 182 call dcopy(nb1+1,b(lb0),1,b1,1) 188 nb1=nb1-nz 191 nb1=nb1+1 [all …]
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/nwpw/nwpwlib/Pneb/ |
H A D | Pneb.F | 864 nb1 = 1 939 nb1 = 1 1013 nb1 = 1 1084 nb1 = 1 1416 nb1=1 1499 nb1=1 1699 nb1=1 1822 nb1=1 1958 nb1=1 2068 nb1=1 [all …]
|
/dports/science/cp2k-data/cp2k-7.1.0/src/ |
H A D | qs_diis.F | 430 ALLOCATE (a(nb1, nb1)) 431 ALLOCATE (b(nb1, nb1)) 440 b(nb1, nb1) = 0.0_dp 445 CALL diamat_all(b(1:nb1, 1:nb1), ev(1:nb1)) 447 a(1:nb1, 1:nb1) = b(1:nb1, 1:nb1) 476 ev(1:nb) = MATMUL(a(1:nb, 1:nb1), b(nb1, 1:nb1)) 710 ALLOCATE (a(nb1, nb1)) 717 b(nb1, nb1) = 0.0_dp 719 CALL diamat_all(b(1:nb1, 1:nb1), ev(1:nb1)) 720 a(1:nb1, 1:nb1) = b(1:nb1, 1:nb1) [all …]
|
/dports/science/cp2k/cp2k-2e995eec7fd208c8a72d9544807bd8b8ba8cd1cc/src/ |
H A D | qs_diis.F | 430 ALLOCATE (a(nb1, nb1)) 431 ALLOCATE (b(nb1, nb1)) 440 b(nb1, nb1) = 0.0_dp 445 CALL diamat_all(b(1:nb1, 1:nb1), ev(1:nb1)) 447 a(1:nb1, 1:nb1) = b(1:nb1, 1:nb1) 476 ev(1:nb) = MATMUL(a(1:nb, 1:nb1), b(nb1, 1:nb1)) 710 ALLOCATE (a(nb1, nb1)) 717 b(nb1, nb1) = 0.0_dp 719 CALL diamat_all(b(1:nb1, 1:nb1), ev(1:nb1)) 720 a(1:nb1, 1:nb1) = b(1:nb1, 1:nb1) [all …]
|
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/nwpw/nwpwlib/Pneb/ |
H A D | Pneb.F | 2001 nb1=1 2004 nb1=nbb 2084 nb1=1 2087 nb1=nbb 2282 nb1=1 2285 nb1=nbb 2407 nb1=1 2546 nb1=1 2657 nb1=1 2789 nb1=1 [all …]
|
/dports/math/plantri/plantri52/ |
H A D | allowed_deg.c | 517 for (nb1 = nb0 + i; nb1 < nbop; nb1 += MAXE) MARKLO(*nb1); in find_extensions_ad() 519 for (; nb1 < nblim; nb1 += MAXE) MARKLO((*nb1)->invers); in find_extensions_ad() 522 for (nb1 = nb0 + e1->index; nb1 < nbop; nb1 += MAXE) MARKLO(*nb1); in find_extensions_ad() 524 for (; nb1 < nblim; nb1 += MAXE) MARKLO((*nb1)->invers); in find_extensions_ad() 527 for (nb1 = nb0 + e1->index; nb1 < nbop; nb1 += MAXE) MARKLO(*nb1); in find_extensions_ad() 529 for (; nb1 < nblim; nb1 += MAXE) MARKLO((*nb1)->invers); in find_extensions_ad() 552 for (nb1 = nb0 + i; nb1 < nbop; nb1 += MAXE) MARKLO(*nb1); in find_extensions_ad() 554 for (; nb1 < nblim; nb1 += MAXE) MARKLO((*nb1)->prev->prev); in find_extensions_ad() 556 for (nb1 = nb0 + e1->index; nb1 < nbop; nb1 += MAXE) in find_extensions_ad() 559 for (; nb1 < nblim; nb1 += MAXE) MARKLO((*nb1)->prev->prev); in find_extensions_ad() [all …]
|
/dports/sysutils/deltarpm/deltarpm-3.6/ |
H A D | makedeltaiso.c | 127 int nb1; in recode_instr() local 137 nb1 = nb2 = 0; in recode_instr() 174 nb1++; in recode_instr() 202 nb1++; in recode_instr() 211 nb1++; in recode_instr() 225 nb1++; in recode_instr() 240 b1[3 * nb1] = j; in recode_instr() 243 nb1++; in recode_instr() 246 *nb1p = nb1; in recode_instr() 472 int nb1; in diffit() local [all …]
|
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/nwpw/band/lib/hfx/ |
H A D | band_hfx.F | 285 integer nb1,nb2 local 311 do nb1=1,nbrillq 312 dbl_mb(kw_rep1(1)+4*(nb1-1)) = brillioun_k(1,nb1) 313 dbl_mb(kw_rep1(1)+4*(nb1-1)+1) = brillioun_k(2,nb1) 314 dbl_mb(kw_rep1(1)+4*(nb1-1)+2) = brillioun_k(3,nb1) 315 dbl_mb(kw_rep1(1)+4*(nb1-1)+3) = brillioun_weight(nb1) 354 do nb1=1,nbrillq 359 do nb1=1,nbrillq-1 408 do nb1=1,nbrillq 492 do nb1=1,nbrillq [all …]
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/nwpw/band/lib/hfx/ |
H A D | band_hfx.F | 285 integer nb1,nb2 local 311 do nb1=1,nbrillq 312 dbl_mb(kw_rep1(1)+4*(nb1-1)) = brillioun_k(1,nb1) 313 dbl_mb(kw_rep1(1)+4*(nb1-1)+1) = brillioun_k(2,nb1) 314 dbl_mb(kw_rep1(1)+4*(nb1-1)+2) = brillioun_k(3,nb1) 315 dbl_mb(kw_rep1(1)+4*(nb1-1)+3) = brillioun_weight(nb1) 354 do nb1=1,nbrillq 359 do nb1=1,nbrillq-1 408 do nb1=1,nbrillq 492 do nb1=1,nbrillq [all …]
|
/dports/math/dieharder/dieharder-3.31.1/libdieharder/ |
H A D | sts_serial.c | 127 nb1 = nb+1; in sts_serial() 135 freq = (double **) malloc(nb1*sizeof(double *)); in sts_serial() 136 for(m = 1;m < nb1;m++) { in sts_serial() 156 psi2 = (double *) malloc(nb1*sizeof(double)); in sts_serial() 157 delpsi2 = (double *) malloc(nb1*sizeof(double)); in sts_serial() 158 del2psi2 = (double *) malloc(nb1*sizeof(double)); in sts_serial() 159 memset(psi2,0,nb1*sizeof(double)); in sts_serial() 209 for(m=1;m<nb1;m++){ in sts_serial() 280 for(m=1;m<nb1;m++){ in sts_serial() 303 for(m=2;m<nb1;m++){ in sts_serial() [all …]
|
/dports/science/quantum-espresso/q-e-qe-6.7.0/KS_Solvers/Davidson/ |
H A D | regterg.f90 | 256 nb1 = nbase + 1 290 CALL g_psi( npwx, npw, notcnv, 1, psi(1,nb1), ew(nb1) ) 321 IF ( uspp ) CALL s_psi( npwx, npw, notcnv, psi(1,nb1), spsi(1,nb1) ) 327 hr( :, nb1:nb1+notcnv-1 )=0.d0 332 CALL mp_sum( hr( :, nb1:nb1+notcnv-1 ), inter_bgrp_comm ) 334 CALL mp_sum( hr( :, nb1:nb1+notcnv-1 ), intra_bgrp_comm ) 336 sr( :, nb1:nb1+notcnv-1 )=0.d0 350 CALL mp_sum( sr( :, nb1:nb1+notcnv-1 ), inter_bgrp_comm ) 352 CALL mp_sum( sr( :, nb1:nb1+notcnv-1 ), intra_bgrp_comm ) 766 nb1 = nbase + 1 [all …]
|
H A D | cegterg.f90 | 292 nb1 = nbase + 1 340 CALL g_psi( npwx, npw, notcnv, npol, psi(1,nb1), ew(nb1) ) 383 CALL h_psi( npwx, npw, notcnv, psi(1,nb1), hpsi(1,nb1) ) ; nhpsi = nhpsi + notcnv 385 IF ( uspp ) CALL s_psi( npwx, npw, notcnv, psi(1,nb1), spsi(1,nb1) ) 428 IF( n>=nb1 ) THEN 847 nb1 = nbase + 1 857 CALL g_psi( npwx, npw, notcnv, npol, psi(1,nb1), ew(nb1) ) 900 CALL h_psi( npwx, npw, notcnv, psi(1,nb1), hpsi(1,nb1) ) ; nhpsi = nhpsi + notcnv 902 IF ( uspp ) CALL s_psi( npwx, npw, notcnv, psi(1,nb1), spsi(1,nb1) ) 1516 ii = nb1 [all …]
|
/dports/devel/gamin/gamin-0.1.10/python/tests/ |
H A D | multiple3.py | 14 nb1 = 0 variable 21 global expect1, nb1 34 if event != expect1[nb1]: 36 expect1[nb1]) 38 nb1 = nb1 + 1 77 if nb1 != len(expect1): 78 print "Error: monitor 1 got %d events, expecting %d" % (nb1, len(expect1))
|
/dports/science/tinker/tinker/source/ |
H A D | kstrbnd.f | 230 integer nb1,nb2 local 419 isb(2,nstrbnd) = nb1 426 isb(2,nstrbnd) = nb1 436 isb(2,nstrbnd) = nb1 443 isb(2,nstrbnd) = nb1 453 isb(2,nstrbnd) = nb1 460 isb(2,nstrbnd) = nb1 470 isb(2,nstrbnd) = nb1 477 isb(2,nstrbnd) = nb1 487 isb(2,nstrbnd) = nb1 [all …]
|
/dports/cad/opencascade/opencascade-7.6.0/src/IGESSelect/ |
H A D | IGESSelect_SelectName.cxx | 50 Standard_Integer nb1 = name->Length(); in Sort() local 51 Standard_Integer nbf = (nb1 <= nb0 ? nb1 : nb0); in Sort() 52 Standard_Integer nbt = (nb1 >= nb0 ? nb1 : nb0); in Sort() 57 if (nb0 > nb1) name = thename; in Sort()
|
/dports/math/scalapack/scalapack-2.1.0/PBLAS/SRC/PTOOLS/ |
H A D | PB_Cptrsv.c | 465 nb1 -= kb; 466 ChangeRoc = ( nb1 == 0 ); 490 tmp1 = N - ( kb = MIN( mb1, nb1 ) ); tmp2 = n1 + nb1 - kb; 585 nb1 -= kb; 592 nb1 = MIN( Anb, N ); 594 tmp1 = N - ( kb = MIN( mb1, nb1 ) ); tmp2 = n1 + nb1 - kb; 704 nb1 -= kb; 705 if( nb1 == 0 ) 709 nb1 = MIN( Anb, N ); 837 nb1 -= kb; [all …]
|
H A D | PB_Cptrsm.c | 506 nb1 -= kb; 507 ChangeRoc = ( nb1 == 0 ); 531 tmp1 = Na - ( kb = MIN( mb1, nb1 ) ); tmp2 = n1 + nb1 - kb; 634 nb1 -= kb; 641 nb1 = MIN( Anb, Na ); 643 tmp1 = Na - ( kb = MIN( mb1, nb1 ) ); tmp2 = n1 + nb1 - kb; 762 nb1 -= kb; 763 if( nb1 == 0 ) 767 nb1 = MIN( Anb, Na ); 901 nb1 -= kb; [all …]
|
/dports/science/openmx/openmx3.8/source/ |
H A D | exx_file_eri.c | 54 int nb1, in EXX_File_ERI_Write() argument 75 sz = fwrite(&nb1, sizeof(int), 1, fp); in EXX_File_ERI_Write() 83 neri = nb1*nb2*nb3*nb4*nrn; in EXX_File_ERI_Write() 136 int i, nr, iop1, iop2, nb1, nb2, nb3, nb4, nrn; in EXX_File_ERI_Read_Data_Head() local 158 sz = fread(&nb1, sizeof(int), 1, fp); in EXX_File_ERI_Read_Data_Head() 169 cb = sizeof(double)*nb1*nb2*nb3*nb4*nrn; in EXX_File_ERI_Read_Data_Head() 197 int i, neri, nr, iop1, iop2, nb1, nb2, nb3, nb4, nrn; in EXX_File_ERI_Read() local 218 sz = fread(&nb1, sizeof(int), 1, fp); in EXX_File_ERI_Read() 229 cb = sizeof(double)*nb1*nb2*nb3*nb4*nrn; in EXX_File_ERI_Read() 236 sz = fread(&nb1, sizeof(int), 1, fp); in EXX_File_ERI_Read() [all …]
|
H A D | exx_rhox.c | 17 int nep, nspin, natom, nb1, nb2; in EXX_Output_DM() local 52 nb1 = atom_nb[ep_atom1[iep]]; in EXX_Output_DM() 54 for (i=0; i<nb1; i++) { in EXX_Output_DM() 67 nb1 = atom_nb[ep_atom1[iep]]; in EXX_Output_DM() 69 for (i=0; i<nb1; i++) { in EXX_Output_DM() 88 int nep, nspin, natom, nb1, nb2; in EXX_Input_DM() local 159 nb1 = atom_nb[ep_atom1[iep]]; in EXX_Input_DM() 161 for (i=0; i<nb1; i++) { in EXX_Input_DM() 174 nb1 = atom_nb[ep_atom1[iep]]; in EXX_Input_DM() 176 for (i=0; i<nb1; i++) { in EXX_Input_DM()
|
/dports/science/quantum-espresso/q-e-qe-6.7.0/KS_Solvers/Davidson_RCI/ |
H A D | david_rci.f90 | 141 INTEGER, save :: nbase, np, kdim, kdmx, n, m, nb1, nbn local 304 nb1 = nbase + 1 311 kdmx, vc, nvecx, ZERO, work%psi(1,1,nb1), kdmx ) 327 kdmx, vc, nvecx, ONE, work%psi(1,1,nb1), kdmx ) 334 work%ivec_start = nb1 375 work%ivec_start = nb1 388 kdmx, work%hpsi(1,1,nb1), kdmx, ZERO, hc(1,nb1), nvecx ) 390 CALL mp_sum( hc( :, nb1:nb1+notcnv-1 ), intra_bgrp_comm ) 395 kdmx, work%spsi(1,1,nb1), kdmx, ZERO, sc(1,nb1), nvecx ) 400 kdmx, work%psi(1,1,nb1), kdmx, ZERO, sc(1,nb1), nvecx ) [all …]
|
/dports/science/lammps/lammps-stable_29Sep2021/tools/i-pi/ipi/utils/ |
H A D | nmtransform.py | 60 def mk_rs_matrix(nb1, nb2): argument 72 if (nb1 == nb2): 73 return np.identity(nb1,float) 74 elif (nb1 > nb2): 75 b1_nm = mk_nm_matrix(nb1) 79 b1_b2 = np.zeros((nb2, nb1), float) 83 b1_b2[nb2-i, nb1-i] = 1.0 88 b1_b2[nb2/2, nb1-nb2/2] = 0.0 91 return rs_b1_b2*np.sqrt(float(nb2)/float(nb1)) 93 return mk_rs_matrix(nb2, nb1).T*(float(nb2)/float(nb1))
|
/dports/math/fxt/fxt/demo/sort/ |
H A D | merge-sort4-demo.cc | 59 const ulong nb1 = nb>>1; in demo_merge_sort_rec4() local 60 const ulong nb2 = nb - nb1; in demo_merge_sort_rec4() 61 demo_merge_sort_rec4(f+na, nb1, t); in demo_merge_sort_rec4() 62 demo_merge_sort_rec4(f+na+nb1, nb2, t); in demo_merge_sort_rec4() 74 cout << "F: "; PRINT(f+na, 0, nb1); in demo_merge_sort_rec4() 75 cout << "F: "; PRINT(f+na+nb1, 0, nb2); in demo_merge_sort_rec4() 76 merge(f+na, nb1, nb2, t+na); in demo_merge_sort_rec4()
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/nwpw/nwpwlib/brillouin_zone/ |
H A D | brillioun.F | 473 integer nb0,nb1 492 nb1 = brillioun_unique_index(nbrillioun,dbl_mb(tks(1))) 493 kw(nb1) = kw(nb1) + dbl_mb(tks(1)+4*(nbrillioun)+3) 495 if (nb1.eq.(nbrillioun+1)) then 526 integer nb1 537 nb1 = 1 539 do while ((nb1.le.nbrillm).and.(.not.found)) 540 found = brillioun_k_sym_compare(kc,ksvec_all(1,nb1)) 541 if (.not.found) nb1 = nb1 + 1 544 brillioun_unique_index = nb1
|