Skip to content
Snippets Groups Projects
Commit 5b44616a authored by Uwe Schulzweida's avatar Uwe Schulzweida
Browse files

after_sptrans.c: moved called to jspleg1()

parent e7e27d5b
No related branches found
No related tags found
No related merge requests found
......@@ -362,9 +362,10 @@ void after_legini(int ntr, int nlat, double *restrict poli, double *restrict pol
for ( jgl = 0; jgl < nlat/2; jgl++ )
{
jspleg1(pnm, gmu[jgl], ntr, work);
double zgwt = gwt[jgl];
jspleg1(pnm, gmu[jgl], ntr, work);
latn = jgl;
isp = 0;
for ( jm = 0; jm < waves; jm++ )
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment