| /src/external/gpl3/gcc.old/dist/libgfortran/generated/ |
| spread_c10.c | 54 index_type dim; local 64 runtime_error ("dim outside of rank in spread()"); 77 dim = 0; 90 count[dim] = 0; 91 extent[dim] = GFC_DESCRIPTOR_EXTENT(source,dim); 92 sstride[dim] = GFC_DESCRIPTOR_STRIDE(source,dim); 93 rstride[dim] = rs; 95 ub = extent[dim] - 1 [all...] |
| spread_c16.c | 54 index_type dim; local 64 runtime_error ("dim outside of rank in spread()"); 77 dim = 0; 90 count[dim] = 0; 91 extent[dim] = GFC_DESCRIPTOR_EXTENT(source,dim); 92 sstride[dim] = GFC_DESCRIPTOR_STRIDE(source,dim); 93 rstride[dim] = rs; 95 ub = extent[dim] - 1 [all...] |
| spread_c17.c | 54 index_type dim; local 64 runtime_error ("dim outside of rank in spread()"); 77 dim = 0; 90 count[dim] = 0; 91 extent[dim] = GFC_DESCRIPTOR_EXTENT(source,dim); 92 sstride[dim] = GFC_DESCRIPTOR_STRIDE(source,dim); 93 rstride[dim] = rs; 95 ub = extent[dim] - 1 [all...] |
| spread_c4.c | 54 index_type dim; local 64 runtime_error ("dim outside of rank in spread()"); 77 dim = 0; 90 count[dim] = 0; 91 extent[dim] = GFC_DESCRIPTOR_EXTENT(source,dim); 92 sstride[dim] = GFC_DESCRIPTOR_STRIDE(source,dim); 93 rstride[dim] = rs; 95 ub = extent[dim] - 1 [all...] |
| spread_c8.c | 54 index_type dim; local 64 runtime_error ("dim outside of rank in spread()"); 77 dim = 0; 90 count[dim] = 0; 91 extent[dim] = GFC_DESCRIPTOR_EXTENT(source,dim); 92 sstride[dim] = GFC_DESCRIPTOR_STRIDE(source,dim); 93 rstride[dim] = rs; 95 ub = extent[dim] - 1 [all...] |
| spread_i1.c | 54 index_type dim; local 64 runtime_error ("dim outside of rank in spread()"); 77 dim = 0; 90 count[dim] = 0; 91 extent[dim] = GFC_DESCRIPTOR_EXTENT(source,dim); 92 sstride[dim] = GFC_DESCRIPTOR_STRIDE(source,dim); 93 rstride[dim] = rs; 95 ub = extent[dim] - 1 [all...] |
| spread_i16.c | 54 index_type dim; local 64 runtime_error ("dim outside of rank in spread()"); 77 dim = 0; 90 count[dim] = 0; 91 extent[dim] = GFC_DESCRIPTOR_EXTENT(source,dim); 92 sstride[dim] = GFC_DESCRIPTOR_STRIDE(source,dim); 93 rstride[dim] = rs; 95 ub = extent[dim] - 1 [all...] |
| spread_i2.c | 54 index_type dim; local 64 runtime_error ("dim outside of rank in spread()"); 77 dim = 0; 90 count[dim] = 0; 91 extent[dim] = GFC_DESCRIPTOR_EXTENT(source,dim); 92 sstride[dim] = GFC_DESCRIPTOR_STRIDE(source,dim); 93 rstride[dim] = rs; 95 ub = extent[dim] - 1 [all...] |
| spread_i4.c | 54 index_type dim; local 64 runtime_error ("dim outside of rank in spread()"); 77 dim = 0; 90 count[dim] = 0; 91 extent[dim] = GFC_DESCRIPTOR_EXTENT(source,dim); 92 sstride[dim] = GFC_DESCRIPTOR_STRIDE(source,dim); 93 rstride[dim] = rs; 95 ub = extent[dim] - 1 [all...] |
| spread_i8.c | 54 index_type dim; local 64 runtime_error ("dim outside of rank in spread()"); 77 dim = 0; 90 count[dim] = 0; 91 extent[dim] = GFC_DESCRIPTOR_EXTENT(source,dim); 92 sstride[dim] = GFC_DESCRIPTOR_STRIDE(source,dim); 93 rstride[dim] = rs; 95 ub = extent[dim] - 1 [all...] |
| spread_r10.c | 54 index_type dim; local 64 runtime_error ("dim outside of rank in spread()"); 77 dim = 0; 90 count[dim] = 0; 91 extent[dim] = GFC_DESCRIPTOR_EXTENT(source,dim); 92 sstride[dim] = GFC_DESCRIPTOR_STRIDE(source,dim); 93 rstride[dim] = rs; 95 ub = extent[dim] - 1 [all...] |
| spread_r16.c | 54 index_type dim; local 64 runtime_error ("dim outside of rank in spread()"); 77 dim = 0; 90 count[dim] = 0; 91 extent[dim] = GFC_DESCRIPTOR_EXTENT(source,dim); 92 sstride[dim] = GFC_DESCRIPTOR_STRIDE(source,dim); 93 rstride[dim] = rs; 95 ub = extent[dim] - 1 [all...] |
| spread_r17.c | 54 index_type dim; local 64 runtime_error ("dim outside of rank in spread()"); 77 dim = 0; 90 count[dim] = 0; 91 extent[dim] = GFC_DESCRIPTOR_EXTENT(source,dim); 92 sstride[dim] = GFC_DESCRIPTOR_STRIDE(source,dim); 93 rstride[dim] = rs; 95 ub = extent[dim] - 1 [all...] |
| spread_r4.c | 54 index_type dim; local 64 runtime_error ("dim outside of rank in spread()"); 77 dim = 0; 90 count[dim] = 0; 91 extent[dim] = GFC_DESCRIPTOR_EXTENT(source,dim); 92 sstride[dim] = GFC_DESCRIPTOR_STRIDE(source,dim); 93 rstride[dim] = rs; 95 ub = extent[dim] - 1 [all...] |
| spread_r8.c | 54 index_type dim; local 64 runtime_error ("dim outside of rank in spread()"); 77 dim = 0; 90 count[dim] = 0; 91 extent[dim] = GFC_DESCRIPTOR_EXTENT(source,dim); 92 sstride[dim] = GFC_DESCRIPTOR_STRIDE(source,dim); 93 rstride[dim] = rs; 95 ub = extent[dim] - 1 [all...] |
| cshift0_c10.c | 50 index_type dim; local 76 dim = GFC_DESCRIPTOR_RANK (array); 77 for (n = 0; n < dim; n ++) 113 we can used a more blocked algorithm for dim>1. */ 121 for (dim = which + 1; dim < GFC_DESCRIPTOR_RANK (array); dim++) 124 extent[n] = GFC_DESCRIPTOR_EXTENT(array,dim); 125 rstride[n] = GFC_DESCRIPTOR_STRIDE(ret,dim); 126 sstride[n] = GFC_DESCRIPTOR_STRIDE(array,dim); [all...] |
| cshift0_c16.c | 50 index_type dim; local 76 dim = GFC_DESCRIPTOR_RANK (array); 77 for (n = 0; n < dim; n ++) 113 we can used a more blocked algorithm for dim>1. */ 121 for (dim = which + 1; dim < GFC_DESCRIPTOR_RANK (array); dim++) 124 extent[n] = GFC_DESCRIPTOR_EXTENT(array,dim); 125 rstride[n] = GFC_DESCRIPTOR_STRIDE(ret,dim); 126 sstride[n] = GFC_DESCRIPTOR_STRIDE(array,dim); [all...] |
| cshift0_c17.c | 50 index_type dim; local 76 dim = GFC_DESCRIPTOR_RANK (array); 77 for (n = 0; n < dim; n ++) 113 we can used a more blocked algorithm for dim>1. */ 121 for (dim = which + 1; dim < GFC_DESCRIPTOR_RANK (array); dim++) 124 extent[n] = GFC_DESCRIPTOR_EXTENT(array,dim); 125 rstride[n] = GFC_DESCRIPTOR_STRIDE(ret,dim); 126 sstride[n] = GFC_DESCRIPTOR_STRIDE(array,dim); [all...] |
| cshift0_c4.c | 50 index_type dim; local 76 dim = GFC_DESCRIPTOR_RANK (array); 77 for (n = 0; n < dim; n ++) 113 we can used a more blocked algorithm for dim>1. */ 121 for (dim = which + 1; dim < GFC_DESCRIPTOR_RANK (array); dim++) 124 extent[n] = GFC_DESCRIPTOR_EXTENT(array,dim); 125 rstride[n] = GFC_DESCRIPTOR_STRIDE(ret,dim); 126 sstride[n] = GFC_DESCRIPTOR_STRIDE(array,dim); [all...] |
| /src/external/gpl3/gcc.old/dist/libgfortran/intrinsics/ |
| is_contiguous.c | 31 index_type dim; local 35 dim = GFC_DESCRIPTOR_RANK (array); 38 for (n = 0; n < dim; n++)
|
| size.c | 49 extern index_type size1 (const array_t * array, index_type dim); 55 size1 (const array_t * array, index_type dim) 59 dim--; 61 size = GFC_DESCRIPTOR_EXTENT(array,dim);
|
| /src/external/gpl3/gcc/dist/libgfortran/intrinsics/ |
| is_contiguous.c | 31 index_type dim; local 35 dim = GFC_DESCRIPTOR_RANK (array); 38 for (n = 0; n < dim; n++)
|
| size.c | 49 extern index_type size1 (const array_t * array, index_type dim); 55 size1 (const array_t * array, index_type dim) 59 dim--; 61 size = GFC_DESCRIPTOR_EXTENT(array,dim);
|
| /src/external/mit/isl/dist/ |
| check_type_range_templ.c | 10 isl_size dim; local 12 dim = FN(TYPE,dim)(obj, type); 13 if (dim < 0) 15 if (first + n > dim || first + n < first)
|
| /src/external/gpl2/groff/dist/src/preproc/pic/ |
| common.cpp | 87 const distance &dim, const line_type <) 90 assert(dim.x != 0 && dim.y != 0); 95 double psi = atan2(zml.y / dim.y, zml.x / dim.x); 96 position zm = position(dim.x * cos(psi), dim.y * sin(psi)); 99 double a_2 = dim.x * dim.x; 101 double b_2 = dim.y * dim.y [all...] |