1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
|
/* 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_ */
|
