ef1asc_.c File Reference

#include "f2c.h"

Include dependency graph for ef1asc_.c:

Go to the source code of this file.

Defines
#define	M   ( (long) (sizeof(long) - 1) )
#define	EVEN(x)   ( ( (x)+ M) & (~M) )
Functions
void	s_copy (char *, char *, ftnlen, ftnlen)
int	ef1asc_ (ftnint *a, ftnlen *la, ftnint *b, ftnlen *lb)

---

Define Documentation

#define EVEN

(

x

)

( ( (x)+ M) & (~M) )

Definition at line 10 of file ef1asc_.c.

Referenced by ef1asc_().

#define M   ( (long) (sizeof(long) - 1) )

Definition at line 9 of file ef1asc_.c.

Referenced by C2F(), createvarfrom(), data_value(), expr_out(), get_sci_bool_sparse(), GetDLLFilenameAtlas(), GetInfoCPUfromLine(), intdgeesx(), intdgesvd(), intdgetrf(), intdsyev(), intrcall(), intreadxls(), intzgeesx(), iocname(), mkpower(), mktmpn(), newentry(), oneof_stg(), opconv_fudge(), out_addr(), out_call(), p1_addr(), putcx1(), putio(), putop(), randmt(), set_externs(), wr_equiv_init(), write_namelists(), and yyparse().

---

Function Documentation

int ef1asc_	(	ftnint *	a,
		ftnlen *	la,
		ftnint *	b,
		ftnlen *	lb
	)

Definition at line 17 of file ef1asc_.c.

References EVEN, and s_copy().

{
s_copy( (char *)a, (char *)b, EVEN(*la), *lb );
return 0;       /* ignored return value */
}

Here is the call graph for this function:

void s_copy	(	char *	,
		char *	,
		ftnlen	,
		ftnlen
	)

Referenced by ef1asc_().

Here is the caller graph for this function:

---