genconcatcol.c File Reference

#include "machine.h"
#include "genconcatcol.h"

Include dependency graph for genconcatcol.c:

Go to the source code of this file.

Defines
#define	COLCONC(Type)
Typedefs
typedef signed char	integer1
typedef short	integer2
Functions
int C2F()	genconcatcol (integer *typ, integer *x1, integer *m1, integer *n1, integer *x2, integer *m2, integer *n2, integer *xr)

---

Define Documentation

#define COLCONC

(

Type

)

Value:

{\
Type *X1;\
Type *X2;\
Type *XR;\
    X1=(Type *)x1;\
    --X1;\
    X2=(Type *)x2;\
    --X2;\
    XR=(Type *)xr;\
    --XR;\
    i1 = -(*m1);i2 = -(*m2);\
    ir1 = -m; ir2 = ir1 + (*m1);\
    for (j = 1; j <= *n1; ++j) {\
      i1 += *m1; i2 += *m2; \
      ir1 += m; ir2 += m; \
      for (i = 1; i <= *m1; ++i) XR[ir1 + i] = X1[i1 + i]; \
      for (i = 1; i <= *m2; ++i) XR[ir2 + i] = X2[i2 + i]; \
     }\
}

Definition at line 7 of file genconcatcol.c.

Referenced by genconcatcol().

---

Typedef Documentation

typedef signed char integer1

Definition at line 3 of file genconcatcol.c.

typedef short integer2

Definition at line 4 of file genconcatcol.c.

---

Function Documentation

int C2F() genconcatcol	(	integer *	typ,
		integer *	x1,
		integer *	m1,
		integer *	n1,
		integer *	x2,
		integer *	m2,
		integer *	n2,
		integer *	xr
	)

Definition at line 28 of file genconcatcol.c.

References COLCONC, i, i1, i2, j, m, and typ.

{
static integer i, j, i1, i2, ir1, ir2;
integer m;

m=(*m1)+(*m2);
  switch (*typ) {
  case 1:
    COLCONC(integer1);
    break;
  case 2:
    COLCONC(integer2);
    break;
  case 4:
    COLCONC(integer);
    break;
  case 11:
    COLCONC(unsigned char);
    break;
  case 12:
    COLCONC(unsigned short);
    break;
  case 14:
    COLCONC(unsigned int);
    break;
  }
  return 0;
}

---