Home
last modified time | relevance | path

Searched refs:rdim (Results 1 – 25 of 482) sorted by relevance

12345678910>>...20

/dports/math/latte-integrale/latte-version_1_7_6/code/latte/genFunction/
H A Dilio.cpp37 rdim = cdim = 11; in main()
42 rdim = cdim = atoi(argv[2]); in main()
47 snf.SetLength(rdim); in main()
51 M = ident_mat_ZZ(rdim); in main()
52 L = ident_mat_ZZ(rdim); in main()
53 R = ident_mat_ZZ(rdim); in main()
54 X = ident_mat_ZZ(rdim); in main()
69 ident(L, rdim); in main()
70 ident(R, rdim); in main()
74 ident(L, rdim); in main()
[all …]
/dports/devel/ga/ga-5.8/global/examples/boltzmann/
H A Dinitpar.F13 double precision rdim,b,c2
21 rdim = 4.0d00
29 ffd(i) = -1.0d00/c2-4.0d00*rdim/(2.0d00*b*c2)
31 ffb(i) = 4.0d00*rdim/(b*c2)
32 ffc(i) = 4.0d00*rdim*(rdim+2.0d00)/(2.0d00*b*c2**2)
33 ffd(i) = -4.0d00*rdim/(2.0d00*b*c2)
35 ffb(i) = rdim/(b*c2)
36 ffc(i) = rdim*(rdim+2.0d00)/(2.0d00*b*c2**2)
37 ffd(i) = -rdim/(2.0d00*b*c2)
/dports/math/sisl/SISL-SISL-4.6.0-44-g9114631/src/
H A Ds1731.c147 rdim = kdim + 1;
152 rdim = kdim;
180 if ((scoefh=new0array(kn1*kn*rdim,double))==SISL_NULL) goto err101;
202 for(s1=scoefh,ki2=kn1*kn*rdim,ki=0,kmy=0;ki<kn1;ki++)
213 for (kj=0; kj<rdim; kj++,s1++)
214 for (s2=s1,s3=s2+ki2,kj3=kj;s2<s3;s2+=rdim*kn1,kj3+=rdim*qkreg->in1)
216 *s2 += salfa[kj2] * rcoef[kj1*rdim+kj3];
222 for(s1=scoef,ki2=kn1*rdim,ki=0,kmy=0;ki<kn2;ki++,s1+=kn1*rdim)
233 for (kj=0; kj<rdim; kj++)
234 for (s2=s1+kj,s3=s2+ki2,kj3=kj;s2<s3;s2+=rdim,kj3+=rdim)
[all …]
H A Ds6crvcheck.c99 int rdim; /* Rational dimension. */ local
119 rdim = kdim + 1;
146 srcoef = newarray(kn*rdim,DOUBLE);
150 DNEQUAL(s6dist(rcoef+(ki-1)*rdim,rcoef+ki*rdim,rdim),DZERO))
154 memcopy(srcoef+rdim*kj,rcoef+rdim*ki,rdim,DOUBLE);
187 memcopy(pc->rcoef,srcoef,knnew*rdim,DOUBLE);
H A Ds1450.c137 int rdim; /* Dimension of the rational space. */ local
163 rdim = kdim + 1;
165 rdim = kdim;
200 if (rdim == kdim)
210 for (ki=0; ki<kn2 ; ki++,sv2+=rdim,sv4+=rdim)
220 if (rdim == kdim)
230 for (ki=0; ki<kn1; ki++,sv1+=rdim,sv3+=rdim)
/dports/lang/gcc8/gcc-8.5.0/libgfortran/generated/
H A Dreshape_c4.c53 index_type rdim; in reshape_c4() local
78 rdim = GFC_DESCRIPTOR_EXTENT(shape,0); in reshape_c4()
81 GFC_ASSERT(rdim>0); in reshape_c4()
83 if (rdim != GFC_DESCRIPTOR_RANK(ret)) in reshape_c4()
88 for (index_type n = 0; n < rdim; n++) in reshape_c4()
119 ret->dtype.rank = rdim; in reshape_c4()
191 for (index_type n = 0; n < rdim; n++) in reshape_c4()
194 for (index_type n = 0; n < rdim; n++) in reshape_c4()
198 if (v < 0 || v >= rdim) in reshape_c4()
212 for (index_type n = 0; n < rdim; n++) in reshape_c4()
[all …]
H A Dreshape_c8.c53 index_type rdim; in reshape_c8() local
78 rdim = GFC_DESCRIPTOR_EXTENT(shape,0); in reshape_c8()
81 GFC_ASSERT(rdim>0); in reshape_c8()
83 if (rdim != GFC_DESCRIPTOR_RANK(ret)) in reshape_c8()
88 for (index_type n = 0; n < rdim; n++) in reshape_c8()
119 ret->dtype.rank = rdim; in reshape_c8()
191 for (index_type n = 0; n < rdim; n++) in reshape_c8()
194 for (index_type n = 0; n < rdim; n++) in reshape_c8()
198 if (v < 0 || v >= rdim) in reshape_c8()
212 for (index_type n = 0; n < rdim; n++) in reshape_c8()
[all …]
H A Dreshape_i4.c53 index_type rdim; in reshape_4() local
78 rdim = GFC_DESCRIPTOR_EXTENT(shape,0); in reshape_4()
81 GFC_ASSERT(rdim>0); in reshape_4()
83 if (rdim != GFC_DESCRIPTOR_RANK(ret)) in reshape_4()
88 for (index_type n = 0; n < rdim; n++) in reshape_4()
119 ret->dtype.rank = rdim; in reshape_4()
191 for (index_type n = 0; n < rdim; n++) in reshape_4()
194 for (index_type n = 0; n < rdim; n++) in reshape_4()
198 if (v < 0 || v >= rdim) in reshape_4()
212 for (index_type n = 0; n < rdim; n++) in reshape_4()
[all …]
H A Dreshape_i8.c53 index_type rdim; in reshape_8() local
78 rdim = GFC_DESCRIPTOR_EXTENT(shape,0); in reshape_8()
81 GFC_ASSERT(rdim>0); in reshape_8()
83 if (rdim != GFC_DESCRIPTOR_RANK(ret)) in reshape_8()
88 for (index_type n = 0; n < rdim; n++) in reshape_8()
119 ret->dtype.rank = rdim; in reshape_8()
191 for (index_type n = 0; n < rdim; n++) in reshape_8()
194 for (index_type n = 0; n < rdim; n++) in reshape_8()
198 if (v < 0 || v >= rdim) in reshape_8()
212 for (index_type n = 0; n < rdim; n++) in reshape_8()
[all …]
H A Dreshape_r16.c53 index_type rdim; in reshape_r16() local
78 rdim = GFC_DESCRIPTOR_EXTENT(shape,0); in reshape_r16()
81 GFC_ASSERT(rdim>0); in reshape_r16()
83 if (rdim != GFC_DESCRIPTOR_RANK(ret)) in reshape_r16()
88 for (index_type n = 0; n < rdim; n++) in reshape_r16()
119 ret->dtype.rank = rdim; in reshape_r16()
191 for (index_type n = 0; n < rdim; n++) in reshape_r16()
194 for (index_type n = 0; n < rdim; n++) in reshape_r16()
198 if (v < 0 || v >= rdim) in reshape_r16()
212 for (index_type n = 0; n < rdim; n++) in reshape_r16()
[all …]
H A Dreshape_r4.c53 index_type rdim; in reshape_r4() local
78 rdim = GFC_DESCRIPTOR_EXTENT(shape,0); in reshape_r4()
81 GFC_ASSERT(rdim>0); in reshape_r4()
83 if (rdim != GFC_DESCRIPTOR_RANK(ret)) in reshape_r4()
88 for (index_type n = 0; n < rdim; n++) in reshape_r4()
119 ret->dtype.rank = rdim; in reshape_r4()
191 for (index_type n = 0; n < rdim; n++) in reshape_r4()
194 for (index_type n = 0; n < rdim; n++) in reshape_r4()
198 if (v < 0 || v >= rdim) in reshape_r4()
212 for (index_type n = 0; n < rdim; n++) in reshape_r4()
[all …]
H A Dreshape_c16.c53 index_type rdim; in reshape_c16() local
78 rdim = GFC_DESCRIPTOR_EXTENT(shape,0); in reshape_c16()
81 GFC_ASSERT(rdim>0); in reshape_c16()
83 if (rdim != GFC_DESCRIPTOR_RANK(ret)) in reshape_c16()
88 for (index_type n = 0; n < rdim; n++) in reshape_c16()
119 ret->dtype.rank = rdim; in reshape_c16()
191 for (index_type n = 0; n < rdim; n++) in reshape_c16()
194 for (index_type n = 0; n < rdim; n++) in reshape_c16()
198 if (v < 0 || v >= rdim) in reshape_c16()
212 for (index_type n = 0; n < rdim; n++) in reshape_c16()
[all …]
H A Dreshape_r10.c53 index_type rdim; in reshape_r10() local
78 rdim = GFC_DESCRIPTOR_EXTENT(shape,0); in reshape_r10()
81 GFC_ASSERT(rdim>0); in reshape_r10()
83 if (rdim != GFC_DESCRIPTOR_RANK(ret)) in reshape_r10()
88 for (index_type n = 0; n < rdim; n++) in reshape_r10()
119 ret->dtype.rank = rdim; in reshape_r10()
191 for (index_type n = 0; n < rdim; n++) in reshape_r10()
194 for (index_type n = 0; n < rdim; n++) in reshape_r10()
198 if (v < 0 || v >= rdim) in reshape_r10()
212 for (index_type n = 0; n < rdim; n++) in reshape_r10()
[all …]
H A Dreshape_c10.c53 index_type rdim; in reshape_c10() local
78 rdim = GFC_DESCRIPTOR_EXTENT(shape,0); in reshape_c10()
81 GFC_ASSERT(rdim>0); in reshape_c10()
83 if (rdim != GFC_DESCRIPTOR_RANK(ret)) in reshape_c10()
88 for (index_type n = 0; n < rdim; n++) in reshape_c10()
119 ret->dtype.rank = rdim; in reshape_c10()
191 for (index_type n = 0; n < rdim; n++) in reshape_c10()
194 for (index_type n = 0; n < rdim; n++) in reshape_c10()
198 if (v < 0 || v >= rdim) in reshape_c10()
212 for (index_type n = 0; n < rdim; n++) in reshape_c10()
[all …]
H A Dreshape_i16.c53 index_type rdim; in reshape_16() local
78 rdim = GFC_DESCRIPTOR_EXTENT(shape,0); in reshape_16()
81 GFC_ASSERT(rdim>0); in reshape_16()
83 if (rdim != GFC_DESCRIPTOR_RANK(ret)) in reshape_16()
88 for (index_type n = 0; n < rdim; n++) in reshape_16()
119 ret->dtype.rank = rdim; in reshape_16()
191 for (index_type n = 0; n < rdim; n++) in reshape_16()
194 for (index_type n = 0; n < rdim; n++) in reshape_16()
198 if (v < 0 || v >= rdim) in reshape_16()
212 for (index_type n = 0; n < rdim; n++) in reshape_16()
[all …]
H A Dreshape_r8.c53 index_type rdim; in reshape_r8() local
78 rdim = GFC_DESCRIPTOR_EXTENT(shape,0); in reshape_r8()
81 GFC_ASSERT(rdim>0); in reshape_r8()
83 if (rdim != GFC_DESCRIPTOR_RANK(ret)) in reshape_r8()
88 for (index_type n = 0; n < rdim; n++) in reshape_r8()
119 ret->dtype.rank = rdim; in reshape_r8()
191 for (index_type n = 0; n < rdim; n++) in reshape_r8()
194 for (index_type n = 0; n < rdim; n++) in reshape_r8()
198 if (v < 0 || v >= rdim) in reshape_r8()
212 for (index_type n = 0; n < rdim; n++) in reshape_r8()
[all …]
/dports/lang/gcc10/gcc-10.3.0/libgfortran/generated/
H A Dreshape_c10.c53 index_type rdim; in reshape_c10() local
78 rdim = GFC_DESCRIPTOR_EXTENT(shape,0); in reshape_c10()
81 GFC_ASSERT(rdim>0); in reshape_c10()
83 if (rdim != GFC_DESCRIPTOR_RANK(ret)) in reshape_c10()
88 for (index_type n = 0; n < rdim; n++) in reshape_c10()
119 ret->dtype.rank = rdim; in reshape_c10()
191 for (index_type n = 0; n < rdim; n++) in reshape_c10()
194 for (index_type n = 0; n < rdim; n++) in reshape_c10()
198 if (v < 0 || v >= rdim) in reshape_c10()
212 for (index_type n = 0; n < rdim; n++) in reshape_c10()
[all …]
H A Dreshape_r10.c53 index_type rdim; in reshape_r10() local
78 rdim = GFC_DESCRIPTOR_EXTENT(shape,0); in reshape_r10()
81 GFC_ASSERT(rdim>0); in reshape_r10()
83 if (rdim != GFC_DESCRIPTOR_RANK(ret)) in reshape_r10()
88 for (index_type n = 0; n < rdim; n++) in reshape_r10()
119 ret->dtype.rank = rdim; in reshape_r10()
191 for (index_type n = 0; n < rdim; n++) in reshape_r10()
194 for (index_type n = 0; n < rdim; n++) in reshape_r10()
198 if (v < 0 || v >= rdim) in reshape_r10()
212 for (index_type n = 0; n < rdim; n++) in reshape_r10()
[all …]
H A Dreshape_r16.c53 index_type rdim; in reshape_r16() local
78 rdim = GFC_DESCRIPTOR_EXTENT(shape,0); in reshape_r16()
81 GFC_ASSERT(rdim>0); in reshape_r16()
83 if (rdim != GFC_DESCRIPTOR_RANK(ret)) in reshape_r16()
88 for (index_type n = 0; n < rdim; n++) in reshape_r16()
119 ret->dtype.rank = rdim; in reshape_r16()
191 for (index_type n = 0; n < rdim; n++) in reshape_r16()
194 for (index_type n = 0; n < rdim; n++) in reshape_r16()
198 if (v < 0 || v >= rdim) in reshape_r16()
212 for (index_type n = 0; n < rdim; n++) in reshape_r16()
[all …]
H A Dreshape_r4.c53 index_type rdim; in reshape_r4() local
78 rdim = GFC_DESCRIPTOR_EXTENT(shape,0); in reshape_r4()
81 GFC_ASSERT(rdim>0); in reshape_r4()
83 if (rdim != GFC_DESCRIPTOR_RANK(ret)) in reshape_r4()
88 for (index_type n = 0; n < rdim; n++) in reshape_r4()
119 ret->dtype.rank = rdim; in reshape_r4()
191 for (index_type n = 0; n < rdim; n++) in reshape_r4()
194 for (index_type n = 0; n < rdim; n++) in reshape_r4()
198 if (v < 0 || v >= rdim) in reshape_r4()
212 for (index_type n = 0; n < rdim; n++) in reshape_r4()
[all …]
H A Dreshape_c16.c53 index_type rdim; in reshape_c16() local
78 rdim = GFC_DESCRIPTOR_EXTENT(shape,0); in reshape_c16()
81 GFC_ASSERT(rdim>0); in reshape_c16()
83 if (rdim != GFC_DESCRIPTOR_RANK(ret)) in reshape_c16()
88 for (index_type n = 0; n < rdim; n++) in reshape_c16()
119 ret->dtype.rank = rdim; in reshape_c16()
191 for (index_type n = 0; n < rdim; n++) in reshape_c16()
194 for (index_type n = 0; n < rdim; n++) in reshape_c16()
198 if (v < 0 || v >= rdim) in reshape_c16()
212 for (index_type n = 0; n < rdim; n++) in reshape_c16()
[all …]
H A Dreshape_i16.c53 index_type rdim; in reshape_16() local
78 rdim = GFC_DESCRIPTOR_EXTENT(shape,0); in reshape_16()
81 GFC_ASSERT(rdim>0); in reshape_16()
83 if (rdim != GFC_DESCRIPTOR_RANK(ret)) in reshape_16()
88 for (index_type n = 0; n < rdim; n++) in reshape_16()
119 ret->dtype.rank = rdim; in reshape_16()
191 for (index_type n = 0; n < rdim; n++) in reshape_16()
194 for (index_type n = 0; n < rdim; n++) in reshape_16()
198 if (v < 0 || v >= rdim) in reshape_16()
212 for (index_type n = 0; n < rdim; n++) in reshape_16()
[all …]
H A Dreshape_i4.c53 index_type rdim; in reshape_4() local
78 rdim = GFC_DESCRIPTOR_EXTENT(shape,0); in reshape_4()
81 GFC_ASSERT(rdim>0); in reshape_4()
83 if (rdim != GFC_DESCRIPTOR_RANK(ret)) in reshape_4()
88 for (index_type n = 0; n < rdim; n++) in reshape_4()
119 ret->dtype.rank = rdim; in reshape_4()
191 for (index_type n = 0; n < rdim; n++) in reshape_4()
194 for (index_type n = 0; n < rdim; n++) in reshape_4()
198 if (v < 0 || v >= rdim) in reshape_4()
212 for (index_type n = 0; n < rdim; n++) in reshape_4()
[all …]
H A Dreshape_c4.c53 index_type rdim; in reshape_c4() local
78 rdim = GFC_DESCRIPTOR_EXTENT(shape,0); in reshape_c4()
81 GFC_ASSERT(rdim>0); in reshape_c4()
83 if (rdim != GFC_DESCRIPTOR_RANK(ret)) in reshape_c4()
88 for (index_type n = 0; n < rdim; n++) in reshape_c4()
119 ret->dtype.rank = rdim; in reshape_c4()
191 for (index_type n = 0; n < rdim; n++) in reshape_c4()
194 for (index_type n = 0; n < rdim; n++) in reshape_c4()
198 if (v < 0 || v >= rdim) in reshape_c4()
212 for (index_type n = 0; n < rdim; n++) in reshape_c4()
[all …]
H A Dreshape_c8.c53 index_type rdim; in reshape_c8() local
78 rdim = GFC_DESCRIPTOR_EXTENT(shape,0); in reshape_c8()
81 GFC_ASSERT(rdim>0); in reshape_c8()
83 if (rdim != GFC_DESCRIPTOR_RANK(ret)) in reshape_c8()
88 for (index_type n = 0; n < rdim; n++) in reshape_c8()
119 ret->dtype.rank = rdim; in reshape_c8()
191 for (index_type n = 0; n < rdim; n++) in reshape_c8()
194 for (index_type n = 0; n < rdim; n++) in reshape_c8()
198 if (v < 0 || v >= rdim) in reshape_c8()
212 for (index_type n = 0; n < rdim; n++) in reshape_c8()
[all …]

12345678910>>...20