/dports/science/apbs/apbs-pdb2pqr-apbs-1.5-102-g500c1473/apbs/externals/fetk/punc/src/pmg/src_f77/ |
H A D | mblasd.f | 76 ipara = n / nproc 77 ivect = mod(n,nproc) 81 do 10 ii = 1, nproc 113 ipara = n / nproc 118 do 10 ii = 1, nproc 175 ipara = n / nproc 180 do 10 ii = 1, nproc 219 ipara = n / nproc 263 ipara = n / nproc 303 ipara = n / nproc [all …]
|
/dports/math/singular/Singular-Release-4-2-1/kernel/oswrapper/ |
H A D | rlimit.c | 21 struct rlimit nproc; in raise_rlimit_nproc() local 22 getrlimit(RLIMIT_NPROC, &nproc); in raise_rlimit_nproc() 23 if (nproc.rlim_cur == RLIM_INFINITY in raise_rlimit_nproc() 24 || (nproc.rlim_max != RLIM_INFINITY && nproc.rlim_cur >= nproc.rlim_max)) in raise_rlimit_nproc() 28 if (nproc.rlim_cur < 512) in raise_rlimit_nproc() 30 nproc.rlim_cur = 512; in raise_rlimit_nproc() 32 if ((nproc.rlim_max == RLIM_INFINITY || 2*nproc.rlim_cur <= nproc.rlim_max) in raise_rlimit_nproc() 33 && nproc.rlim_cur < 65536) in raise_rlimit_nproc() 35 nproc.rlim_cur = 2*nproc.rlim_cur; in raise_rlimit_nproc() 39 nproc.rlim_cur = nproc.rlim_max; in raise_rlimit_nproc() [all …]
|
/dports/devel/ga/ga-5.8/armci/testing/ |
H A D | test2.c | 100 int me, nproc; variable 580 if ((j + nproc - 1) % 2 == 0 && nproc > 1) { in test_gop2_or_reduce() 590 if ((j + nproc - 1) % 2 != 0 && nproc > 1) { in test_gop2_or_reduce() 591 compare = ((float) j + nproc - 2) / nproc; in test_gop2_or_reduce() 863 int compare = (i * nproc) + nproc / 2 * (nproc - 1); in test_acc_type() 872 long compare = (i * nproc) + nproc / 2 * (nproc - 1); in test_acc_type() 881 float compare = (float)((i * nproc) + nproc / 2 * (nproc - 1)); in test_acc_type() 890 double compare = (double)((i * nproc) + nproc / 2 * (nproc - 1)); in test_acc_type() 891 if (((double *)b[me])[i] != (double)((i * nproc) + nproc / 2 *(nproc - 1))) { in test_acc_type() 899 float compare = (float)((i * nproc) + nproc / 2 * (nproc - 1)); in test_acc_type() [all …]
|
/dports/math/combblas/CombBLAS_beta_16_2/psort-1.0/include/psort/ |
H A D | psort_samplesort.h | 81 int rank, int nproc, in redist() argument 96 while ((i < nproc) && (j < nproc)) { in redist() 119 MPI_Request send_req[nproc], recv_req[nproc]; in redist() 190 int nproc, rank; in parallel_samplesort() local 225 double stride = (double) (nproc * n_samp) / (nproc * k); in parallel_samplesort() 269 int out_counts[nproc]; in parallel_samplesort() 283 long curs[nproc]; in parallel_samplesort() 300 int in_counts[nproc]; in parallel_samplesort() 339 int trans_dist[nproc], dist_out[nproc]; in parallel_samplesort() 358 int nproc; in parallel_samplesort() local [all …]
|
H A D | psort_merge.h | 60 _Distance heads[nproc]; in real_merge() 64 for (int j = 0; j < nproc; ++j) { in real_merge() 94 fill (disps_p + nproc + 1, disps_p + nproc_p + 1, disps[nproc]); in real_merge() 125 if (nproc == 1) { in real_merge() 126 copy (in, in + disps[nproc], out); in real_merge() 139 if (stride >= nproc) in real_merge() 193 if (nproc == 1) { in real_merge() 194 copy (in, in + disps[nproc], out); in real_merge() 200 for (int i=0; i<nproc; ++i) { in real_merge() 219 if (nproc == 1) { in real_merge() [all …]
|
H A D | psort_splitters.h | 74 int nproc, rank; in real_split() local 78 int n_real = nproc; in real_split() 82 copy (dist, dist + nproc, right_ends[nproc].begin()); in real_split() 99 vector< vector<_Distance> > subdist(nproc - 1, vector<_Distance>(nproc)); in real_split() 103 vector< vector<_Distance> > outleft(nproc - 1, vector<_Distance>(nproc, 0)); in real_split() 215 vector< vector<_Distance> > subdist_x(nproc - 1, vector<_Distance>(nproc)); in real_split() 216 vector< vector<_Distance> > outleft_x(nproc - 1, vector<_Distance>(nproc, 0)); in real_split() 325 int nproc, rank; in real_split() local 339 copy (dist, dist + nproc, right_ends[nproc].begin()); in real_split() 366 int nproc, rank; in sample_split_iter() local [all …]
|
/dports/shells/ksh2020/ast-ksh2020/features/ |
H A D | detect_nproc.sh | 6 nproc='' 12 elif type nproc >/dev/null 2>&1 15 nproc=$(nproc) 19 nproc=$(sysctl -n hw.ncpu) 22 if [ -z "$nproc" ] 24 nproc=2 25 elif [ $nproc -lt 2 ] 27 nproc=2 28 elif [ $nproc -gt 64 ] 30 nproc=64 [all …]
|
/dports/net/mpich2/mpich2-1.5/src/armci/tests/ |
H A D | test_onesided.c | 17 int rank, nproc, i, test_iter; in main() local 25 MPI_Comm_size(MPI_COMM_WORLD, &nproc); in main() 27 if (rank == 0) printf("Starting ARMCI test with %d processes\n", nproc); in main() 30 base_ptrs = malloc(sizeof(void*)*nproc); in main() 46 ARMCI_Get(base_ptrs[(rank+1) % nproc], buf, DATA_SZ, (rank+1) % nproc); in main() 49 if (buf[i] != ((rank+1) % nproc)*test_iter) { in main() 50 printf("%d: GET expected %d, got %d\n", rank, (rank+1) % nproc, buf[i]); in main() 59 ARMCI_Put(buf, base_ptrs[(rank+nproc-1) % nproc], DATA_SZ, (rank+nproc-1) % nproc); in main() 65 if (my_data[i] != ((rank+1) % nproc)*test_iter) { in main() 83 …CI_Acc(ARMCI_ACC_INT, &scale, buf, base_ptrs[(rank+nproc-1) % nproc], DATA_SZ, (rank+nproc-1) % np… in main() [all …]
|
H A D | test_onesided_shared.c | 18 int rank, nproc, i, test_iter; in main() local 27 MPI_Comm_size(MPI_COMM_WORLD, &nproc); in main() 29 if (rank == 0) printf("Starting ARMCI test with %d processes\n", nproc); in main() 31 base_ptrs = malloc(sizeof(void*)*nproc); in main() 32 buf_shared = malloc(sizeof(void*)*nproc); in main() 55 ARMCI_Get(base_ptrs[(rank+1) % nproc], buf, DATA_SZ, (rank+1) % nproc); in main() 60 if (buf[i] != ((rank+1) % nproc)*test_iter) { in main() 74 ARMCI_Put(buf, base_ptrs[(rank+nproc-1) % nproc], DATA_SZ, (rank+nproc-1) % nproc); in main() 80 if (my_data[i] != ((rank+1) % nproc)*test_iter) { in main() 102 …CI_Acc(ARMCI_ACC_INT, &scale, buf, base_ptrs[(rank+nproc-1) % nproc], DATA_SZ, (rank+nproc-1) % np… in main() [all …]
|
H A D | test_onesided_shared_dla.c | 18 int rank, nproc, i, test_iter; in main() local 27 MPI_Comm_size(MPI_COMM_WORLD, &nproc); in main() 29 if (rank == 0) printf("Starting ARMCI test with %d processes\n", nproc); in main() 31 base_ptrs = malloc(sizeof(void*)*nproc); in main() 32 buf_shared = malloc(sizeof(void*)*nproc); in main() 57 ARMCI_Get(base_ptrs[(rank+1) % nproc], buf, DATA_SZ, (rank+1) % nproc); in main() 60 if (buf[i] != ((rank+1) % nproc)*test_iter) { in main() 73 ARMCI_Put(buf, base_ptrs[(rank+nproc-1) % nproc], DATA_SZ, (rank+nproc-1) % nproc); in main() 79 if (my_data[i] != ((rank+1) % nproc)*test_iter) { in main() 100 …CI_Acc(ARMCI_ACC_INT, &scale, buf, base_ptrs[(rank+nproc-1) % nproc], DATA_SZ, (rank+nproc-1) % np… in main() [all …]
|
H A D | test_parmci.c | 20 int rank, nproc, i, test_iter; in main() local 29 MPI_Comm_size(MPI_COMM_WORLD, &nproc); in main() 31 if (rank == 0) printf("Starting ARMCI test with %d processes\n", nproc); in main() 34 base_ptrs = malloc(sizeof(void*)*nproc); in main() 51 ARMCI_Get(base_ptrs[(rank+1) % nproc], buf, DATA_SZ, (rank+1) % nproc); in main() 55 if (buf[i] != ((rank+1) % nproc)*test_iter) { in main() 56 printf("%d: GET expected %d, got %d\n", rank, (rank+1) % nproc, buf[i]); in main() 66 ARMCI_Put(buf, base_ptrs[(rank+nproc-1) % nproc], DATA_SZ, (rank+nproc-1) % nproc); in main() 74 if (my_data[i] != ((rank+1) % nproc)*test_iter) { in main() 94 …CI_Acc(ARMCI_ACC_INT, &scale, buf, base_ptrs[(rank+nproc-1) % nproc], DATA_SZ, (rank+nproc-1) % np… in main() [all …]
|
/dports/devel/ga/ga-5.8/comex/testing/ |
H A D | shift.c | 10 static int nproc; variable 128 for (i=1; i<nproc; ++i) { in shift() 129 int dst = (me+i)%nproc; in shift() 135 for (i=1; i<nproc; ++i) { in shift() 142 for (i=1; i<nproc; ++i) { in shift() 143 int dst = (me+i)%nproc; in shift() 149 for (i=1; i<nproc; ++i) { in shift() 156 for (i=1; i<nproc; ++i) { in shift() 163 for (i=1; i<nproc; ++i) { in shift() 176 for (i=0; i<nproc; ++i) { in shift() [all …]
|
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/util/ |
H A D | nxtask.F | 23 integer function nxtask(nproc, ichunk) 27 integer nproc ! [in] local 33 nxtask=nxtask0(nproc, ichunk,0) 48 integer nproc, ichunk ! [input] 78 if(nproc.eq.ga_nnodes()) then 98 junk = util_shcount(nproc) 108 if(nproc.gt.0) then 155 integer nproc local 159 util_shcount=util_gnxtval(nproc) 164 if(nproc.eq.0) return [all …]
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/util/ |
H A D | nxtask.F | 23 integer function nxtask(nproc, ichunk) 27 integer nproc ! [in] local 33 nxtask=nxtask0(nproc, ichunk,0) 48 integer nproc, ichunk ! [input] 78 if(nproc.eq.ga_nnodes()) then 98 junk = util_shcount(nproc) 108 if(nproc.gt.0) then 155 integer nproc local 159 util_shcount=util_gnxtval(nproc) 164 if(nproc.eq.0) return [all …]
|
/dports/math/blacs/BLACS/INSTALL/ |
H A D | fmpi_sane.f | 9 integer nproc, wastesz 10 parameter (nproc = 4) 14 integer irank(nproc), stat(MPI_STATUS_SIZE) 19 if (Np .lt. nproc) then 32 do 20 i = 1, nproc 36 call mpi_group_incl(wgrp, nproc, irank, mgrp, ierr) 49 call mpi_recv(i, 1, MPI_INTEGER, MOD(nproc+Iam-1, nproc), 51 call mpi_send(Iam, 1, MPI_INTEGER, MOD(Iam+1, nproc), 54 call mpi_send(Iam, 1, MPI_INTEGER, MOD(Iam+1, nproc), 56 call mpi_recv(i, 1, MPI_INTEGER, MOD(nproc+Iam-1, nproc), [all …]
|
/dports/math/blacs/BLACS_shared/INSTALL/ |
H A D | fmpi_sane.f | 9 integer nproc, wastesz 10 parameter (nproc = 4) 14 integer irank(nproc), stat(MPI_STATUS_SIZE) 19 if (Np .lt. nproc) then 32 do 20 i = 1, nproc 36 call mpi_group_incl(wgrp, nproc, irank, mgrp, ierr) 49 call mpi_recv(i, 1, MPI_INTEGER, MOD(nproc+Iam-1, nproc), 51 call mpi_send(Iam, 1, MPI_INTEGER, MOD(Iam+1, nproc), 54 call mpi_send(Iam, 1, MPI_INTEGER, MOD(Iam+1, nproc), 56 call mpi_recv(i, 1, MPI_INTEGER, MOD(nproc+Iam-1, nproc), [all …]
|
/dports/math/scalapack/scalapack-2.1.0/BLACS/INSTALL/ |
H A D | fmpi_sane.f | 9 integer nproc, wastesz variable 10 parameter (nproc = 4) 14 integer irank(nproc), stat(MPI_STATUS_SIZE) 19 if (Np .lt. nproc) then 32 do 20 i = 1, nproc 36 call mpi_group_incl(wgrp, nproc, irank, mgrp, ierr) 49 call mpi_recv(i, 1, MPI_INTEGER, MOD(nproc+Iam-1, nproc), 51 call mpi_send(Iam, 1, MPI_INTEGER, MOD(Iam+1, nproc), 54 call mpi_send(Iam, 1, MPI_INTEGER, MOD(Iam+1, nproc), 56 call mpi_recv(i, 1, MPI_INTEGER, MOD(nproc+Iam-1, nproc), [all …]
|
/dports/science/quantum-espresso/q-e-qe-6.7.0/GWW/pw4gww/ |
H A D | mp_wave_parallel.f90 | 80 do ip = 0, nproc-1 87 if(idest>nproc-1)idest=idest-nproc 206 DO ip = 0, nproc-1 211 if(idest>nproc-1)idest=idest-nproc 298 allocate(cbuf1(npw1,nproc),cbuf2(npw2,nproc)) 304 do ii=1,nbands,nproc 345 allocate(npw1_loc(nproc),npw2_loc(nproc)) 354 allocate(ig_l2g1_tot(ngwl1_max,nproc),ig_l2g2_tot(ngwl2_max,nproc)) 364 allocate(pw1_tot(npw1_max,nproc),pw2_tot(npw2_max,nproc)) 376 do ip=1,nproc [all …]
|
/dports/finance/R-cran-strucchange/strucchange/R/ |
H A D | zzz.R | 5 computePval = function(x, nproc = 1) argument 10 computePval = function(x, nproc = 1) argument 86 uniroot(function(y) {computePval(y, nproc = nproc) - alpha}, c(0, 1000))$root 170 uniroot(function(y) {computePval(y, nproc = nproc) - alpha}, c(0, 100))$root 252 computePval <- function(x, nproc = 1) pchisq(x, df = (ncat - 1) * nproc, lower.tail = FALSE) argument 268 if(is.null(nproc)) nproc <- NCOL(freq$process) 271 if(is.null(nproc)) nproc <- 1L:20L 274 if(is.null(nproc)) nproc <- 1L:20L 288 maxproc <- max(nproc) 314 colnames(rval) <- nproc [all …]
|
/dports/science/cp2k/cp2k-2e995eec7fd208c8a72d9544807bd8b8ba8cd1cc/src/pw/ |
H A D | ps_wavelet_base.F | 108 IF (nproc .GT. 1) ALLOCATE (zmpi1(2, n1, md2/nproc, nd3/nproc, nproc)) 136 DO j2 = 1, md2/nproc 168 CALL mp_alltoall(zmpi2, zmpi1, 2*n1*(md2/nproc)*(nd3/nproc), mpi_group) 386 DIMENSION(2, n1, md2/nproc, nd3/nproc, nproc), & 485 DIMENSION(2, n1, md2/nproc, nd3/nproc, nproc), & 908 ALLOCATE (zmpi1(2, n1, md2/nproc, nd3/nproc, nproc)) 1208 DIMENSION(2, n1, md2/nproc, nd3/nproc, nproc), & 1305 DIMENSION(2, n1, md2/nproc, nd3/nproc, nproc), & 1651 IF (nproc .GT. 1) ALLOCATE (zmpi1(2, n1, md2/nproc, nd3/nproc, nproc)) 1976 REAL(KIND=dp) :: zmpi1(2, n1/2, md2/nproc, nd3/nproc, nproc), zw(2, lot, n1) [all …]
|
/dports/science/cp2k-data/cp2k-7.1.0/src/pw/ |
H A D | ps_wavelet_base.F | 108 IF (nproc .GT. 1) ALLOCATE (zmpi1(2, n1, md2/nproc, nd3/nproc, nproc)) 136 DO j2 = 1, md2/nproc 168 CALL mp_alltoall(zmpi2, zmpi1, 2*n1*(md2/nproc)*(nd3/nproc), mpi_group) 386 DIMENSION(2, n1, md2/nproc, nd3/nproc, nproc), & 485 DIMENSION(2, n1, md2/nproc, nd3/nproc, nproc), & 910 ALLOCATE (zmpi1(2, n1, md2/nproc, nd3/nproc, nproc)) 1210 DIMENSION(2, n1, md2/nproc, nd3/nproc, nproc), & 1307 DIMENSION(2, n1, md2/nproc, nd3/nproc, nproc), & 1653 IF (nproc .GT. 1) ALLOCATE (zmpi1(2, n1, md2/nproc, nd3/nproc, nproc)) 1978 REAL(KIND=dp) :: zmpi1(2, n1/2, md2/nproc, nd3/nproc, nproc), zw(2, lot, n1) [all …]
|
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/nwdft/grid/ |
H A D | grid_balance.F | 39 nproc = ga_nnodes() 41 if (nproc.eq.1) return 61 do i = 0, nproc-1 64 nrec = (total - 1) / nproc + 1 69 do i = 0, nproc-1 77 do i = 0, nproc-1 88 do i = 0, nproc-1 104 do i = 0, nproc-1 108 11 j = nproc-1-i 162 do p = 0, (nproc-2)/2 [all …]
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/ddscf/ |
H A D | int2e_balance.F | 39 nproc = ga_nnodes() 40 if (nproc.eq.1) return 59 do i = 0, nproc-1 62 nrec = (total - 1) / nproc + 1 67 do i = 0, nproc-1 75 do i = 0, nproc-1 86 do i = 0, nproc-1 102 do i = 0, nproc-1 107 11 j = nproc-1-i 160 do p = 0, (nproc-2)/2 [all …]
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/nwdft/grid/ |
H A D | grid_balance.F | 39 nproc = ga_nnodes() 41 if (nproc.eq.1) return 61 do i = 0, nproc-1 64 nrec = (total - 1) / nproc + 1 69 do i = 0, nproc-1 77 do i = 0, nproc-1 88 do i = 0, nproc-1 104 do i = 0, nproc-1 108 11 j = nproc-1-i 162 do p = 0, (nproc-2)/2 [all …]
|
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/ddscf/ |
H A D | int2e_balance.F | 39 nproc = ga_nnodes() 40 if (nproc.eq.1) return 59 do i = 0, nproc-1 62 nrec = (total - 1) / nproc + 1 67 do i = 0, nproc-1 75 do i = 0, nproc-1 86 do i = 0, nproc-1 102 do i = 0, nproc-1 107 11 j = nproc-1-i 160 do p = 0, (nproc-2)/2 [all …]
|