genkron.c File Reference

#include "machine.h"

Include dependency graph for genkron.c:

Go to the source code of this file.

Defines
#define	KRON(Type)
Typedefs
typedef signed char	integer1
typedef short	integer2
Functions
int C2F()	genkron (integer *typ, int *dx, integer *incx, integer *mx, integer *nx, int *dy, integer *incy, integer *my, integer *ny, int *dr, integer *incr)

---

Define Documentation

#define KRON

(

Type

)

Value:

{\
Type *DX;\
Type *DY;\
Type *DR;\
    DX=(Type *)dx;\
    --DX;\
    DY=(Type *)dy;\
    --DY;\
    DR=(Type *)dr;\
    --DR;\
    kx1 = 1 - ix;\
    kk1 = -*ny;\
    for (jx = 1; jx <= *nx; ++jx) {\
      ky = 1;\
      kx1 = kx1 + ix;\
      kk1 = kk1 + *ny;\
      for (jy = 1; jy <= *ny; ++jy){\
        kx = kx1;\
        kk = 1 + (jy - 1 + kk1) * ir;\
        for (i = 1; i <= *mx; ++i){\
          for (l = 0; l < *my; ++l)\
               DR[kk + l] = DY[ky + l] * DX[kx];\
             kk = kk + *my;\
             kx = kx + 1;}\
           ky = ky + iy;}}\
}

Definition at line 6 of file genkron.c.

Referenced by genkron().

---

Typedef Documentation

typedef signed char integer1

Definition at line 2 of file genkron.c.

typedef short integer2

Definition at line 3 of file genkron.c.

---

Function Documentation

int C2F() genkron	(	integer *	typ,
		int *	dx,
		integer *	incx,
		integer *	mx,
		integer *	nx,
		int *	dy,
		integer *	incy,
		integer *	my,
		integer *	ny,
		int *	dr,
		integer *	incr
	)

Definition at line 34 of file genkron.c.

References i, incx, incy, ir, ix, KRON, l, and typ.

{
  static integer i, ix, iy, ir, jx, jy, l, kk1, kx1, kk, kx, ky;
  ix = *incx;
  iy = *incy;
  ir = *incr;

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

---