Actual source code: adintr_cos.c
1: /*
2: macro expansion:
3: function_driver -> adintr_cos
4: exception number -> ADINTR_COS
5: exceptional code ->
7: */
9: #include <stdarg.h>
10: #include "adintrinsics.h"
11: #include "knr-compat.h"
12: #if defined(__cplusplus)
14: #endif
16: /* #include "report-once.h" */
17: void reportonce_accumulate Proto((int,int,int));
20: void
21: adintr_cos (int deriv_order, int file_number, int line_number,
22: double*fx,...)
23: {
24: /* Hack to make assignments to (*fxx) et alia OK, regardless */
25: double scratch;
26: double *fxx = &scratch;
28: const int exception = ADINTR_COS;
30: va_list argptr;
31: va_start(argptr,fx);
33: if (deriv_order == 2)
34: {
35: fxx = va_arg(argptr, double *);
36: }
38: /* Here is where exceptional partials should be set. */
39: *fx = ADIntr_Partials[ADINTR_COS][ADINTR_FX];
40: *fxx = ADIntr_Partials[ADINTR_COS][ADINTR_FXX];
42: if (ADIntr_Mode == ADINTR_REPORTONCE)
43: {
44: reportonce_accumulate(file_number, line_number, exception);
45: }
46:
47: va_end(argptr);
48: }
49: #if defined(__cplusplus)
50: }
51: #endif