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)7void 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