117     for( int l = 0; l < N; ++l ) {  in calc_serial()  local
118         *pi += l;  in calc_serial()
119         if( l%2 )  in calc_serial()
120           *px *= 1.0 / (l + 1);  in calc_serial()
122           *px *= (l + 1);  in calc_serial()
124     for( int l = 0; l < N; ++l ) {  in calc_serial()  local
125         *pj += l;  in calc_serial()
126         *pk -= l;  in calc_serial()
127         *py += (double)l;  in calc_serial()
128         if( l%2 )  in calc_serial()
129             *px *= 1.0 / (l + 1);  in calc_serial()
131             *px *= (l + 1);  in calc_serial()
133         *pi -= l;  in calc_serial()
134         *pk -= l;  in calc_serial()
135         *py += (double)l;  in calc_serial()
137         *pj += l;  in calc_serial()
138         if( l%2 )  in calc_serial()
139             *px *= 1.0 / (l + 1);  in calc_serial()
141             *px *= (l + 1);  in calc_serial()
143     for( int l = 0; l < N; ++l ) {  in calc_serial()  local
144         *pj += l;  in calc_serial()
203         for( int l = 0; l < N; l += 2 ) {  in main()  local
206           #pragma omp task firstprivate(l) //in_reduction(+:i) in_reduction(*:x)  in main()
215             *p_ip += l;  in main()
216             *p_xp *= (l + 1);  in main()
218             *p_ip += l + 1;  in main()
219             *p_xp *= 1.0 / (l + 2);  in main()
248           for( int l = 0; l < N; l += 2 ) {  in main()  local
249             #pragma omp task firstprivate(l)  in main()
262               *p_jp += l;  in main()
263               *p_kp -= l;  in main()
264               *p_yp += (double)l;  in main()
265               *p_xp *= (l + 1);  in main()
267               *p_jp += l + 1;  in main()
268               *p_kp -= l + 1;  in main()
269               *p_yp += (double)(l + 1);  in main()
270               *p_xp *= 1.0 / (l + 2);  in main()
309             #pragma omp task firstprivate(l)  in main()
321               *p_ip -= l;  in main()
322               *p_kp -= l;  in main()
323               *p_yp += (double)l;  in main()
325               *p_ip -= l + 1;  in main()
326               *p_kp -= l + 1;  in main()
327               *p_yp += (double)(l + 1);  in main()
330             #pragma omp task firstprivate(l)  in main()
339               *p_jp += l;  in main()
340               *p_xp *= (l + 1);  in main()
342               *p_jp += l + 1;  in main()
343               *p_xp *= 1.0 / (l + 2);  in main()
349         for( int l = 0; l < N; l += 2 ) {  in main()  local
350           #pragma omp task firstprivate(l) // in_reduction(+:j)  in main()
356             *p_jp += l;  in main()
357             *p_jp += l + 1;  in main()