genconcatcol.h File Reference

This graph shows which files directly or indirectly include this file:

Go to the source code of this file.

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

---

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;
}

---