/* f2ctmp_mysubs.f -- translated by f2c (version of 21 October 1993  13:46:10).
   You must link the resulting object file with the libraries:
	-lf2c -lm   (in that order)
*/

#include "f2c.h"

/* cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc */
/*	Everything has to be double precision */
/* cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc */
doublereal myfunc_(doublereal *x, doublereal *y)
{
	/* System generated locals */
	doublereal ret_val;

	ret_val = *x + *y;
	return ret_val;
} /* myfunc_ */

/* ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc */
/*	 Try with a vector */
/* ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc */
/* Subroutine */ int mysub_(doublereal *vec, doublereal *dn)
{
	/* System generated locals */
	integer i__1;

	/* Builtin functions */
	double sin(doublereal);

	/* Local variables */
	static integer i, top;
	extern real dreal_(integer *);

	/* Parameter adjustments */
	--vec;

	/* Function Body */
	top = (integer) (*dn);
	i__1 = top;
	for (i = 1; i <= i__1; ++i) {
	vec[i] = dreal_(&i) + sin(dreal_(&i));
/* L12: */
	}
	return 0;
} /* mysub_ */

