genmdiag.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()	genmdiag (integer *typ, integer *m, integer *n, integer *k, int *dx, int *dy)

---

Function Documentation

int C2F() genmdiag	(	integer *	typ,
		integer *	m,
		integer *	n,
		integer *	k,
		int *	dx,
		int *	dy
	)

Definition at line 24 of file genmdiag.c.

References i, ix, m, Max, MDIAG, Min, n, and typ.

{
  static integer i, ix, mn;

  if (*k >= 0) 
    mn=Max(0,Min(*m,*n-*k));
  else
    mn=Max(0,Min(*m+*k,*n));

  switch (*typ) {
  case 1:
    MDIAG(integer1);
    break;
  case 2:
    MDIAG(integer2);
    break;
  case 4:
    MDIAG(integer);
    break;
  case 11:
    MDIAG(unsigned char);
    break;
  case 12:
    MDIAG(unsigned short);
    break;
  case 14:
    MDIAG(unsigned int);
    break;
  }
  return 0;
}

---