1 #include "splines/oskar_dierckx_fprota.h"
2 
3 #ifdef __cplusplus
4 extern "C" {
5 #endif
6 
oskar_dierckx_fprota(double cos_,double sin_,double * a,double * b)7 void oskar_dierckx_fprota(double cos_, double sin_, double *a, double *b)
8 {
9     double stor1 = 0.0, stor2 = 0.0;
10 
11     stor1 = *a;
12     stor2 = *b;
13     *b = cos_ * stor2 + sin_ * stor1;
14     *a = cos_ * stor1 - sin_ * stor2;
15 }
16 
17 #ifdef __cplusplus
18 }
19 #endif
20