Commit 24ef129e authored by Thomas Jahns's avatar Thomas Jahns 🤸
Browse files

Add missing restrict declarations.

parent a2f489c3
...@@ -109,7 +109,7 @@ void gawl(double *pfn, double *pl, double *pw, int kn) ...@@ -109,7 +109,7 @@ void gawl(double *pfn, double *pl, double *pw, int kn)
} }
static static
void gauaw(int kn, double *pl, double *pw) void gauaw(int kn, double *restrict pl, double *restrict pw)
{ {
/* /*
* 1.0 Initialize Fourier coefficients for ordinary Legendre polynomials * 1.0 Initialize Fourier coefficients for ordinary Legendre polynomials
...@@ -291,7 +291,7 @@ void gauaw_old(double *pa, double *pw, int nlat) ...@@ -291,7 +291,7 @@ void gauaw_old(double *pa, double *pw, int nlat)
} }
#endif #endif
void gaussaw(double *pa, double *pw, int nlat) void gaussaw(double *restrict pa, double *restrict pw, int nlat)
{ {
//gauaw_old(pa, pw, nlat); //gauaw_old(pa, pw, nlat);
gauaw(nlat, pa, pw); gauaw(nlat, pa, pw);
......
#ifndef _GAUSSGRID_H #ifndef _GAUSSGRID_H
#define _GAUSSGRID_H #define _GAUSSGRID_H
void gaussaw(double *pa, double *pw, int nlat); void gaussaw(double *restrict pa, double *restrict pw, int nlat);
#endif /* _GAUSSGRID_H */ #endif /* _GAUSSGRID_H */
/* /*
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment