| /dports/archivers/lbzip2/lbzip2-2.5/src/ |
| H A D | compress.c | 76 struct in_blk *iblk; in do_collect() local
93 collect(wblk->enc, iblk->next, &iblk->left); in do_collect()
99 ++iblk->pos.minor; in do_collect()
108 free(iblk); in do_collect()
129 struct in_blk *iblk; in do_collect_seq() local
138 iblk = NULL; in do_collect_seq()
155 if (iblk != NULL) { in do_collect_seq()
157 done = collect(wblk->enc, iblk->next, &iblk->left); in do_collect_seq()
173 free(iblk); in do_collect_seq()
262 iblk->size = size; in on_input_avail()
[all …]
|
| /dports/science/cdo/cdo-2.0.0/src/ |
| H A D | remap_store_link_cnsrv.cc | 17 long iblk; in grid_store_init() local
22 for (iblk = nblks - 1; iblk >= 0; --iblk) in grid_store_init()
23 if (gridsize / blksize[iblk] > 99) break; in grid_store_init()
25 if (iblk < 0) iblk = 0; in grid_store_init()
28 grid_store.blk_size = blksize[iblk]; in grid_store_init()
43 for (iblk = 0; iblk < nblocks; ++iblk) in grid_store_init()
46 grid_store.nlayers[iblk] = 0; in grid_store_init()
47 grid_store.layers[iblk] = nullptr; in grid_store_init()
58 for (long iblk = 0; iblk < nblocks; ++iblk) in grid_store_delete() local
120 long iblk = BLK_NUM(add2); in store_link_cnsrv() local
[all …]
|
| /dports/math/libmesh/libmesh-1.6.2/contrib/exodusii/Lib/src/ |
| H A D | expcab.c | 62 size_t iblk; in ex_put_concat_all_blocks() local
226 if (DVAL[iblk] > 0) { \ in ex_put_concat_all_blocks()
233 ID[iblk],exoid); \ in ex_put_concat_all_blocks()
246 ID[iblk],exoid); \ in ex_put_concat_all_blocks()
274 BLKID[iblk],exoid); \ in ex_put_concat_all_blocks()
282 for (iblk = 0; iblk < num_edge_blk; ++iblk) { in ex_put_concat_all_blocks()
309 param->edge_blk_id[iblk],exoid); in ex_put_concat_all_blocks()
313 param->edge_blk_id[iblk],exoid); in ex_put_concat_all_blocks()
348 for (iblk = 0; iblk < num_face_blk; ++iblk) { in ex_put_concat_all_blocks()
375 param->face_blk_id[iblk],exoid); in ex_put_concat_all_blocks()
[all …]
|
| H A D | expclb.c | 75 int iblk; in ex_put_concat_elem_block() local
181 for (iblk = 0; iblk < num_elem_blk; iblk++) { in ex_put_concat_elem_block()
208 elem_blk_id[iblk],exoid); in ex_put_concat_elem_block()
212 elem_blk_id[iblk],exoid); in ex_put_concat_elem_block()
224 elem_blk_id[iblk],exoid); in ex_put_concat_elem_block()
249 elem_type[iblk],exoid); in ex_put_concat_elem_block()
255 if (num_attr[iblk] > 0) { in ex_put_concat_elem_block()
262 elem_blk_id[iblk],exoid); in ex_put_concat_elem_block()
279 eb_array[iblk] = temp; in ex_put_concat_elem_block()
289 elem_blk_id[iblk],exoid); in ex_put_concat_elem_block()
[all …]
|
| /dports/math/vtk6/VTK-6.2.0/ThirdParty/exodusII/vtkexodusII/ |
| H A D | expcab.c | 62 size_t iblk; in ex_put_concat_all_blocks() local
226 if (DVAL[iblk] > 0) { \ in ex_put_concat_all_blocks()
233 ID[iblk],exoid); \ in ex_put_concat_all_blocks()
282 for (iblk = 0; iblk < num_edge_blk; ++iblk) { in ex_put_concat_all_blocks()
309 param->edge_blk_id[iblk],exoid); in ex_put_concat_all_blocks()
313 param->edge_blk_id[iblk],exoid); in ex_put_concat_all_blocks()
348 for (iblk = 0; iblk < num_face_blk; ++iblk) { in ex_put_concat_all_blocks()
375 param->face_blk_id[iblk],exoid); in ex_put_concat_all_blocks()
379 param->face_blk_id[iblk],exoid); in ex_put_concat_all_blocks()
414 for (iblk = 0; iblk < num_elem_blk; ++iblk) { in ex_put_concat_all_blocks()
[all …]
|
| H A D | expclb.c | 75 int iblk; in ex_put_concat_elem_block() local
181 for (iblk = 0; iblk < num_elem_blk; iblk++) { in ex_put_concat_elem_block()
208 elem_blk_id[iblk],exoid); in ex_put_concat_elem_block()
212 elem_blk_id[iblk],exoid); in ex_put_concat_elem_block()
224 elem_blk_id[iblk],exoid); in ex_put_concat_elem_block()
249 elem_type[iblk],exoid); in ex_put_concat_elem_block()
255 if (num_attr[iblk] > 0) { in ex_put_concat_elem_block()
262 elem_blk_id[iblk],exoid); in ex_put_concat_elem_block()
279 eb_array[iblk] = temp; in ex_put_concat_elem_block()
289 elem_blk_id[iblk],exoid); in ex_put_concat_elem_block()
[all …]
|
| /dports/math/elpa/elpa-2019.05.002/src/elpa2/ |
| H A D | elpa2_tridiag_band_template.F90 | 600 hh_cnt(iblk) = hh_cnt(iblk) + 1
602 hh_gath(1 ,hh_cnt(iblk),iblk) = tau
801 hh_cnt(iblk) = hh_cnt(iblk) + 1
803 hh_gath(1 ,hh_cnt(iblk),iblk) = tau
807 if (hh_cnt(iblk) == snd_limits(hh_dst(iblk)+1,iblk)-snd_limits(hh_dst(iblk),iblk)) then
816 hh_send(:,1:hh_cnt(iblk),iblk) = hh_gath(:,1:hh_cnt(iblk),iblk)
833 hh_dst(iblk) = hh_dst(iblk)+1
1067 if (snd_limits(hh_dst(iblk)+1,iblk) == snd_limits(hh_dst(iblk),iblk)) exit
1069 if (hh_cnt(iblk) == snd_limits(hh_dst(iblk)+1,iblk)-snd_limits(hh_dst(iblk),iblk)) then
1077 hh_send(:,1:hh_cnt(iblk),iblk) = hh_gath(:,1:hh_cnt(iblk),iblk)
[all …]
|
| /dports/math/libmesh/libmesh-1.6.2/contrib/exodusii/5.22b/exodus/cbind/src/ |
| H A D | ex_put_concat_all_blocks.c | 62 size_t iblk; in ex_put_concat_all_blocks() local
255 if (DVAL[iblk] > 0) { \ in ex_put_concat_all_blocks()
317 for (iblk = 0; iblk < num_edge_blk; ++iblk) { in ex_put_concat_all_blocks()
320 eb_id = edge_id_int64[iblk]; in ex_put_concat_all_blocks()
322 eb_id = edge_id_int[iblk]; in ex_put_concat_all_blocks()
390 for (iblk = 0; iblk < num_face_blk; ++iblk) { in ex_put_concat_all_blocks()
393 fb_id = face_id_int64[iblk]; in ex_put_concat_all_blocks()
395 fb_id = face_id_int[iblk]; in ex_put_concat_all_blocks()
462 for (iblk = 0; iblk < num_elem_blk; ++iblk) { in ex_put_concat_all_blocks()
465 eb_id = elem_id_int64[iblk]; in ex_put_concat_all_blocks()
[all …]
|
| H A D | ex_put_concat_elem_block.c | 75 int iblk; in ex_put_concat_elem_block() local
199 for (iblk = 0; iblk < num_elem_blk; iblk++) { in ex_put_concat_elem_block()
205 eb_id = ((int64_t*)elem_blk_id)[iblk]; in ex_put_concat_elem_block()
210 eb_id = ((int*)elem_blk_id)[iblk]; in ex_put_concat_elem_block()
211 num_elem = ((int*)num_elem_this_blk)[iblk]; in ex_put_concat_elem_block()
213 num_attr = ((int*)num_attr_this_blk)[iblk]; in ex_put_concat_elem_block()
279 (void*)elem_type[iblk])) != NC_NOERR) { in ex_put_concat_elem_block()
283 elem_type[iblk],exoid); in ex_put_concat_elem_block()
313 eb_array[iblk] = temp; in ex_put_concat_elem_block()
404 for (iblk = 0; iblk < num_elem_blk; iblk++) { in ex_put_concat_elem_block()
[all …]
|
| /dports/math/vtk9/VTK-9.1.0/ThirdParty/exodusII/vtkexodusII/src/ |
| H A D | ex_put_concat_all_blocks.c | 31 size_t iblk; in ex_put_concat_all_blocks() local
316 for (iblk = 0; iblk < num_edge_blk; ++iblk) { in ex_put_concat_all_blocks()
319 eb_id = edge_id_int64[iblk]; in ex_put_concat_all_blocks()
322 eb_id = edge_id_int[iblk]; in ex_put_concat_all_blocks()
377 param->edge_type[iblk], exoid); in ex_put_concat_all_blocks()
384 for (iblk = 0; iblk < num_face_blk; ++iblk) { in ex_put_concat_all_blocks()
387 fb_id = face_id_int64[iblk]; in ex_put_concat_all_blocks()
390 fb_id = face_id_int[iblk]; in ex_put_concat_all_blocks()
452 for (iblk = 0; iblk < num_elem_blk; ++iblk) { in ex_put_concat_all_blocks()
455 eb_id = elem_id_int64[iblk]; in ex_put_concat_all_blocks()
[all …]
|
| H A D | ex_put_concat_elem_block.c | 42 int iblk; in ex_put_concat_elem_block() local
167 for (iblk = 0; iblk < num_elem_blk; iblk++) { in ex_put_concat_elem_block()
173 eb_id = ((int64_t *)elem_blk_id)[iblk]; in ex_put_concat_elem_block()
179 eb_id = ((int *)elem_blk_id)[iblk]; in ex_put_concat_elem_block()
180 num_elem = ((int *)num_elem_this_blk)[iblk]; in ex_put_concat_elem_block()
181 num_npe = ((int *)num_nodes_per_elem)[iblk]; in ex_put_concat_elem_block()
182 num_attr = ((int *)num_attr_this_blk)[iblk]; in ex_put_concat_elem_block()
247 elem_type[iblk], exoid); in ex_put_concat_elem_block()
279 eb_array[iblk] = temp; in ex_put_concat_elem_block()
363 for (iblk = 0; iblk < num_elem_blk; iblk++) { in ex_put_concat_elem_block()
[all …]
|
| /dports/math/vtk8/VTK-8.2.0/ThirdParty/exodusII/vtkexodusII/src/ |
| H A D | ex_put_concat_all_blocks.c | 65 size_t iblk; in ex_put_concat_all_blocks() local
348 for (iblk = 0; iblk < num_edge_blk; ++iblk) { in ex_put_concat_all_blocks()
351 eb_id = edge_id_int64[iblk]; in ex_put_concat_all_blocks()
354 eb_id = edge_id_int[iblk]; in ex_put_concat_all_blocks()
409 param->edge_type[iblk], exoid); in ex_put_concat_all_blocks()
416 for (iblk = 0; iblk < num_face_blk; ++iblk) { in ex_put_concat_all_blocks()
419 fb_id = face_id_int64[iblk]; in ex_put_concat_all_blocks()
422 fb_id = face_id_int[iblk]; in ex_put_concat_all_blocks()
484 for (iblk = 0; iblk < num_elem_blk; ++iblk) { in ex_put_concat_all_blocks()
487 eb_id = elem_id_int64[iblk]; in ex_put_concat_all_blocks()
[all …]
|
| H A D | ex_put_concat_elem_block.c | 76 int iblk; in ex_put_concat_elem_block() local
199 for (iblk = 0; iblk < num_elem_blk; iblk++) { in ex_put_concat_elem_block()
205 eb_id = ((int64_t *)elem_blk_id)[iblk]; in ex_put_concat_elem_block()
211 eb_id = ((int *)elem_blk_id)[iblk]; in ex_put_concat_elem_block()
212 num_elem = ((int *)num_elem_this_blk)[iblk]; in ex_put_concat_elem_block()
213 num_npe = ((int *)num_nodes_per_elem)[iblk]; in ex_put_concat_elem_block()
214 num_attr = ((int *)num_attr_this_blk)[iblk]; in ex_put_concat_elem_block()
279 elem_type[iblk], exoid); in ex_put_concat_elem_block()
311 eb_array[iblk] = temp; in ex_put_concat_elem_block()
398 for (iblk = 0; iblk < num_elem_blk; iblk++) { in ex_put_concat_elem_block()
[all …]
|
| /dports/biology/sra-tools/sra-tools-2.11.0/ncbi-vdb/libs/kdb/ |
| H A D | widxblk.c | 377 iblk -> id . trans = KColBlockMapTrans0; in KColWIdxBlockInit()
383 iblk -> id . trans = KColBlockMapTrans1; in KColWIdxBlockInit()
433 iblk -> count = block_size; in KColWIdxBlockInit()
445 if ( iblk -> id . h . p == NULL ) in KColWIdxBlockInit()
449 iblk -> size = block_size; in KColWIdxBlockInit()
452 iblk -> pg . h . c = iblk -> id . h . c + id_hsz; in KColWIdxBlockInit()
453 iblk -> id . d = ( uint64_t* ) ( iblk -> pg . h . c + pg_hsz ); in KColWIdxBlockInit()
454 iblk -> pg . d = ( uint64_t* ) ( ( char* ) iblk -> id . d + id_dsz ); in KColWIdxBlockInit()
455 iblk -> id . s = ( uint32_t * ) ( ( char* ) iblk -> pg . d + pg_dsz ); in KColWIdxBlockInit()
456 iblk -> pg . s = ( uint32_t * ) ( ( char* ) iblk -> id . s + id_ssz ); in KColWIdxBlockInit()
[all …]
|
| /dports/biology/ncbi-vdb/ncbi-vdb-2.11.0/libs/kdb/ |
| H A D | widxblk.c | 377 iblk -> id . trans = KColBlockMapTrans0; in KColWIdxBlockInit()
383 iblk -> id . trans = KColBlockMapTrans1; in KColWIdxBlockInit()
433 iblk -> count = block_size; in KColWIdxBlockInit()
445 if ( iblk -> id . h . p == NULL ) in KColWIdxBlockInit()
449 iblk -> size = block_size; in KColWIdxBlockInit()
452 iblk -> pg . h . c = iblk -> id . h . c + id_hsz; in KColWIdxBlockInit()
453 iblk -> id . d = ( uint64_t* ) ( iblk -> pg . h . c + pg_hsz ); in KColWIdxBlockInit()
454 iblk -> pg . d = ( uint64_t* ) ( ( char* ) iblk -> id . d + id_dsz ); in KColWIdxBlockInit()
455 iblk -> id . s = ( uint32_t * ) ( ( char* ) iblk -> pg . d + pg_dsz ); in KColWIdxBlockInit()
456 iblk -> pg . s = ( uint32_t * ) ( ( char* ) iblk -> id . s + id_ssz ); in KColWIdxBlockInit()
[all …]
|
| /dports/misc/mxnet/incubator-mxnet-1.9.0/3rdparty/mkldnn/src/cpu/ |
| H A D | ref_softmax.hpp | 77 for (int iblk = 0; iblk < bd.inner_nblks; ++iblk) in init() local
78 if (bd.inner_idxs[iblk] == axis) in init()
79 axis_blk_size *= bd.inner_blks[iblk]; in init()
138 for (int iblk = 0; iblk < bd.inner_nblks; ++iblk) in init() local
139 if (bd.inner_idxs[iblk] == axis) in init()
140 axis_blk_size *= bd.inner_blks[iblk]; in init()
|
| /dports/math/onednn/oneDNN-2.5.1/src/cpu/ |
| H A D | ref_softmax.hpp | 77 for (int iblk = 0; iblk < bd.inner_nblks; ++iblk) in init() local
78 if (bd.inner_idxs[iblk] == axis) in init()
79 axis_blk_size *= bd.inner_blks[iblk]; in init()
138 for (int iblk = 0; iblk < bd.inner_nblks; ++iblk) in init() local
139 if (bd.inner_idxs[iblk] == axis) in init()
140 axis_blk_size *= bd.inner_blks[iblk]; in init()
|
| /dports/math/vtk9/VTK-9.1.0/ThirdParty/ioss/vtkioss/exodus/ |
| H A D | Ioex_Internals.C | 1909 for (size_t iblk = 0; iblk < num_elem_blk; iblk++) { in put_metadata() local
2145 for (size_t iblk = 0; iblk < num_face_blk; iblk++) { in put_metadata() local
2696 for (int iblk = 0; iblk < num_elem_blk; iblk++) { in put_non_define_data() local
2720 for (int iblk = 0; iblk < num_elem_blk; iblk++) { in put_non_define_data() local
2735 for (int iblk = 0; iblk < num_elem_blk; iblk++) { in put_non_define_data() local
2765 for (int iblk = 0; iblk < num_face_blk; iblk++) { in put_non_define_data() local
2775 for (int iblk = 0; iblk < num_face_blk; iblk++) { in put_non_define_data() local
2790 for (int iblk = 0; iblk < num_face_blk; iblk++) { in put_non_define_data() local
2820 for (int iblk = 0; iblk < num_edge_blk; iblk++) { in put_non_define_data() local
2830 for (int iblk = 0; iblk < num_edge_blk; iblk++) { in put_non_define_data() local
[all …]
|
| /dports/math/dbcsr/dbcsr-2.1.0/src/tensors/ |
| H A D | dbcsr_tensor_block.F | 285 DO iblk = 1, nblk
286 iblk_nd(:) = iblk
289 rows(iblk) = ind_2d(1); cols(iblk) = ind_2d(2)
341 DO iblk = 1, nblk
343 blk_ind_1(iblk) = ind_2d(1); blk_ind_2(iblk) = ind_2d(2)
375 iblk = 0
383 iblk = iblk + 1
384 blk_ind_1(iblk) = ind_2d(1); blk_ind_2(iblk) = ind_2d(2)
388 CALL dbcsr_reserve_blocks(matrix_out, blk_ind_1(:iblk), blk_ind_2(:iblk))
407 DO iblk = 1, nblk
[all …]
|
| /dports/math/elpa/elpa-2019.05.002/src/general/ |
| H A D | elpa_utilities.F90 | 108 integer(kind=c_int) :: iblk local
110 iblk = (idx-1)/nblk ! global block number, 0 based
112 if (mod(iblk,num_procs) == my_proc) then
116 local_index = (iblk/num_procs)*nblk + mod(idx-1,nblk) + 1
128 local_index = (iblk/num_procs)*nblk
130 if (mod(iblk,num_procs) > my_proc) local_index = local_index + nblk
|
| /dports/misc/mxnet/incubator-mxnet-1.9.0/3rdparty/mkldnn/src/common/ |
| H A D | memory_desc_wrapper.hpp | 255 for (int iblk = 0; iblk < bd.inner_nblks; ++iblk) in compute_blocks() local
256 blocks[bd.inner_idxs[iblk]] *= bd.inner_blks[iblk]; in compute_blocks()
327 for (int iblk = blk.inner_nblks - 1; iblk >= 0; --iblk) { in off_v() local
328 const int d = blk.inner_idxs[iblk]; in off_v()
334 p = (int32_t)pos_copy[d] % (int32_t)blk.inner_blks[iblk]; in off_v()
336 / (int32_t)blk.inner_blks[iblk]; in off_v()
338 p = pos_copy[d] % blk.inner_blks[iblk]; in off_v()
339 pos_copy[d] /= blk.inner_blks[iblk]; in off_v()
344 blk_stride *= blk.inner_blks[iblk]; in off_v()
|
| /dports/math/onednn/oneDNN-2.5.1/src/common/ |
| H A D | memory_desc_wrapper.hpp | 264 for (int iblk = 0; iblk < bd.inner_nblks; ++iblk) in compute_blocks() local
265 blocks[bd.inner_idxs[iblk]] *= bd.inner_blks[iblk]; in compute_blocks()
336 for (int iblk = blk.inner_nblks - 1; iblk >= 0; --iblk) { in off_v() local
337 const int d = blk.inner_idxs[iblk]; in off_v()
343 p = (int32_t)pos_copy[d] % (int32_t)blk.inner_blks[iblk]; in off_v()
345 / (int32_t)blk.inner_blks[iblk]; in off_v()
347 p = pos_copy[d] % blk.inner_blks[iblk]; in off_v()
348 pos_copy[d] /= blk.inner_blks[iblk]; in off_v()
353 blk_stride *= blk.inner_blks[iblk]; in off_v()
|
| /dports/science/cp2k/cp2k-2e995eec7fd208c8a72d9544807bd8b8ba8cd1cc/exts/dbcsr/src/tensors/ |
| H A D | dbcsr_tensor_block.F | 295 DO iblk = 1, nblk
296 iblk_nd(:) = iblk
299 rows(iblk) = ind_2d(1); cols(iblk) = ind_2d(2)
353 DO iblk = 1, nblk
355 blk_ind_1(iblk) = ind_2d(1); blk_ind_2(iblk) = ind_2d(2)
388 iblk = 0
396 iblk = iblk + 1
397 blk_ind_1(iblk) = ind_2d(1); blk_ind_2(iblk) = ind_2d(2)
401 CALL dbcsr_reserve_blocks(matrix_out, blk_ind_1(:iblk), blk_ind_2(:iblk))
420 DO iblk = 1, nblk
[all …]
|
| /dports/science/nwchem-data/nwchem-7.0.2-release/src/NWints/hondo/ |
| H A D | hnd_init_dso.F | 17 integer lmax, iblk, i, mroots
42 iblk = lmax*lmax*4*mroots
43 maxscr = 3*iblk
50 dsot(i) = 1 + (i-1)*iblk
|
| H A D | hnd_init_pso.F | 17 integer lmax, iblk, i, mroots
41 iblk = lmax*(lmax+1)*3*mroots
42 maxscr = 3*iblk
49 dsot(i) = 1 + (i-1)*iblk
|