genmcopy.c File Reference

#include "machine.h"

Include dependency graph for genmcopy.c:

Go to the source code of this file.

Defines
#define	MCOPY(Type)
Typedefs
typedef signed char	integer1
typedef short	integer2
Functions
int C2F()	genmcopy (integer *typ, int *a, integer *na, int *b, integer *nb, integer *m, integer *n)

---

Define Documentation

#define MCOPY

(

Type

)

Value:

{\
Type *A;\
Type *B;\
    A=(Type *)a;\
    --A;\
    B=(Type *)b;\
    --B;\
    if (*na == *m && *nb == *m) {\
      mn = (*m) * (*n);\
      for (i = 1; i <= mn; ++i) B[i] = A[i];\
    }\
    else {\
    ia = -(*na);ib = -(*nb); \
    for (j = 1; j <= *n; ++j) {\
      ia += *na;ib += *nb;\
      for (i = 1; i <= *m; ++i) B[ib + i] = A[ia + i];\
    }\
    }\
}

Definition at line 6 of file genmcopy.c.

---

Typedef Documentation

typedef signed char integer1

Definition at line 2 of file genmcopy.c.

typedef short integer2

Definition at line 3 of file genmcopy.c.

---

Function Documentation

int C2F() genmcopy	(	integer *	typ,
		int *	a,
		integer *	na,
		int *	b,
		integer *	nb,
		integer *	m,
		integer *	n
	)

Definition at line 25 of file genmcopy.c.

References i, ia, ib, j, MCOPY, and typ.

{
  static integer i, j, ia, ib, mn;
  switch (*typ) {
  case 1:
    MCOPY(integer1);
    break;
  case 2:
    MCOPY(integer2);
    break;
  case 4:
    MCOPY(integer);
    break;
  case 11:
    MCOPY(unsigned char);
    break;
  case 12:
    MCOPY(unsigned short);
    break;
  case 14:
    MCOPY(unsigned int);
    break;
  }
  return 0;
}

---