/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/peigs/src/c/ |
H A D | pstebz9.c | 368 proclist = i_work; 369 nn_procs = reduce_list2( *n, mapZ, proclist ); 372 ifakeme = menode_(&nn_procs, proclist ); 472 mxbrod_( i_work, proclist, &isize, &nn_procs, proclist, &itype ); 537 mxbrod_( nsplit, proclist, &isize, &nn_procs, proclist, &itype ); 541 mxbrod_( isplit, proclist, &isize, &nn_procs, proclist, &itype ); 547 mxbrod_( i_work, proclist, &isize, &nn_procs, proclist, &itype ); 559 mxbrod_( i_work, proclist, &isize, &nn_procs, proclist, &itype ); 715 mxbrod_( info, proclist, &isize1, &nn_procs, proclist, &INT); 719 mxbrod_( iblock, proclist, &isize, &nn_procs, proclist, &itype); [all …]
|
H A D | mdif2b.c | 38 void mdif2b_( nA, mapA, nB, mapB, nC, mapC, proclist, ndiff ) in mdif2b_() argument 40 Integer *nA, *mapA, *nB, *mapB, *nC, *mapC, *proclist, *ndiff; in mdif2b_() 89 proclist[indx] = 0; 92 proclist[ mapA[ indx ] ] = 1; 96 proclist[ mapB[ indx ] ] = 0; 99 proclist[ mapC[ indx ] ] = 0; 105 if( proclist[ indx ] > 0){ 106 proclist[ ndiff1 ] = indx; 111 proclist[ indx ] = -1;
|
H A D | mdiff2.c | 38 void mdiff2_( nA, mapA, nB, mapB, nZ, mapZ, proclist, ndiff ) in mdiff2_() argument 40 Integer *nA, *mapA, *nB, *mapB, *nZ, *mapZ, *proclist, *ndiff; in mdiff2_() 89 proclist[indx] = 0; 92 proclist[ mapA[ indx ] ] = 1; 95 proclist[ mapB[ indx ] ] = 1; 99 proclist[ mapZ[ indx ] ] = 0; 104 if( proclist[ indx ] > 0){ 105 proclist[ ndiff1 ] = indx; 110 proclist[ indx ] = -1;
|
H A D | reducemap.c | 38 void reduce_maps( nA, mapA, nB, mapB, nC, mapC, nproc, proclist ) in reduce_maps() argument 41 Integer mapA[], mapB[], mapC[], *nproc, proclist[]; 87 proclist[indx] = 0; 90 proclist[ mapA[ indx ] ] = 1; 93 proclist[ mapB[ indx ] ] = 1; 96 proclist[ mapC[ indx ] ] = 1; 100 if( proclist[ indx ] > 0){ 101 proclist[ mproc ] = indx; 106 proclist[ indx ] = -1;
|
H A D | mdiff1.c | 38 void mdiff1_( nA, mapA, nZ, mapZ, proclist, ndiff ) in mdiff1_() argument 40 Integer *nA, *mapA, *nZ, *mapZ, *proclist, *ndiff; in mdiff1_() 82 proclist[indx] = 0; 85 proclist[ mapA[ indx ] ] = 1; 89 proclist[ mapZ[ indx ] ] = 0; 94 if( proclist[ indx ] > 0){ 95 proclist[ ndiff1 ] = indx; 100 proclist[ indx ] = -1;
|
H A D | pstein3.c | 143 Integer *iwork, *clustr_info, *proclist, local 311 proclist = iiwork; 312 reduce_maps( *meigval, mapZ, 0, mapZ, 0, mapZ, &nn_proc, proclist ); 328 pgexit( &linfo, msg, proclist, &nn_proc, ddwork); 372 pgexit( &linfo, msg, proclist, &nn_proc, ddwork); 396 proclist = iwork; 436 ptbeval, &numclstr, clustr_info, &imin, proclist, 463 sync_proc = proclist[0]; 473 bbcast00((char *) d_scrat, 1, 11112, sync_proc, nn_proc, proclist); 488 bbcast00((char *) i_scrat, 1, 11113, sync_proc, nn_proc, proclist); [all …]
|
H A D | pstein5.c | 139 Integer *iwork, *proclist, local 317 proclist = iiwork; 318 reduce_maps( *meigval, mapZ, 0, mapZ, 0, mapZ, &nn_proc, proclist ); 334 pgexit( &linfo, msg, proclist, &nn_proc, ddwork); 373 pdiff( &isize, (char *) mapZ, proclist, &nn_proc, iscratch, msg, msg2, &linfo ); 378 pgexit( &linfo, msg, proclist, &nn_proc, ddwork); 402 proclist = iwork; 441 ptbeval, &nacluster, clustr_info, &imin, proclist, 468 sync_proc = proclist[0]; 479 bbcast00((char *) d_scrat, 1, 11112, sync_proc, nn_proc, proclist); [all …]
|
H A D | pstein44.c | 147 Integer *iwork, *clustr_info, *proclist, local 315 proclist = iiwork; 316 reduce_maps( *meigval, mapZ, 0, mapZ, 0, mapZ, &nn_proc, proclist ); 332 pgexit( &linfo, msg, proclist, &nn_proc, ddwork); 376 pgexit( &linfo, msg, proclist, &nn_proc, ddwork); 400 proclist = iwork; 440 ptbeval, &numclstr, clustr_info, &imin, proclist, 467 sync_proc = proclist[0]; 477 bbcast00((char *) d_scrat, 1, 11112, sync_proc, nn_proc, proclist); 514 bbcast00((char *) i_scrat, 1, 11113, sync_proc, nn_proc, proclist); [all …]
|
H A D | pstein4.c | 151 Integer *iwork, *proclist, local 326 proclist = iiwork; 327 reduce_maps( *meigval, mapZ, 0, mapZ, 0, mapZ, &nn_proc, proclist ); 343 pgexit( &linfo, msg, proclist, &nn_proc, ddwork); 372 pdiff( &isize, (char *) iblock, proclist, &nn_proc, iscratch, msg, msg2, &linfo ); 382 pdiff( &isize, (char *) mapZ, proclist, &nn_proc, iscratch, msg, msg2, &linfo ); 387 pgexit( &linfo, msg, proclist, &nn_proc, ddwork); 414 proclist = iwork; 490 sync_proc = proclist[0]; 506 gsum00( (char *) syncco, 1, 5, 10, mapZ[0], nn_proc, proclist, d_scrat); [all …]
|
H A D | pdspgvx.c | 302 Integer *proclist, *mapvA, *mapvB, *i_scrat; local 573 proclist = iscratch; 594 pgexit( &linfo, msg, proclist, &nn_proc, scratch ); 632 pgexit( &linfo, msg, proclist, &nn_proc, scratch ); 674 g_proclist = proclist; 676 proclist = NULL; 684 proclist = i_scrat; 767 &nn_proc, proclist, i_scrat, d_scrat + 2 * msize, 771 d_scrat, &nn_proc, proclist, i_scrat); 801 mdif2b_( n, mapB, n, mapA, n, mapZ, proclist, &num_procs ); [all …]
|
H A D | pxerbla.c | 96 Integer *iscrat, *proclist, *map_in; local 121 proclist = iscrat; 122 nprocs = reduce_list2( *len, procmap, proclist); 125 qqsort( proclist, 0, nprocs-1); 138 indx = me_indx = indxL ( me, nprocs, proclist); 149 last_proc = proclist[last_proc]; 151 next_proc = proclist[next_proc];
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/peigs/src/c/ |
H A D | pstebz9.c | 368 proclist = i_work; 369 nn_procs = reduce_list2( *n, mapZ, proclist ); 372 ifakeme = menode_(&nn_procs, proclist ); 472 mxbrod_( i_work, proclist, &isize, &nn_procs, proclist, &itype ); 537 mxbrod_( nsplit, proclist, &isize, &nn_procs, proclist, &itype ); 541 mxbrod_( isplit, proclist, &isize, &nn_procs, proclist, &itype ); 547 mxbrod_( i_work, proclist, &isize, &nn_procs, proclist, &itype ); 559 mxbrod_( i_work, proclist, &isize, &nn_procs, proclist, &itype ); 715 mxbrod_( info, proclist, &isize1, &nn_procs, proclist, &INT); 719 mxbrod_( iblock, proclist, &isize, &nn_procs, proclist, &itype); [all …]
|
H A D | reducemap.c | 38 void reduce_maps( nA, mapA, nB, mapB, nC, mapC, nproc, proclist ) in reduce_maps() argument 41 Integer mapA[], mapB[], mapC[], *nproc, proclist[]; 87 proclist[indx] = 0; 90 proclist[ mapA[ indx ] ] = 1; 93 proclist[ mapB[ indx ] ] = 1; 96 proclist[ mapC[ indx ] ] = 1; 100 if( proclist[ indx ] > 0){ 101 proclist[ mproc ] = indx; 106 proclist[ indx ] = -1;
|
H A D | mdif2b.c | 38 void mdif2b_( nA, mapA, nB, mapB, nC, mapC, proclist, ndiff ) in mdif2b_() argument 40 Integer *nA, *mapA, *nB, *mapB, *nC, *mapC, *proclist, *ndiff; in mdif2b_() 89 proclist[indx] = 0; 92 proclist[ mapA[ indx ] ] = 1; 96 proclist[ mapB[ indx ] ] = 0; 99 proclist[ mapC[ indx ] ] = 0; 105 if( proclist[ indx ] > 0){ 106 proclist[ ndiff1 ] = indx; 111 proclist[ indx ] = -1;
|
H A D | mdiff2.c | 38 void mdiff2_( nA, mapA, nB, mapB, nZ, mapZ, proclist, ndiff ) in mdiff2_() argument 40 Integer *nA, *mapA, *nB, *mapB, *nZ, *mapZ, *proclist, *ndiff; in mdiff2_() 89 proclist[indx] = 0; 92 proclist[ mapA[ indx ] ] = 1; 95 proclist[ mapB[ indx ] ] = 1; 99 proclist[ mapZ[ indx ] ] = 0; 104 if( proclist[ indx ] > 0){ 105 proclist[ ndiff1 ] = indx; 110 proclist[ indx ] = -1;
|
H A D | mdiff1.c | 38 void mdiff1_( nA, mapA, nZ, mapZ, proclist, ndiff ) in mdiff1_() argument 40 Integer *nA, *mapA, *nZ, *mapZ, *proclist, *ndiff; in mdiff1_() 82 proclist[indx] = 0; 85 proclist[ mapA[ indx ] ] = 1; 89 proclist[ mapZ[ indx ] ] = 0; 94 if( proclist[ indx ] > 0){ 95 proclist[ ndiff1 ] = indx; 100 proclist[ indx ] = -1;
|
H A D | pstein3.c | 143 Integer *iwork, *clustr_info, *proclist, local 311 proclist = iiwork; 312 reduce_maps( *meigval, mapZ, 0, mapZ, 0, mapZ, &nn_proc, proclist ); 328 pgexit( &linfo, msg, proclist, &nn_proc, ddwork); 372 pgexit( &linfo, msg, proclist, &nn_proc, ddwork); 396 proclist = iwork; 436 ptbeval, &numclstr, clustr_info, &imin, proclist, 463 sync_proc = proclist[0]; 473 bbcast00((char *) d_scrat, 1, 11112, sync_proc, nn_proc, proclist); 488 bbcast00((char *) i_scrat, 1, 11113, sync_proc, nn_proc, proclist); [all …]
|
H A D | pstein5.c | 139 Integer *iwork, *proclist, local 317 proclist = iiwork; 318 reduce_maps( *meigval, mapZ, 0, mapZ, 0, mapZ, &nn_proc, proclist ); 334 pgexit( &linfo, msg, proclist, &nn_proc, ddwork); 373 pdiff( &isize, (char *) mapZ, proclist, &nn_proc, iscratch, msg, msg2, &linfo ); 378 pgexit( &linfo, msg, proclist, &nn_proc, ddwork); 402 proclist = iwork; 441 ptbeval, &nacluster, clustr_info, &imin, proclist, 468 sync_proc = proclist[0]; 479 bbcast00((char *) d_scrat, 1, 11112, sync_proc, nn_proc, proclist); [all …]
|
H A D | pstein44.c | 147 Integer *iwork, *clustr_info, *proclist, local 315 proclist = iiwork; 316 reduce_maps( *meigval, mapZ, 0, mapZ, 0, mapZ, &nn_proc, proclist ); 332 pgexit( &linfo, msg, proclist, &nn_proc, ddwork); 376 pgexit( &linfo, msg, proclist, &nn_proc, ddwork); 400 proclist = iwork; 440 ptbeval, &numclstr, clustr_info, &imin, proclist, 467 sync_proc = proclist[0]; 477 bbcast00((char *) d_scrat, 1, 11112, sync_proc, nn_proc, proclist); 514 bbcast00((char *) i_scrat, 1, 11113, sync_proc, nn_proc, proclist); [all …]
|
H A D | pstein4.c | 151 Integer *iwork, *proclist, local 326 proclist = iiwork; 327 reduce_maps( *meigval, mapZ, 0, mapZ, 0, mapZ, &nn_proc, proclist ); 343 pgexit( &linfo, msg, proclist, &nn_proc, ddwork); 372 pdiff( &isize, (char *) iblock, proclist, &nn_proc, iscratch, msg, msg2, &linfo ); 382 pdiff( &isize, (char *) mapZ, proclist, &nn_proc, iscratch, msg, msg2, &linfo ); 387 pgexit( &linfo, msg, proclist, &nn_proc, ddwork); 414 proclist = iwork; 490 sync_proc = proclist[0]; 506 gsum00( (char *) syncco, 1, 5, 10, mapZ[0], nn_proc, proclist, d_scrat); [all …]
|
H A D | pdspgvx.c | 302 Integer *proclist, *mapvA, *mapvB, *i_scrat; local 573 proclist = iscratch; 594 pgexit( &linfo, msg, proclist, &nn_proc, scratch ); 632 pgexit( &linfo, msg, proclist, &nn_proc, scratch ); 674 g_proclist = proclist; 676 proclist = NULL; 684 proclist = i_scrat; 767 &nn_proc, proclist, i_scrat, d_scrat + 2 * msize, 771 d_scrat, &nn_proc, proclist, i_scrat); 801 mdif2b_( n, mapB, n, mapA, n, mapZ, proclist, &num_procs ); [all …]
|
/dports/databases/percona-toolkit/percona-toolkit-3.3.0/t/pt-kill/ |
H A D | group_queries.t | 20 my $proclist = 107 proclist => $proclist, 210 $proclist = [ 241 proclist => $proclist, 285 proclist => $proclist,
|
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/util/ |
H A D | util_sgroup.F | 444 integer i,j,proclist(maxcpus),num_proc 460 proclist(j+1)=ga_cluster_procid(i,j) 472 proclist(i+1)=ga_cluster_procid(i,0) 532 proclist(proc_counter) = i 553 proclist(group_counter) = i 623 proclist(proc_counter) = cpu_array(pos_counter) 624 if (proclist(proc_counter) .eq. myproc) then 643 proclist(group_counter) = cpu_array(pos_counter) 669 integer num_proc,proclist(maxcpus) 698 proclist(j)=n [all …]
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/util/ |
H A D | util_sgroup.F | 444 integer i,j,proclist(maxcpus),num_proc 460 proclist(j+1)=ga_cluster_procid(i,j) 472 proclist(i+1)=ga_cluster_procid(i,0) 532 proclist(proc_counter) = i 553 proclist(group_counter) = i 623 proclist(proc_counter) = cpu_array(pos_counter) 624 if (proclist(proc_counter) .eq. myproc) then 643 proclist(group_counter) = cpu_array(pos_counter) 669 integer num_proc,proclist(maxcpus) 698 proclist(j)=n [all …]
|
/dports/shells/es/es-0.9-beta1/ |
H A D | proc.c | 25 static Proc *proclist = NULL; variable 30 for (proc = proclist; proc != NULL; proc = proc->next) in mkproc() 37 proc->next = proclist; in mkproc() 53 if (proclist != NULL) in efork() 54 proclist->prev = proc; in efork() 55 proclist = proc; in efork() 59 proclist = NULL; in efork() 101 for (proc = proclist; proc != NULL; proc = proc->next) in reap() 117 for (proc = proclist; proc != NULL; proc = proc->next) in ewait() 139 proclist = proc->next; in ewait() [all …]
|