/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/nwdft/lr_tddft/ |
H A D | tddft_patch.F | 21 integer anlo,anhi,amlo,amhi,k_a,adim 35 adim=anhi-anlo+1 36 if (.not.ma_push_get(mt_dbl,adim,'Temp1',l_t1,k_t1)) 39 call ga_get(g_a,anlo,anhi,k,k,dbl_mb(k_t1),adim) 44 call ga_get(g_a,anlo,anhi,l,l,dbl_mb(k_t2),adim) 54 adim=anhi-anlo+1 56 if (.not.ma_push_get(mt_dbl,adim,'Temp',l_t1,k_t1)) 60 call ga_get(g_a,anlo,anhi,k,k,dbl_mb(k_t1),adim) 62 call tga_ddot_oper(x,dbl_mb(k_t1),dbl_mb(k_t2),adim) 99 integer anlo,anhi,amlo,amhi,k_a,adim [all …]
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/nwdft/lr_tddft/ |
H A D | tddft_patch.F | 21 integer anlo,anhi,amlo,amhi,k_a,adim 35 adim=anhi-anlo+1 36 if (.not.ma_push_get(mt_dbl,adim,'Temp1',l_t1,k_t1)) 39 call ga_get(g_a,anlo,anhi,k,k,dbl_mb(k_t1),adim) 44 call ga_get(g_a,anlo,anhi,l,l,dbl_mb(k_t2),adim) 54 adim=anhi-anlo+1 56 if (.not.ma_push_get(mt_dbl,adim,'Temp',l_t1,k_t1)) 60 call ga_get(g_a,anlo,anhi,k,k,dbl_mb(k_t1),adim) 62 call tga_ddot_oper(x,dbl_mb(k_t1),dbl_mb(k_t2),adim) 99 integer anlo,anhi,amlo,amhi,k_a,adim [all …]
|
/dports/math/maxima/maxima-5.43.2/share/tensor/ |
H A D | atensor.mac | 21 adim:0; 129 adim:0, 133 adim:optdims[1], 135 for i thru adim do 145 adim:adim+optdims[2], 160 adim:p+z+n, 161 if adim>0 then 173 adim:optdims[1], 174 aform:ident(adim), 179 else aform[i,j]:-(aform[j,i]:(remainder(2*adim+2-i-j,adim)+1)* [all …]
|
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/uccsdt/ |
H A D | triples_kernels.F | 26 adim = ahi - alo + 1 103 adim = ahi - alo + 1 181 adim = ahi - alo + 1 257 adim = ahi - alo + 1 334 adim = ahi - alo + 1 411 adim = ahi - alo + 1 479 adim = ahi - alo + 1 500 & 0.0d0, x, cdim*adim) 547 adim = ahi - alo + 1 618 adim = ahi - alo + 1 [all …]
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/uccsdt/ |
H A D | triples_kernels.F | 26 adim = ahi - alo + 1 103 adim = ahi - alo + 1 181 adim = ahi - alo + 1 257 adim = ahi - alo + 1 334 adim = ahi - alo + 1 411 adim = ahi - alo + 1 479 adim = ahi - alo + 1 500 & 0.0d0, x, cdim*adim) 547 adim = ahi - alo + 1 618 adim = ahi - alo + 1 [all …]
|
/dports/math/R-cran-bdsmatrix/bdsmatrix/R/ |
H A D | solve.gchol.bdsmatrix.R | 17 adim <- dim(a) functionVar 48 if (length(b) == adim[1]) { 51 as.integer(adim), 58 else if (!is.matrix(b) || nrow(b) != adim[1]) 65 as.integer(adim),
|
H A D | solve.bdsmatrix.R | 7 adim <- dim(a) functionVar 66 if (length(b) == adim[1]) { 81 if (!is.matrix(b) || nrow(b) != adim[1])
|
/dports/science/afni/afni-AFNI_21.3.16/src/ |
H A D | 3dpc.c | 55 #define AA(i,j) (aa[(i)+(j)*adim]) 59 #define VV(i,j) (vout[(i)+(j)*adim]) 63 #define PP(i,j) (pp[(i)+(j)*adim]) /* 22 Feb 2008 */ 412 int adim ; in main() local 450 adim = mm ; in main() 451 aa = (double *) malloc( sizeof(double) * adim * adim ) ; /* matrix */ in main() 738 float *pp = (float *)calloc( sizeof(float) , adim*adim ) ; in main() 740 ll = (adim-1)-kk ; in main() 741 for( jj=0 ; jj < adim ; jj++ ){ in main() 745 for( jj=0 ; jj < adim ; jj++ ){ in main() [all …]
|
/dports/devel/grex/grex-1.3.0/cargo-crates/ndarray-0.15.3/src/ |
H A D | impl_owned_array.rs | 758 fn sort_axes1_impl<D>(adim: &mut D, astrides: &mut D) in sort_axes1_impl() 762 debug_assert!(adim.ndim() > 1); in sort_axes1_impl() 763 debug_assert_eq!(adim.ndim(), astrides.ndim()); in sort_axes1_impl() 768 for i in 0..adim.ndim() - 1 { in sort_axes1_impl() 776 adim.slice_mut().swap(axis_i, next_axis); in sort_axes1_impl() 800 fn sort_axes2_impl<D>(adim: &mut D, astrides: &mut D, bdim: &mut D, bstrides: &mut D) in sort_axes2_impl() 804 debug_assert!(adim.ndim() > 1); in sort_axes2_impl() 805 debug_assert_eq!(adim.ndim(), bdim.ndim()); in sort_axes2_impl() 810 for i in 0..adim.ndim() - 1 { in sort_axes2_impl() 818 adim.slice_mut().swap(axis_i, next_axis); in sort_axes2_impl()
|
/dports/cad/opencascade/opencascade-7.6.0/src/TopOpeBRepDS/ |
H A D | TopOpeBRepDS_redu.cxx | 124 TopAbs_State& sta, Standard_Integer& isa, Standard_Integer& adim) in FUN_ds_GetTr() argument 187 sta = TopAbs_UNKNOWN; isa=0; adim=0; in FUN_ds_GetTr() 189 sta = TopAbs_IN; adim = 1; in FUN_ds_GetTr() 194 sta = TopAbs_IN; adim = 2; in FUN_ds_GetTr() 199 sta = TopAbs_IN; adim = 3; in FUN_ds_GetTr() 204 sta = TopAbs_OUT; adim = 3; in FUN_ds_GetTr() 209 sta = TopAbs_OUT; adim = 2; in FUN_ds_GetTr() 214 sta = TopAbs_OUT; adim = 1; in FUN_ds_GetTr()
|
/dports/math/maxima/maxima-5.43.2/doc/info/ |
H A D | Atensor.texi | 39 @c for i thru adim do q[1,i+1]:q[i+1,1]:v[i]; 64 (%i7) for i thru adim do q[1,i+1]:q[i+1,1]:v[i]; 89 is that stored in @code{asymbol} and the index runs between 1 and @code{adim}. 143 values of @code{adim} and @code{aform} appropriately. Otherwise, 144 @code{adim} will default to 0 and @code{aform} will not be defined. 155 appropriately. Otherwise, @code{adim} will default to 0 and @code{aform} 215 @anchor{adim} 216 @defvr {Variable} adim 295 @c adim:3; 303 (%i2) adim:3; [all …]
|
/dports/devel/ga/ga-5.8/global/src/ |
H A D | ga_dgemmf.F | 39 integer idim, jdim, kdim, adim, bdim, cdim, ijk, me, nproc 141 adim = idim 144 $ dbl_mb(k_a), adim) 152 adim = kdim 155 $ dbl_mb(k_a), adim) 186 $ alpha, dbl_mb(k_a), adim, dbl_mb(k_b), bdim,
|
/dports/biology/ncbi-cxx-toolkit/ncbi_cxx--25_2_0/src/algo/align/nw/ |
H A D | nw_formatter.cpp | 611 const size_t adim = m_annot.size(); in ImproveFromRight1() local 612 if(adim > 2 && m_annot[adim - 3] == '>') { in ImproveFromRight1() 617 m_annot[adim-2] = c3; in ImproveFromRight1() 618 m_annot[adim-1] = c4; in ImproveFromRight1() 725 const size_t adim = m_annot.size(); in ImproveFromRight() local 726 if(adim > 2 && m_annot[adim - 3] == '>') { in ImproveFromRight() 731 m_annot[adim-2] = c3; in ImproveFromRight() 732 m_annot[adim-1] = c4; in ImproveFromRight() 823 const size_t adim = m_annot.size(); in GetDonor() local 825 (adim > 2 && m_annot[adim - 3] == '>')? (m_annot.c_str() + adim - 2): 0; in GetDonor() [all …]
|
/dports/www/grafana8/grafana-8.3.6/vendor/gonum.org/v1/gonum/lapack/testlapack/ |
H A D | dormlq.go | 27 common, adim, cdim, lda, ldc int 57 ma = test.adim 62 ma = test.adim
|
H A D | dorml2.go | 30 common, adim, cdim, lda, ldc int 54 ma = test.adim 59 ma = test.adim
|
H A D | dorm2r.go | 27 common, adim, cdim, lda, ldc int 51 na = test.adim 56 na = test.adim
|
H A D | dormqr.go | 27 common, adim, cdim, lda, ldc int 57 na = test.adim 62 na = test.adim
|
/dports/sysutils/istio/istio-1.6.7/vendor/github.com/openshift/api/vendor/gonum.org/v1/gonum/lapack/testlapack/ |
H A D | dormlq.go | 27 common, adim, cdim, lda, ldc int 57 ma = test.adim 62 ma = test.adim
|
H A D | dorm2r.go | 27 common, adim, cdim, lda, ldc int 51 na = test.adim 56 na = test.adim
|
H A D | dormqr.go | 27 common, adim, cdim, lda, ldc int 57 na = test.adim 62 na = test.adim
|
H A D | dorml2.go | 30 common, adim, cdim, lda, ldc int 54 ma = test.adim 59 ma = test.adim
|
/dports/math/polymake/polymake-4.5/apps/polytope/src/ |
H A D | subcone.cc | 37 const Int adim = c_in.give("CONE_AMBIENT_DIM"); // don't look at V.cols() because of trivial cone in subcone() local 44 c_out.take("CONE_AMBIENT_DIM") << adim; in subcone()
|
H A D | cayley_polytope.cc | 40 const Int adim = pp_it->give("CONE_AMBIENT_DIM"); in cayley_polytope() local 57 if (adim != adim2) in cayley_polytope()
|
/dports/math/libpgmath/flang-d07daf3/runtime/flang/ |
H A D | red.c | 305 rdim, rof, adim, aof); in I8() 316 if (adim == z->dim) in I8() 317 --adim; in I8() 320 adim = z->dim; in I8() 324 SET_DIM_PTRS(asd, as, adim - 1); in I8() 404 z->mi[adim - 1]++; in I8() 529 rdim, rof, adim, aof); in I8() 540 if (adim == z->dim) in I8() 541 --adim; in I8() 544 adim = z->dim; in I8() [all …]
|
/dports/devel/codeblocks/codeblocks-20.03/src/plugins/contrib/FortranProject/images/fortranproject/ |
H A D | gdb_fortran_extensions_v1.0.py | 229 adim = self.get_array_dimensions(aval) 230 if len(adim) == 0: 238 if asec is None or len(asec) == 0 or len(asec) != len(adim): 243 arg_ssec = self.replace_using_subsections(arg, aval, adim) 268 v1 = adim[isec][0] 273 v2 = adim[isec][1] 391 def replace_using_subsections(self, arg, aval, adim): argument 412 for r1 in adim:
|