genmdiag.c File Reference

#include "machine.h"
#include "genmdiag.h"

Include dependency graph for genmdiag.c:

Go to the source code of this file.

Defines
#define	Min(x, y)   (((x)<(y))?(x):(y))
#define	Max(x, y)   (((x)>(y))?(x):(y))
#define	MDIAG(Type)
Typedefs
typedef signed char	integer1
typedef short	integer2
Functions
int C2F()	genmdiag (integer *typ, integer *m, integer *n, integer *k, int *dx, int *dy)

---

Define Documentation

#define Max	(	x,
		y		)	(((x)>(y))?(x):(y))

Definition at line 7 of file genmdiag.c.

#define MDIAG

(

Type

)

Value:

{\
Type *DX;\
Type *DY;\
    DX=(Type *)dx;\
    --DX;\
    DY=(Type *)dy;\
    if (*k>=0)\
      ix=1+(*k)*(*m);\
    else\
      ix=1-(*k);\
    for (i = 0; i < mn; ++i) \
       DY[i] = DX[ix+i*(*m+1)];\
 }

Definition at line 9 of file genmdiag.c.

Referenced by genmdiag().

#define Min	(	x,
		y		)	(((x)<(y))?(x):(y))

Definition at line 6 of file genmdiag.c.

---

Typedef Documentation

typedef signed char integer1

Definition at line 3 of file genmdiag.c.

typedef short integer2

Definition at line 4 of file genmdiag.c.

---

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

---