/dports/math/latte-integrale/latte-version_1_7_6/code/latte/genFunction/ |
H A D | ilio.cpp | 37 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 D | initpar.F | 13 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 D | s1731.c | 147 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 D | s6crvcheck.c | 99 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 D | s1450.c | 137 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 D | reshape_c4.c | 53 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 D | reshape_c8.c | 53 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 D | reshape_i4.c | 53 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 D | reshape_i8.c | 53 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 D | reshape_r16.c | 53 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 D | reshape_r4.c | 53 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 D | reshape_c16.c | 53 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 D | reshape_r10.c | 53 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 D | reshape_c10.c | 53 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 D | reshape_i16.c | 53 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 D | reshape_r8.c | 53 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 D | reshape_c10.c | 53 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 D | reshape_r10.c | 53 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 D | reshape_r16.c | 53 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 D | reshape_r4.c | 53 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 D | reshape_c16.c | 53 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 D | reshape_i16.c | 53 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 D | reshape_i4.c | 53 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 D | reshape_c4.c | 53 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 D | reshape_c8.c | 53 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 …]
|