ex11c.c File Reference

#include "../../routines/machine.h"

Include dependency graph for ex11c.c:

Go to the source code of this file.

Functions
int F2C()	ext11c (double *ar, double *ai, int *itra, double *br, double *bi, int *itrb, int *m, int *n)

---

Function Documentation

int F2C() ext11c	(	double *	ar,
		double*	ai,
		int*	itra,
		double *	br,
		double*	bi,
		int*	itrb,
		int*	m,
		int *	n
	)

Definition at line 12 of file ex11c.c.

References ai, ar, bi, br, and n.

{   
  int k;
  for (k = 0; k < *n*(*m); ++k) 
      {
        if ( *itra == 1) 
          br[k] = ai[k];
        else 
          br[k] = 0.0;
        bi[k] = ar[k];
      }
  *itrb=1;
  return(0);
}

---