Home
last modified time | relevance | path

Searched refs:iblock (Results 1 – 25 of 1036) sorted by relevance

12345678910>>...42

/dports/science/InsightToolkit/ITK-5.0.1/Modules/ThirdParty/HDF5/src/itkhdf5/src/
H A DH5EAiblock.c123 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 DH5HFiblock.c148 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 DH5HFcache.c1016 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 DH5EAiblock.c123 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 DH5HFiblock.c148 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 DH5HFcache.c1016 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 DH5EAiblock.c109 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 DH5HFiblock.c138 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 DH5HFcache.c989 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 DH5HFiblock.c147 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 DH5HFcache.c733 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 DH5HFiblock.c149 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 DH5HFcache.c735 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 DH5EAiblock.c123 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 DH5HFiblock.c148 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 DH5HFcache.c1018 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 Dblockmatrix.cpp136 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 Dtest_norm_contr_gto.F9052 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 DChMatrixCorotation.cpp27 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 Drevencodef.c11 _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 Drevencodef.c11 _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 Dcivec_spinop.cc62 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 Dtest_contr_csgto_kinene.F9059 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 Dtest_contr_sgto_kinene.F9059 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 Dtest_contr_cgto_carmom.F90122 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 …]

12345678910>>...42