ex12c.c File Reference

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

Include dependency graph for ex12c.c:

Go to the source code of this file.

Data Structures
struct	array
Typedefs
typedef array	Array
Functions
C2F()	ccalc12 (Array **a, int *m, int *n, int *err)
C2F()	ccalc12f (int *n, Array **ip, double *op)

---

Typedef Documentation

typedef struct array Array

---

Function Documentation

C2F() ccalc12	(	Array **	a,
		int *	m,
		int*	n,
		int*	err
	)

Definition at line 18 of file ex12c.c.

References a, err, i, m, malloc(), n, and sciprint().

{
  int i;
  *a = ( Array *) malloc( sizeof(Array));
  if ( *a == (Array *) 0) 
    {
      *err=1;
      sciprint("No more space\r\n");
    }
  *m = (*a)->m = 1;
  *n = (*a)->n = 10;
  (*a)->val = (double *)  malloc( (unsigned) (*m)*(*n) *sizeof(double));
  if ( (*a)->val  == (double *) 0 ) 
    {
      *err=1;
      sciprint("No more space\r\n");
    }
  *err=0;
  for ( i= 0 ; i < (*m)*(*n) ; i++) (*a)->val[i] = i ;
}

Here is the call graph for this function:

C2F() ccalc12f	(	int *	n,
		Array **	ip,
		double *	op
	)

Definition at line 41 of file ex12c.c.

References free(), i, ip, n, and op.

{
  int i;
  if ( *n > 0 ) {
    for (i = 0; i < *n; i++)
      op[i]= (*ip)->val[i];
    free((char *)(*ip)->val);
    free((char *)(*ip));
  }
}

Here is the call graph for this function:

---