/dports/science/InsightToolkit/ITK-5.0.1/Modules/ThirdParty/HDF5/src/itkhdf5/src/ |
H A D | H5EAiblock.c | 123 iblock->hdr = hdr; 131 iblock->nsblk_addrs = hdr->nsblks - iblock->nsblks; 158 if(iblock && H5EA__iblock_dest(iblock) < 0) 199 iblock->size = H5EA_IBLOCK_SIZE(iblock); 261 if(iblock) { 328 …if(iblock && H5AC_unprotect(hdr->f, H5AC_EARRAY_IBLOCK, iblock->addr, iblock, H5AC__NO_FLAGS_SET) … 359 HDassert(iblock); 362 if(H5AC_unprotect(iblock->hdr->f, H5AC_EARRAY_IBLOCK, iblock->addr, iblock, cache_flags) < 0) 439 … if(H5EA__sblock_delete(hdr, iblock, iblock->sblk_addrs[u], (unsigned)(u + iblock->nsblks)) < 0) 472 HDassert(iblock); [all …]
|
H A D | H5HFiblock.c | 148 iblock->hdr->root_iblock = iblock; in H5HF__iblock_pin() 215 HDassert(iblock->block_off == 0 || iblock->parent); in H5HF_iblock_incr() 223 iblock->rc++; in H5HF_iblock_incr() 254 iblock->rc--; in H5HF__iblock_decr() 560 iblock->size = H5HF_MAN_INDIRECT_SIZE(hdr, iblock->nrows); in H5HF__man_iblock_root_double() 574 if(H5AC_resize_entry(iblock, (size_t)iblock->size) < 0) in H5HF__man_iblock_root_double() 718 iblock->size = H5HF_MAN_INDIRECT_SIZE(hdr, iblock->nrows); in H5HF__man_iblock_root_halve() 732 if(H5AC_resize_entry(iblock, (size_t)iblock->size) < 0) in H5HF__man_iblock_root_halve() 999 iblock->size = H5HF_MAN_INDIRECT_SIZE(hdr, iblock->nrows); in H5HF__man_iblock_create() 1266 if(H5AC_unprotect(iblock->hdr->f, H5AC_FHEAP_IBLOCK, iblock->addr, iblock, cache_flags) < 0) in H5HF__man_iblock_unprotect() [all …]
|
H A D | H5HFcache.c | 1016 iblock->rc = 0; in H5HF__cache_iblock_deserialize() 1021 iblock->size = H5HF_MAN_INDIRECT_SIZE(hdr, iblock->nrows); in H5HF__cache_iblock_deserialize() 1041 iblock->parent = udata->par_info->iblock; in H5HF__cache_iblock_deserialize() 1046 iblock->fd_parent = udata->par_info->iblock; in H5HF__cache_iblock_deserialize() 1056 iblock->max_rows = iblock->nrows; in H5HF__cache_iblock_deserialize() 1222 HDassert(iblock->cache_info.size == iblock->size); in H5HF__cache_iblock_pre_serialize() 1351 HDassert(iblock->cache_info.size == iblock->size); in H5HF__cache_iblock_serialize() 1356 HDassert(H5F_addr_eq(iblock->addr, iblock->cache_info.addr)); in H5HF__cache_iblock_serialize() 1469 HDassert(iblock->hdr->root_iblock == iblock); in H5HF__cache_iblock_notify() 1479 …HDassert(iblock->par_entry >= (iblock->hdr->man_dtable.max_direct_rows * iblock->hdr->man_dtable.c… in H5HF__cache_iblock_notify() [all …]
|
/dports/science/hdf5/hdf5-1.10.6/src/ |
H A D | H5EAiblock.c | 123 iblock->hdr = hdr; 131 iblock->nsblk_addrs = hdr->nsblks - iblock->nsblks; 158 if(iblock && H5EA__iblock_dest(iblock) < 0) 199 iblock->size = H5EA_IBLOCK_SIZE(iblock); 261 if(iblock) { 328 …if(iblock && H5AC_unprotect(hdr->f, H5AC_EARRAY_IBLOCK, iblock->addr, iblock, H5AC__NO_FLAGS_SET) … 359 HDassert(iblock); 362 if(H5AC_unprotect(iblock->hdr->f, H5AC_EARRAY_IBLOCK, iblock->addr, iblock, cache_flags) < 0) 439 … if(H5EA__sblock_delete(hdr, iblock, iblock->sblk_addrs[u], (unsigned)(u + iblock->nsblks)) < 0) 472 HDassert(iblock); [all …]
|
H A D | H5HFiblock.c | 148 iblock->hdr->root_iblock = iblock; in H5HF__iblock_pin() 215 HDassert(iblock->block_off == 0 || iblock->parent); in H5HF_iblock_incr() 223 iblock->rc++; in H5HF_iblock_incr() 254 iblock->rc--; in H5HF__iblock_decr() 560 iblock->size = H5HF_MAN_INDIRECT_SIZE(hdr, iblock->nrows); in H5HF__man_iblock_root_double() 574 if(H5AC_resize_entry(iblock, (size_t)iblock->size) < 0) in H5HF__man_iblock_root_double() 718 iblock->size = H5HF_MAN_INDIRECT_SIZE(hdr, iblock->nrows); in H5HF__man_iblock_root_halve() 732 if(H5AC_resize_entry(iblock, (size_t)iblock->size) < 0) in H5HF__man_iblock_root_halve() 999 iblock->size = H5HF_MAN_INDIRECT_SIZE(hdr, iblock->nrows); in H5HF__man_iblock_create() 1266 if(H5AC_unprotect(iblock->hdr->f, H5AC_FHEAP_IBLOCK, iblock->addr, iblock, cache_flags) < 0) in H5HF__man_iblock_unprotect() [all …]
|
H A D | H5HFcache.c | 1016 iblock->rc = 0; in H5HF__cache_iblock_deserialize() 1021 iblock->size = H5HF_MAN_INDIRECT_SIZE(hdr, iblock->nrows); in H5HF__cache_iblock_deserialize() 1041 iblock->parent = udata->par_info->iblock; in H5HF__cache_iblock_deserialize() 1046 iblock->fd_parent = udata->par_info->iblock; in H5HF__cache_iblock_deserialize() 1056 iblock->max_rows = iblock->nrows; in H5HF__cache_iblock_deserialize() 1222 HDassert(iblock->cache_info.size == iblock->size); in H5HF__cache_iblock_pre_serialize() 1351 HDassert(iblock->cache_info.size == iblock->size); in H5HF__cache_iblock_serialize() 1356 HDassert(H5F_addr_eq(iblock->addr, iblock->cache_info.addr)); in H5HF__cache_iblock_serialize() 1469 HDassert(iblock->hdr->root_iblock == iblock); in H5HF__cache_iblock_notify() 1479 …HDassert(iblock->par_entry >= (iblock->hdr->man_dtable.max_direct_rows * iblock->hdr->man_dtable.c… in H5HF__cache_iblock_notify() [all …]
|
/dports/math/vtk9/VTK-9.1.0/ThirdParty/hdf5/vtkhdf5/src/ |
H A D | H5EAiblock.c | 109 iblock->hdr = hdr; 117 iblock->nsblk_addrs = hdr->nsblks - iblock->nsblks; 141 if (iblock && H5EA__iblock_dest(iblock) < 0) 175 iblock->size = H5EA_IBLOCK_SIZE(iblock); 234 if (iblock) { 296 if (iblock && 322 HDassert(iblock); 325 if (H5AC_unprotect(iblock->hdr->f, H5AC_EARRAY_IBLOCK, iblock->addr, iblock, cache_flags) < 0) 397 … if (H5EA__sblock_delete(hdr, iblock, iblock->sblk_addrs[u], (unsigned)(u + iblock->nsblks)) < 428 HDassert(iblock); [all …]
|
H A D | H5HFiblock.c | 138 iblock->hdr->root_iblock = iblock; in H5HF__iblock_pin() 201 HDassert(iblock->block_off == 0 || iblock->parent); in H5HF__iblock_incr() 209 iblock->rc++; in H5HF__iblock_incr() 238 iblock->rc--; in H5HF__iblock_decr() 547 iblock->size = H5HF_MAN_INDIRECT_SIZE(hdr, iblock->nrows); in H5HF__man_iblock_root_double() 561 if (H5AC_resize_entry(iblock, (size_t)iblock->size) < 0) in H5HF__man_iblock_root_double() 711 iblock->size = H5HF_MAN_INDIRECT_SIZE(hdr, iblock->nrows); in H5HF__man_iblock_root_halve() 725 if (H5AC_resize_entry(iblock, (size_t)iblock->size) < 0) in H5HF__man_iblock_root_halve() 998 iblock->size = H5HF_MAN_INDIRECT_SIZE(hdr, iblock->nrows); in H5HF__man_iblock_create() 1266 … if (H5AC_unprotect(iblock->hdr->f, H5AC_FHEAP_IBLOCK, iblock->addr, iblock, cache_flags) < 0) in H5HF__man_iblock_unprotect() [all …]
|
H A D | H5HFcache.c | 989 iblock->size = H5HF_MAN_INDIRECT_SIZE(hdr, iblock->nrows); in H5HF__cache_iblock_deserialize() 1009 iblock->parent = udata->par_info->iblock; in H5HF__cache_iblock_deserialize() 1014 iblock->fd_parent = udata->par_info->iblock; in H5HF__cache_iblock_deserialize() 1025 iblock->max_rows = iblock->nrows; in H5HF__cache_iblock_deserialize() 1146 HDassert(iblock); in H5HF__cache_iblock_image_len() 1188 HDassert(iblock); in H5HF__cache_iblock_pre_serialize() 1191 HDassert(iblock->cache_info.size == iblock->size); in H5HF__cache_iblock_pre_serialize() 1317 HDassert(iblock); in H5HF__cache_iblock_serialize() 1320 HDassert(iblock->cache_info.size == iblock->size); in H5HF__cache_iblock_serialize() 1325 HDassert(H5F_addr_eq(iblock->addr, iblock->cache_info.addr)); in H5HF__cache_iblock_serialize() [all …]
|
/dports/science/hdf5-18/hdf5-1.8.21/src/ |
H A D | H5HFiblock.c | 147 iblock->hdr->root_iblock = iblock; in H5HF_iblock_pin() 249 HDassert(iblock->block_off == 0 || iblock->parent); in H5HF_iblock_incr() 257 iblock->rc++; in H5HF_iblock_incr() 288 iblock->rc--; in H5HF_iblock_decr() 590 iblock->size = H5HF_MAN_INDIRECT_SIZE(hdr, iblock->nrows); in H5HF_man_iblock_root_double() 604 if(H5AC_resize_entry(iblock, (size_t)iblock->size) < 0) in H5HF_man_iblock_root_double() 759 iblock->size = H5HF_MAN_INDIRECT_SIZE(hdr, iblock->nrows); in H5HF_man_iblock_root_halve() 773 if(H5AC_resize_entry(iblock, (size_t)iblock->size) < 0) in H5HF_man_iblock_root_halve() 1028 iblock->size = H5HF_MAN_INDIRECT_SIZE(hdr, iblock->nrows); in H5HF_man_iblock_create() 1285 …if(H5AC_unprotect(iblock->hdr->f, dxpl_id, H5AC_FHEAP_IBLOCK, iblock->addr, iblock, cache_flags) <… in H5HF_man_iblock_unprotect() [all …]
|
H A D | H5HFcache.c | 733 iblock->hdr = hdr; in H5HF_cache_iblock_load() 738 iblock->rc = 0; in H5HF_cache_iblock_load() 747 iblock->size = H5HF_MAN_INDIRECT_SIZE(hdr, iblock->nrows); in H5HF_cache_iblock_load() 775 iblock->parent = udata->par_info->iblock; in H5HF_cache_iblock_load() 777 if(iblock->parent) { in H5HF_cache_iblock_load() 783 iblock->max_rows = iblock->nrows; in H5HF_cache_iblock_load() 873 ret_value = iblock; in H5HF_cache_iblock_load() 912 HDassert(iblock); in H5HF_cache_iblock_flush() 1097 HDassert(iblock); in H5HF_cache_iblock_dest() 1148 HDassert(iblock); in H5HF_cache_iblock_clear() [all …]
|
/dports/math/vtk6/VTK-6.2.0/ThirdParty/hdf5/vtkhdf5/src/ |
H A D | H5HFiblock.c | 149 iblock->hdr->root_iblock = iblock; in H5HF_iblock_pin() 251 HDassert(iblock->block_off == 0 || iblock->parent); in H5HF_iblock_incr() 259 iblock->rc++; in H5HF_iblock_incr() 290 iblock->rc--; in H5HF_iblock_decr() 592 iblock->size = H5HF_MAN_INDIRECT_SIZE(hdr, iblock->nrows); in H5HF_man_iblock_root_double() 606 if(H5AC_resize_entry(iblock, (size_t)iblock->size) < 0) in H5HF_man_iblock_root_double() 761 iblock->size = H5HF_MAN_INDIRECT_SIZE(hdr, iblock->nrows); in H5HF_man_iblock_root_halve() 775 if(H5AC_resize_entry(iblock, (size_t)iblock->size) < 0) in H5HF_man_iblock_root_halve() 1030 iblock->size = H5HF_MAN_INDIRECT_SIZE(hdr, iblock->nrows); in H5HF_man_iblock_create() 1287 …if(H5AC_unprotect(iblock->hdr->f, dxpl_id, H5AC_FHEAP_IBLOCK, iblock->addr, iblock, cache_flags) <… in H5HF_man_iblock_unprotect() [all …]
|
H A D | H5HFcache.c | 735 iblock->hdr = hdr; in H5HF_cache_iblock_load() 740 iblock->rc = 0; in H5HF_cache_iblock_load() 749 iblock->size = H5HF_MAN_INDIRECT_SIZE(hdr, iblock->nrows); in H5HF_cache_iblock_load() 777 iblock->parent = udata->par_info->iblock; in H5HF_cache_iblock_load() 779 if(iblock->parent) { in H5HF_cache_iblock_load() 785 iblock->max_rows = iblock->nrows; in H5HF_cache_iblock_load() 875 ret_value = iblock; in H5HF_cache_iblock_load() 914 HDassert(iblock); in H5HF_cache_iblock_flush() 1099 HDassert(iblock); in H5HF_cache_iblock_dest() 1150 HDassert(iblock); in H5HF_cache_iblock_clear() [all …]
|
/dports/math/vtk8/VTK-8.2.0/ThirdParty/hdf5/vtkhdf5/src/ |
H A D | H5EAiblock.c | 123 iblock->hdr = hdr; 131 iblock->nsblk_addrs = hdr->nsblks - iblock->nsblks; 158 if(iblock && H5EA__iblock_dest(iblock) < 0) 199 iblock->size = H5EA_IBLOCK_SIZE(iblock); 261 if(iblock) { 328 …if(iblock && H5AC_unprotect(hdr->f, dxpl_id, H5AC_EARRAY_IBLOCK, iblock->addr, iblock, H5AC__NO_FL… 359 HDassert(iblock); 362 …if(H5AC_unprotect(iblock->hdr->f, dxpl_id, H5AC_EARRAY_IBLOCK, iblock->addr, iblock, cache_flags) … 439 …if(H5EA__sblock_delete(hdr, dxpl_id, iblock, iblock->sblk_addrs[u], (unsigned)(u + iblock->nsblks)… 472 HDassert(iblock); [all …]
|
H A D | H5HFiblock.c | 148 iblock->hdr->root_iblock = iblock; in H5HF_iblock_pin() 250 HDassert(iblock->block_off == 0 || iblock->parent); in H5HF_iblock_incr() 258 iblock->rc++; in H5HF_iblock_incr() 289 iblock->rc--; in H5HF_iblock_decr() 608 iblock->size = H5HF_MAN_INDIRECT_SIZE(hdr, iblock->nrows); in H5HF_man_iblock_root_double() 622 if(H5AC_resize_entry(iblock, (size_t)iblock->size) < 0) in H5HF_man_iblock_root_double() 777 iblock->size = H5HF_MAN_INDIRECT_SIZE(hdr, iblock->nrows); in H5HF_man_iblock_root_halve() 791 if(H5AC_resize_entry(iblock, (size_t)iblock->size) < 0) in H5HF_man_iblock_root_halve() 1059 iblock->size = H5HF_MAN_INDIRECT_SIZE(hdr, iblock->nrows); in H5HF_man_iblock_create() 1325 …if(H5AC_unprotect(iblock->hdr->f, dxpl_id, H5AC_FHEAP_IBLOCK, iblock->addr, iblock, cache_flags) <… in H5HF_man_iblock_unprotect() [all …]
|
H A D | H5HFcache.c | 1018 iblock->rc = 0; in H5HF__cache_iblock_deserialize() 1023 iblock->size = H5HF_MAN_INDIRECT_SIZE(hdr, iblock->nrows); in H5HF__cache_iblock_deserialize() 1043 iblock->parent = udata->par_info->iblock; in H5HF__cache_iblock_deserialize() 1047 iblock->fd_parent = udata->par_info->iblock; in H5HF__cache_iblock_deserialize() 1055 iblock->max_rows = iblock->nrows; in H5HF__cache_iblock_deserialize() 1221 HDassert(iblock->cache_info.size == iblock->size); in H5HF__cache_iblock_pre_serialize() 1350 HDassert(iblock->cache_info.size == iblock->size); in H5HF__cache_iblock_serialize() 1355 HDassert(H5F_addr_eq(iblock->addr, iblock->cache_info.addr)); in H5HF__cache_iblock_serialize() 1463 …HDassert((iblock->parent == iblock->fd_parent) || ((NULL == iblock->parent) && (iblock->fd_parent)… in H5HF__cache_iblock_notify() 1471 HDassert(iblock->hdr->root_iblock == iblock); in H5HF__cache_iblock_notify() [all …]
|
/dports/math/mfem/mfem-4.3/linalg/ |
H A D | blockmatrix.cpp | 136 int iloc, iblock; in Elem() local 153 int iloc, iblock; in Elem() local 327 for (int iblock = 0; iblock < nRowBlocks; ++iblock) in EliminateZeroRows() local 329 if (Aij(iblock,iblock)) in EliminateZeroRows() 332 for (int i = 0; i < Aij(iblock, iblock)->NumRows(); ++i) in EliminateZeroRows() 378 for (int iblock = 0; iblock < nRowBlocks; ++iblock) in Finalize() local 415 for (int iblock = 0; iblock != nRowBlocks; ++iblock) in AddMult() local 455 for (int iblock = 0; iblock != nColBlocks; ++iblock) in AddMultTranspose() local 489 for (int iblock = 0; iblock != nRowBlocks; ++iblock) in CreateMonolithic() local 506 for (int iblock = 0; iblock != nRowBlocks; ++iblock) in CreateMonolithic() local [all …]
|
/dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/external/gen1int/test_f90/tools/ |
H A D | test_norm_contr_gto.F90 | 52 do iblock = 1, NUM_SUB_BLOCK 53 call norm_contr_cgto(ANGULAR_BLOCK(iblock), NUM_PRIM_BLOCK(iblock), & 54 EXPONENT_BLOCK(START_PRIM_BLOCK(iblock)+1 & 55 :START_PRIM_BLOCK(iblock+1)), & 56 NUM_CONTR_BLOCK(iblock), & 58 :START_CONTR_BLOCK(iblock+1))) 60 do icoef = START_CONTR_BLOCK(iblock)+1, START_CONTR_BLOCK(iblock+1) 82 do iblock = 1, NUM_SUB_BLOCK 83 call norm_contr_sgto(ANGULAR_BLOCK(iblock), NUM_PRIM_BLOCK(iblock), & 88 :START_CONTR_BLOCK(iblock+1))) [all …]
|
/dports/science/chrono/chrono-7.0.1/src/chrono/fea/ |
H A D | ChMatrixCorotation.cpp | 27 for (int iblock = 0; iblock < nblocks; iblock++) { in ComputeCK() local 33 sum += R(row, col) * K((3 * iblock) + col, colres); in ComputeCK() 34 CK((3 * iblock) + row, colres) = sum; in ComputeCK() 46 for (int iblock = 0; iblock < nblocks; iblock++) { in ComputeKCt() local 53 KC(rowres, row + (3 * iblock)) = sum; in ComputeKCt() 63 for (int iblock = 0; iblock < nblocks; iblock++) { in ComputeCK() local 64 const ChMatrix33<>* mR = R[iblock]; in ComputeCK() 72 CK((3 * iblock) + row, colres) = sum; in ComputeCK() 82 for (int iblock = 0; iblock < nblocks; iblock++) { in ComputeKCt() local 83 const ChMatrix33<>* mR = R[iblock]; in ComputeKCt() [all …]
|
/dports/math/vtk9/VTK-9.1.0/ThirdParty/zfp/vtkzfp/src/template/ |
H A D | revencodef.c | 11 _t1(rev_inv_cast, Scalar)(iblock, gblock, n, emax); in _t1() 22 _t1(fwd_cast, Scalar)(iblock, fblock, BLOCK_SIZE, emax); in _t1() 25 *iblock++ = 0; in _t1() 30 _t1(rev_fwd_reinterpret, Scalar)(Int* iblock, const Scalar* fblock, uint n) in _t1() 33 memcpy(iblock, fblock, n * sizeof(*iblock)); in _t1() 36 Int x = *iblock; in _t1() 38 *iblock = (Int)((UInt)x ^ TCMASK); in _t1() 39 iblock++; in _t1() 48 cache_align_(Int iblock[BLOCK_SIZE]); in _t2() 52 _t1(rev_fwd_cast, Scalar)(iblock, fblock, BLOCK_SIZE, emax); in _t2() [all …]
|
/dports/devel/zfp/zfp-0.5.5/src/template/ |
H A D | revencodef.c | 11 _t1(rev_inv_cast, Scalar)(iblock, gblock, n, emax); in _t1() 22 _t1(fwd_cast, Scalar)(iblock, fblock, BLOCK_SIZE, emax); in _t1() 25 *iblock++ = 0; in _t1() 30 _t1(rev_fwd_reinterpret, Scalar)(Int* iblock, const Scalar* fblock, uint n) in _t1() 33 memcpy(iblock, fblock, n * sizeof(*iblock)); in _t1() 36 Int x = *iblock; in _t1() 38 *iblock = (Int)((UInt)x ^ TCMASK); in _t1() 39 iblock++; in _t1() 48 cache_align_(Int iblock[BLOCK_SIZE]); in _t2() 52 _t1(rev_fwd_cast, Scalar)(iblock, fblock, BLOCK_SIZE, emax); in _t2() [all …]
|
/dports/science/bagel/bagel-1.2.2/src/ci/ras/ |
H A D | civec_spinop.cc | 62 for (auto& iblock : sourceblocks) { in compute() local 144 for (auto& iblock : out.blocks()) { in spin_lower_impl() local 145 if (!iblock) continue; in spin_lower_impl() 146 const int nha = iblock->stringsa()->nholes(); in spin_lower_impl() 147 const int nhb = iblock->stringsb()->nholes(); in spin_lower_impl() 150 const int n2a = iblock->stringsa()->nele2(); in spin_lower_impl() 151 const int n2b = iblock->stringsb()->nele2(); in spin_lower_impl() 198 for (auto& iblock : out.blocks()) { in spin_raise_impl() local 199 if (!iblock) continue; in spin_raise_impl() 204 const int n2a = iblock->stringsa()->nele2(); in spin_raise_impl() [all …]
|
/dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/external/gen1int/test_f90/carmom/ |
H A D | test_contr_csgto_kinene.F90 | 59 iblock = BRA_BLOCK(itst) 62 iblock, "I4", io_log) 68 idx_bra = IDX_CENT_BLOCK(iblock) 71 num_sgto_bra = 2*ANGULAR_BLOCK(iblock)+1 74 allocate(contr_ints(num_sgto_bra,NUM_CONTR_BLOCK(iblock), & 88 ANGULAR_BLOCK(iblock), NUM_PRIM_BLOCK(iblock), & 89 EXPONENT_BLOCK(START_PRIM_BLOCK(iblock)+1 & 90 :START_PRIM_BLOCK(iblock+1)), & 91 NUM_CONTR_BLOCK(iblock), & 92 REF_NRM_SGTO(START_CONTR_BLOCK(iblock)+1 & [all …]
|
H A D | test_contr_sgto_kinene.F90 | 59 iblock = BRA_BLOCK(itst) 62 iblock, "I4", io_log) 68 idx_bra = IDX_CENT_BLOCK(iblock) 71 num_sgto_bra = 2*ANGULAR_BLOCK(iblock)+1 74 allocate(contr_ints(num_sgto_bra,NUM_CONTR_BLOCK(iblock), & 88 ANGULAR_BLOCK(iblock), NUM_PRIM_BLOCK(iblock), & 89 EXPONENT_BLOCK(START_PRIM_BLOCK(iblock)+1 & 90 :START_PRIM_BLOCK(iblock+1)), & 91 NUM_CONTR_BLOCK(iblock), & 92 REF_NRM_SGTO(START_CONTR_BLOCK(iblock)+1 & [all …]
|
H A D | test_contr_cgto_carmom.F90 | 122 iblock = BRA_BLOCK(itst) 125 iblock, "I4", io_log) 129 idx_bra = IDX_CENT_BLOCK(iblock) 132 num_cgto_bra = (ANGULAR_BLOCK(iblock)+1)*(ANGULAR_BLOCK(iblock)+2)/2 135 allocate(contr_ints(num_cgto_bra,NUM_CONTR_BLOCK(iblock), & 149 ANGULAR_BLOCK(iblock), NUM_PRIM_BLOCK(iblock), & 196 do xpow = ANGULAR_BLOCK(iblock), 0, -1 197 do ypow = ANGULAR_BLOCK(iblock)-xpow, 0, -1 201 power_bra(3,addr_bra) = ANGULAR_BLOCK(iblock)-(xpow+ypow) 214 allocate(ro_cints(num_cgto_bra,NUM_CONTR_BLOCK(iblock), & [all …]
|