32 lines
862 B
C
32 lines
862 B
C
#include <stdlib.h>
|
|
#include <stdio.h>
|
|
#include <math.h>
|
|
#include <string.h>
|
|
|
|
#define Calloc(n,t) (t *)calloc((unsigned)(n),sizeof(t))
|
|
#define Free(p) free((char *)(p))
|
|
|
|
/* the mapping from f77 to C intermediate code -- may be machine dependent
|
|
* the first definition satisfies lint's narrowminded preprocessing & should
|
|
* stay the same for all implementations. The __STDC__ definition is for
|
|
* ANSI standard conforming C compilers. The #else definition should
|
|
* generate the version of the fortran subroutine & common block names x
|
|
* handed to the local loader; e.g., "x_" in system V, Berkeley & 9th edition
|
|
*/
|
|
|
|
#ifdef lint
|
|
#define F77_SUB(x) x
|
|
#define F77_COM(x) x
|
|
#else
|
|
#ifdef __STDC__
|
|
#define F77_SUB(x) x##_
|
|
#define F77_COM(x) x##_
|
|
#else
|
|
#define F77_SUB(x) x/**/_
|
|
#define F77_COM(x) x/**/_
|
|
#endif
|
|
#endif
|
|
|
|
#define NULL_ENTRY ((int *)NULL)
|
|
|