/*
* FUNCTION reverse_n
*/
extern_c bool C_reverse_n(gptr L1_ptr,int L1_size,int L1_n)
{
TRACE_PUSH("C_reverse_n"); MM_ENTER;
{
{
char *mptr = (char *)(L1_ptr);
while((L1_n)--)
{
char tmp;
char *uptr = mptr + (L1_size);
if ((L1_size) >= 2)
{ tmp = mptr[0]; mptr[0]=uptr[-1]; uptr[-1]=tmp; }
if ((L1_size) >= 4)
{ tmp = mptr[1]; mptr[1]=uptr[-2]; uptr[-2]=tmp; }
if ((L1_size) >= 6)
{ tmp = mptr[2]; mptr[2]=uptr[-3]; uptr[-3]=tmp; }
if ((L1_size) >= 8)
{ tmp = mptr[3]; mptr[3]=uptr[-4]; uptr[-4]=tmp; }
mptr = uptr;
}
}
TRACE_POP("C_reverse_n");
MM_EXIT; return 0;
}
}
/*
* FUNCTION fputc
*/
extern_c bool C_fputc(FILE * L1_file,int L1_val)
{
TRACE_PUSH("C_fputc"); MM_ENTER;
{
putc((char)(L1_val),(FILE *)(L1_file));
TRACE_POP("C_fputc");
MM_EXIT; return 0;
}
}
/*
* FUNCTION pclose
*/
extern_c bool C_pclose(FILE * L1_file)
{
TRACE_PUSH("C_pclose"); MM_ENTER;
{
pclose((FILE *)(L1_file));
TRACE_POP("C_pclose");
MM_EXIT; return 0;
}
}
/*
* FUNCTION rewind
*/
extern_c bool C_rewind(FILE * L1_f)
{
TRACE_PUSH("C_rewind"); MM_ENTER;
{
rewind((L1_f));
TRACE_POP("C_rewind");
MM_EXIT; return 0;
}
}
/*
* FUNCTION fwrite-byte
*/
extern_c bool C_fwrite_byte(FILE * L1_file,char L1_val)
{
TRACE_PUSH("C_fwrite_byte"); MM_ENTER;
{
putc((L1_val),(FILE *)(L1_file));
TRACE_POP("C_fwrite_byte");
MM_EXIT; return 0;
}
}
/*
* FUNCTION fprints
*/
extern_c bool C_fprints(FILE * L1_fw,char* L1_s)
{
TRACE_PUSH("C_fprints"); MM_ENTER;
{
bool L_Tmp0;
L_Tmp0 = (bool ) C_fwrite_str(L1_fw, L1_s);
TRACE_POP("C_fprints");
MM_EXIT; return 0;
}
}
/*
* FUNCTION reverse8
*/
extern_c bool C_reverse8(gptr L1_ptr,int L1_n)
{
TRACE_PUSH("C_reverse8"); MM_ENTER;
{
bool L_Tmp0;
L_Tmp0 = (bool ) C_reverse_n(L1_ptr, 8, L1_n);
TRACE_POP("C_reverse8");
MM_EXIT; return 0;
}
}
/*
* FUNCTION stdin
*/
extern_c gptr C_stdin()
{
TRACE_PUSH("C_stdin"); MM_ENTER;
{
gptr L_Tmp0;
L_Tmp0 = (gptr)( stdin);
TRACE_POP("C_stdin");
MM_EXIT; return L_Tmp0;
}
}
/*
* FUNCTION popen
*/
extern_c gptr C_popen(char* L1_filename,char* L1_type)
{
TRACE_PUSH("C_popen"); MM_ENTER;
{
gptr L_Tmp0;
L_Tmp0 = (gptr)( popen((L1_filename), (L1_type)));
TRACE_POP("C_popen");
MM_EXIT; return L_Tmp0;
}
}
/*
* FUNCTION square
*/
extern_c int C_square(int L1_x)
{
TRACE_PUSH("C_square"); MM_ENTER;
{
int L_Tmp0;
L_Tmp0 = (L1_x*L1_x);
TRACE_POP("C_square");
MM_EXIT; return L_Tmp0;
}
}
/*
* FUNCTION fwrite-flt
*/
extern_c bool C_fwrite_flt(FILE * L1_file,float L1_val)
{
TRACE_PUSH("C_fwrite_flt"); MM_ENTER;
{
{
float fl=(L1_val);
if (little_endian_p) C_reverse_n(&fl, sizeof(flt), 1);
fwrite((char *)&fl, sizeof(flt), 1, (FILE *)(L1_file)) ;
}
TRACE_POP("C_fwrite_flt");
MM_EXIT; return 0;
}
}
/*
* FUNCTION fwrite-real
*/
extern_c bool C_fwrite_real(FILE * L1_file,double L1_val)
{
TRACE_PUSH("C_fwrite_real"); MM_ENTER;
{
{
real fl=(L1_val);
if (little_endian_p) C_reverse_n(&fl, sizeof(real), 1);
fwrite((char *)&fl, sizeof(real), 1, (FILE *)(L1_file)) ;
}
TRACE_POP("C_fwrite_real");
MM_EXIT; return 0;
}
}
/*
* FUNCTION fwrite-int
*/
extern_c bool C_fwrite_int(FILE * L1_file,int L1_val)
{
TRACE_PUSH("C_fwrite_int"); MM_ENTER;
{
{
int s = (L1_val);
if (little_endian_p) C_reverse_n(&s, sizeof(int), 1);
fwrite((char *)&s, sizeof(int), 1, (FILE *)(L1_file)) ;
}
TRACE_POP("C_fwrite_int");
MM_EXIT; return 0;
}
}
/*
* FUNCTION fseek-from-end
*/
extern_c bool C_fseek_from_end(FILE * L1_file,double L1_pos)
{
TRACE_PUSH("C_fseek_from_end"); MM_ENTER;
{
#ifdef HAVE_FSEEKO
fseeko((FILE *)(L1_file), (off_t)(L1_pos), SEEK_END);
#else
fseek((FILE *)(L1_file), (long)(L1_pos), SEEK_END);
#endif
TRACE_POP("C_fseek_from_end");
MM_EXIT; return 0;
}
}
/*
* FUNCTION fgetc
*/
extern_c int C_fgetc(FILE * L1_file)
{
TRACE_PUSH("C_fgetc"); MM_ENTER;
{
int L_Tmp0;
{
int L2_1_result;
L2_1_result = 0;
(L2_1_result)=getc((FILE *)(L1_file));
L_Tmp0 = L2_1_result;
}
TRACE_POP("C_fgetc");
MM_EXIT; return L_Tmp0;
}
}
/*
* FUNCTION fscan-flt
*/
extern_c float C_fscan_flt(FILE * L1_fp)
{
TRACE_PUSH("C_fscan_flt"); MM_ENTER;
{
float L_Tmp0;
{
float L2_1_result;
L2_1_result = 0;
fscanf((L1_fp),"%f",&(L2_1_result));
L_Tmp0 = L2_1_result;
}
TRACE_POP("C_fscan_flt");
MM_EXIT; return L_Tmp0;
}
}
/*
* FUNCTION fscan-int
*/
extern_c int C_fscan_int(FILE * L1_fp)
{
TRACE_PUSH("C_fscan_int"); MM_ENTER;
{
int L_Tmp0;
{
int L2_1_result;
L2_1_result = 0;
fscanf((L1_fp),"%d",&(L2_1_result));
L_Tmp0 = L2_1_result;
}
TRACE_POP("C_fscan_int");
MM_EXIT; return L_Tmp0;
}
}
/*
* FUNCTION fread-byte
*/
extern_c char C_fread_byte(FILE * L1_file)
{
TRACE_PUSH("C_fread_byte"); MM_ENTER;
{
char L_Tmp0;
{
char L2_1_val;
L2_1_val = 0;
(L2_1_val) = (char) getc((FILE *)(L1_file));
L_Tmp0 = L2_1_val;
}
TRACE_POP("C_fread_byte");
MM_EXIT; return L_Tmp0;
}
}
/*
* FUNCTION fwrite-str
*/
extern_c bool C_fwrite_str(FILE * L1_file,char* L1_s)
{
TRACE_PUSH("C_fwrite_str"); MM_ENTER;
{
if(!(L1_file))
printf("%s", (L1_s));
else
{
fprintf((FILE *)(L1_file), "%s", (L1_s));
fflush((FILE *)(L1_file));
}
TRACE_POP("C_fwrite_str");
MM_EXIT; return 0;
}
}
/*
* FUNCTION fread-real
*/
extern_c double C_fread_real(FILE * L1_file)
{
TRACE_PUSH("C_fread_real"); MM_ENTER;
{
double L_Tmp0;
{
double L2_1_val;
L2_1_val = 0;
fread(&(L2_1_val), sizeof(real), 1, (FILE *)(L1_file)) ;
if (little_endian_p) C_reverse_n(&(L2_1_val), sizeof(real), 1);
L_Tmp0 = L2_1_val;
}
TRACE_POP("C_fread_real");
MM_EXIT; return L_Tmp0;
}
}
/*
* FUNCTION fread-flt
*/
extern_c float C_fread_flt(FILE * L1_file)
{
TRACE_PUSH("C_fread_flt"); MM_ENTER;
{
float L_Tmp0;
{
float L2_1_val;
L2_1_val = 0;
fread(&(L2_1_val), sizeof(flt), 1, (FILE *)(L1_file)) ;
if (little_endian_p) C_reverse_n(&(L2_1_val), sizeof(flt), 1);
L_Tmp0 = L2_1_val;
}
TRACE_POP("C_fread_flt");
MM_EXIT; return L_Tmp0;
}
}
/*
* FUNCTION fread-int
*/
extern_c int C_fread_int(FILE * L1_file)
{
TRACE_PUSH("C_fread_int"); MM_ENTER;
{
int L_Tmp0;
{
int L2_1_val;
L2_1_val = 0;
fread((char *)&(L2_1_val), sizeof(int), 1, (FILE *)(L1_file));
if (little_endian_p) C_reverse_n(&(L2_1_val), sizeof(int), 1);
L_Tmp0 = L2_1_val;
}
TRACE_POP("C_fread_int");
MM_EXIT; return L_Tmp0;
}
}
/*
* FUNCTION ftell
*/
extern_c double C_ftell(FILE * L1_file)
{
TRACE_PUSH("C_ftell"); MM_ENTER;
{
double L_Tmp0;
{
double L2_1_result;
L2_1_result = 0;
#ifdef HAVE_FTELLO
(L2_1_result) = (double)ftello((FILE *)(L1_file));
#else
(L2_1_result) = (double)ftell((FILE *)(L1_file));
#endif
L_Tmp0 = L2_1_result;
}
TRACE_POP("C_ftell");
MM_EXIT; return L_Tmp0;
}
}
/*
* FUNCTION file-size
*/
extern_c int C_file_size(char* L1_fname)
{
TRACE_PUSH("C_file_size"); MM_ENTER;
{
int L_Tmp0;
{
int L2_1_ans;
L2_1_ans = -1;
{
struct stat buf;
if (stat((L1_fname), &buf)>=0)
if (S_ISREG(buf.st_mode))
(L2_1_ans) = buf.st_size;
}
L_Tmp0 = L2_1_ans;
}
TRACE_POP("C_file_size");
MM_EXIT; return L_Tmp0;
}
}
/*
* FUNCTION skip-comments
*/
extern_c bool C_skip_comments(unsigned char L1_start,FILE * L1_f)
{
TRACE_PUSH("C_skip_comments"); MM_ENTER;
{
if (!(L1_f)) {
lush_error("file is not opened");
}
{
FILE *ff = (L1_f);
int c;
for ( ;;) {
c = getc(ff);
while (c==' ' || c=='\n' || c=='\t' || c=='\r') c = getc(ff);
if (c!=(L1_start)) break;
while (c != '\n') c = getc(ff);
}
ungetc(c,ff) ;
}
TRACE_POP("C_skip_comments");
MM_EXIT; return 0;
}
}
/*
* FUNCTION fgets
*/
extern_c char* C_fgets(FILE * L1_fp,int L1_maxsize)
{
TRACE_PUSH("C_fgets"); MM_ENTER;
{
char* L_Tmp0;
{
char* L2_1_result;
char *L2_0_str;
Mstr_alloc(L2_0_str, 0+1);
strcpy((char*)(L2_0_str),"");
L2_1_result = L2_0_str;
{
char buffer[(L1_maxsize)];
fgets(buffer,(L1_maxsize),(L1_fp));
(L2_1_result) = mm_strdup(buffer);
}
L_Tmp0 = L2_1_result;
}
TRACE_POP("C_fgets");
MM_EXIT; return L_Tmp0;
}
}
/*
* FUNCTION fscan-str
*/
extern_c char* C_fscan_str(FILE * L1_fp)
{
TRACE_PUSH("C_fscan_str"); MM_ENTER;
{
char* L_Tmp0;
{
char* L2_1_result;
char *L2_0_str;
Mstr_alloc(L2_0_str, 0+1);
strcpy((char*)(L2_0_str),"");
L2_1_result = L2_0_str;
{
char buffer[1024];
int s = fscanf((L1_fp),"%s",buffer);
if (s < 1) { buffer[0]=0; }
(L2_1_result) = mm_strdup(buffer);
}
L_Tmp0 = L2_1_result;
}
TRACE_POP("C_fscan_str");
MM_EXIT; return L_Tmp0;
}
}
/*
* FUNCTION pcloud-xyz2rc
*/
extern_c struct idx *
C_pcloud_xyz2rc (struct idx *L1_xyz, struct idx *L1_rc, struct idx *L1_pr,
struct idx *L1_pt, struct idx *L1_pxyz2rc,
struct idx *L2_2_matrix, struct srg *L2_2_srg)
{
TRACE_PUSH ("C_pcloud_xyz2rc");
{
struct idx *L_Tmp0;
Midx_declare (L1_1_0_matrix, 2);
Msrg_declare (L1_2_0_srg);
Midx_init (L1_1_0_matrix, 2);
Msrg_init (L1_2_0_srg, ST_F);
(L1_1_0_matrix)->srg = L1_2_0_srg;
Midx_init_dim2 (L1_1_0_matrix, (L1_xyz)->dim[0], 2);
RTERR_DIM (L1_1_0_matrix->dim[0] <= 0);
RTERR_DIM (L1_1_0_matrix->dim[1] <= 0);
Midx_maclear (L1_1_0_matrix, flt);
L1_rc = L1_1_0_matrix;
{
Midx_declare (L3_3_1_matrix, 2);
Msrg_declare (L3_4_1_srg);
struct idx *L2_5_xyz2;
struct idx *L2_6_rcxyz;
Midx_init (L3_3_1_matrix, 2);
Msrg_init (L3_4_1_srg, ST_F);
{
(L3_3_1_matrix)->srg = L3_4_1_srg;
Midx_init_dim2 (L3_3_1_matrix, (L1_xyz)->dim[0], (L1_xyz)->dim[1]);
RTERR_DIM (L3_3_1_matrix->dim[0] <= 0);
RTERR_DIM (L3_3_1_matrix->dim[1] <= 0);
check_main_maout (L1_xyz, L3_3_1_matrix);
Midx_m2copy (L1_xyz, L3_3_1_matrix, flt, flt);
L2_5_xyz2 = L3_3_1_matrix;
}
(L2_2_matrix)->srg = L2_2_srg;
Midx_init_dim2 (L2_2_matrix, (L1_xyz)->dim[0], 5);
RTERR_DIM (L2_2_matrix->dim[0] <= 0);
RTERR_DIM (L2_2_matrix->dim[1] <= 0);
Midx_maclear (L2_2_matrix, flt);
L2_6_rcxyz = L2_2_matrix;
{
RTERR_LOOPDIM ((L2_6_rcxyz)->dim[0] != (L1_rc)->dim[0]
|| (L2_6_rcxyz)->dim[0] != (L1_xyz)->dim[0]
|| (L2_6_rcxyz)->dim[0] != (L2_5_xyz2)->dim[0]);
Midx_begin_bloop4 (L3_xyz2, L2_5_xyz2, L3_xyz, L1_xyz, L3_rc, L1_rc,
L3_rcxyz, L2_6_rcxyz, flt)
{
RTERR_BOUND (0 >= (&L3_xyz2)->dim[0]);
RTERR_BOUND (0 >= (&L3_xyz)->dim[0]);
RTERR_BOUND (0 >= (L1_pr)->dim[0]);
RTERR_BOUND (0 >= (L1_pr)->dim[1]);
RTERR_BOUND (1 >= (&L3_xyz)->dim[0]);
RTERR_BOUND (1 >= (L1_pr)->dim[0]);
RTERR_BOUND (0 >= (L1_pr)->dim[1]);
RTERR_BOUND (2 >= (&L3_xyz)->dim[0]);
RTERR_BOUND (2 >= (L1_pr)->dim[0]);
RTERR_BOUND (0 >= (L1_pr)->dim[1]);
RTERR_BOUND (0 >= (L1_pt)->dim[0]);
IDX_PTR (&L3_xyz2, flt)[(&L3_xyz2)->mod[0] * ((int) 0)] =
((IDX_PTR (&L3_xyz, flt)[(&L3_xyz)->mod[0] * ((int) 0)] *
IDX_PTR (L1_pr,
flt)[(L1_pr)->mod[0] * ((int) 0) +
(L1_pr)->mod[1] * ((int) 0)]) + (IDX_PTR (&L3_xyz,
flt)[(&L3_xyz)->mod[0] * ((int) 1)] * IDX_PTR (L1_pr, flt)[(L1_pr)->mod[0] * ((int) 1) + (L1_pr)->mod[1] * ((int) 0)]) + (IDX_PTR (&L3_xyz, flt)[(&L3_xyz)->mod[0] * ((int) 2)] * IDX_PTR (L1_pr, flt)[(L1_pr)->mod[0] * ((int) 2) + (L1_pr)->mod[1] * ((int) 0)]) + IDX_PTR (L1_pt, flt)[(L1_pt)->mod[0] * ((int) 0)]);
RTERR_BOUND (1 >= (&L3_xyz2)->dim[0]);
RTERR_BOUND (0 >= (&L3_xyz)->dim[0]);
RTERR_BOUND (0 >= (L1_pr)->dim[0]);
RTERR_BOUND (1 >= (L1_pr)->dim[1]);
RTERR_BOUND (1 >= (&L3_xyz)->dim[0]);
RTERR_BOUND (1 >= (L1_pr)->dim[0]);
RTERR_BOUND (1 >= (L1_pr)->dim[1]);
RTERR_BOUND (2 >= (&L3_xyz)->dim[0]);
RTERR_BOUND (2 >= (L1_pr)->dim[0]);
RTERR_BOUND (1 >= (L1_pr)->dim[1]);
RTERR_BOUND (1 >= (L1_pt)->dim[0]);
IDX_PTR (&L3_xyz2, flt)[(&L3_xyz2)->mod[0] * ((int) 1)] =
((IDX_PTR (&L3_xyz, flt)[(&L3_xyz)->mod[0] * ((int) 0)] *
IDX_PTR (L1_pr,
flt)[(L1_pr)->mod[0] * ((int) 0) +
(L1_pr)->mod[1] * ((int) 1)]) + (IDX_PTR (&L3_xyz,
flt)[(&L3_xyz)->mod[0] * ((int) 1)] * IDX_PTR (L1_pr, flt)[(L1_pr)->mod[0] * ((int) 1) + (L1_pr)->mod[1] * ((int) 1)]) + (IDX_PTR (&L3_xyz, flt)[(&L3_xyz)->mod[0] * ((int) 2)] * IDX_PTR (L1_pr, flt)[(L1_pr)->mod[0] * ((int) 2) + (L1_pr)->mod[1] * ((int) 1)]) + IDX_PTR (L1_pt, flt)[(L1_pt)->mod[0] * ((int) 1)]);
RTERR_BOUND (2 >= (&L3_xyz2)->dim[0]);
RTERR_BOUND (0 >= (&L3_xyz)->dim[0]);
RTERR_BOUND (0 >= (L1_pr)->dim[0]);
RTERR_BOUND (2 >= (L1_pr)->dim[1]);
RTERR_BOUND (1 >= (&L3_xyz)->dim[0]);
RTERR_BOUND (1 >= (L1_pr)->dim[0]);
RTERR_BOUND (2 >= (L1_pr)->dim[1]);
RTERR_BOUND (2 >= (&L3_xyz)->dim[0]);
RTERR_BOUND (2 >= (L1_pr)->dim[0]);
RTERR_BOUND (2 >= (L1_pr)->dim[1]);
RTERR_BOUND (2 >= (L1_pt)->dim[0]);
IDX_PTR (&L3_xyz2, flt)[(&L3_xyz2)->mod[0] * ((int) 2)] =
((IDX_PTR (&L3_xyz, flt)[(&L3_xyz)->mod[0] * ((int) 0)] *
IDX_PTR (L1_pr,
flt)[(L1_pr)->mod[0] * ((int) 0) +
(L1_pr)->mod[1] * ((int) 2)]) + (IDX_PTR (&L3_xyz,
flt)[(&L3_xyz)->mod[0] * ((int) 1)] * IDX_PTR (L1_pr, flt)[(L1_pr)->mod[0] * ((int) 1) + (L1_pr)->mod[1] * ((int) 2)]) + (IDX_PTR (&L3_xyz, flt)[(&L3_xyz)->mod[0] * ((int) 2)] * IDX_PTR (L1_pr, flt)[(L1_pr)->mod[0] * ((int) 2) + (L1_pr)->mod[1] * ((int) 2)]) + IDX_PTR (L1_pt, flt)[(L1_pt)->mod[0] * ((int) 2)]);
RTERR_BOUND (1 >= (&L3_rc)->dim[0]);
RTERR_BOUND (0 >= (&L3_xyz2)->dim[0]);
RTERR_BOUND (0 >= (L1_pxyz2rc)->dim[0]);
RTERR_BOUND (2 >= (&L3_xyz2)->dim[0]);
RTERR_BOUND (2 >= (L1_pxyz2rc)->dim[0]);
IDX_PTR (&L3_rc, flt)[(&L3_rc)->mod[0] * ((int) 1)] =
(int) ((((IDX_PTR (&L3_xyz2, flt)[(&L3_xyz2)->mod[0] * ((int) 0)]
* IDX_PTR (L1_pxyz2rc,
flt)[(L1_pxyz2rc)->mod[0] * ((int) 0)]) /
(flt) IDX_PTR (&L3_xyz2,
flt)[(&L3_xyz2)->mod[0] * ((int) 2)]) +
IDX_PTR (L1_pxyz2rc,
flt)[(L1_pxyz2rc)->mod[0] * ((int) 2)]));
RTERR_BOUND (0 >= (&L3_rc)->dim[0]);
RTERR_BOUND (1 >= (&L3_xyz2)->dim[0]);
RTERR_BOUND (1 >= (L1_pxyz2rc)->dim[0]);
RTERR_BOUND (2 >= (&L3_xyz2)->dim[0]);
RTERR_BOUND (3 >= (L1_pxyz2rc)->dim[0]);
IDX_PTR (&L3_rc, flt)[(&L3_rc)->mod[0] * ((int) 0)] =
(int) ((((IDX_PTR (&L3_xyz2, flt)[(&L3_xyz2)->mod[0] * ((int) 1)]
* IDX_PTR (L1_pxyz2rc,
flt)[(L1_pxyz2rc)->mod[0] * ((int) 1)]) /
(flt) IDX_PTR (&L3_xyz2,
flt)[(&L3_xyz2)->mod[0] * ((int) 2)]) +
IDX_PTR (L1_pxyz2rc,
flt)[(L1_pxyz2rc)->mod[0] * ((int) 3)]));
RTERR_BOUND (0 >= (&L3_rcxyz)->dim[0]);
RTERR_BOUND (0 >= (&L3_rc)->dim[0]);
IDX_PTR (&L3_rcxyz, flt)[(&L3_rcxyz)->mod[0] * ((int) 0)] =
IDX_PTR (&L3_rc, flt)[(&L3_rc)->mod[0] * ((int) 0)];
RTERR_BOUND (1 >= (&L3_rcxyz)->dim[0]);
RTERR_BOUND (1 >= (&L3_rc)->dim[0]);
IDX_PTR (&L3_rcxyz, flt)[(&L3_rcxyz)->mod[0] * ((int) 1)] =
IDX_PTR (&L3_rc, flt)[(&L3_rc)->mod[0] * ((int) 1)];
RTERR_BOUND (2 >= (&L3_rcxyz)->dim[0]);
RTERR_BOUND (0 >= (&L3_xyz)->dim[0]);
IDX_PTR (&L3_rcxyz, flt)[(&L3_rcxyz)->mod[0] * ((int) 2)] =
IDX_PTR (&L3_xyz, flt)[(&L3_xyz)->mod[0] * ((int) 0)];
RTERR_BOUND (3 >= (&L3_rcxyz)->dim[0]);
RTERR_BOUND (1 >= (&L3_xyz)->dim[0]);
IDX_PTR (&L3_rcxyz, flt)[(&L3_rcxyz)->mod[0] * ((int) 3)] =
IDX_PTR (&L3_xyz, flt)[(&L3_xyz)->mod[0] * ((int) 1)];
RTERR_BOUND (4 >= (&L3_rcxyz)->dim[0]);
RTERR_BOUND (2 >= (&L3_xyz)->dim[0]);
IDX_PTR (&L3_rcxyz, flt)[(&L3_rcxyz)->mod[0] * ((int) 4)] =
IDX_PTR (&L3_xyz, flt)[(&L3_xyz)->mod[0] * ((int) 2)];
} Midx_end_bloop4 (L3_xyz2, L2_5_xyz2, L3_xyz, L1_xyz, L3_rc, L1_rc,
L3_rcxyz, L2_6_rcxyz, flt);
}
L_Tmp0 = L2_6_rcxyz;
Msrg_free (L3_4_1_srg);
}
Msrg_free (L1_2_0_srg);
TRACE_POP ("C_pcloud_xyz2rc");
return L_Tmp0;
}
