Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
mpim-sw
cdo
Commits
7e29ea40
Commit
7e29ea40
authored
Sep 28, 2017
by
Uwe Schulzweida
Browse files
Removed #pragma omp simd.
parent
1a2e54a4
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/after_fctrans.cc
View file @
7e29ea40
#include
<stdio.h>
#include
<stdlib.h>
#include
<math.h>
#if defined(HAVE_CONFIG_H)
#ifdef HAVE_CONFIG_H
#include
"config.h"
#endif
#ifndef _DMEMORY_H
#
include "dmemory.h"
#include
"dmemory.h"
#endif
...
...
@@ -165,9 +161,6 @@ int rpassc(double *a, double *b, double *c, double *d, double *trigs,
j
=
jbase
;
#if defined(SX)
#pragma vdir nodep
#endif
#if defined(HAVE_OPENMP4)
#pragma omp simd
#endif
for
(
ijk
=
0
;
ijk
<
lot
;
++
ijk
)
{
...
...
@@ -200,9 +193,6 @@ int rpassc(double *a, double *b, double *c, double *d, double *trigs,
j
=
jbase
;
#if defined(SX)
#pragma vdir nodep
#endif
#if defined(HAVE_OPENMP4)
#pragma omp simd
#endif
for
(
ijk
=
0
;
ijk
<
lot
;
++
ijk
)
{
...
...
@@ -233,9 +223,6 @@ int rpassc(double *a, double *b, double *c, double *d, double *trigs,
j
=
jbase
;
#if defined(SX)
#pragma vdir nodep
#endif
#if defined(HAVE_OPENMP4)
#pragma omp simd
#endif
for
(
ijk
=
0
;
ijk
<
lot
;
++
ijk
)
{
...
...
@@ -256,9 +243,6 @@ int rpassc(double *a, double *b, double *c, double *d, double *trigs,
j
=
jbase
;
#if defined(SX)
#pragma vdir nodep
#endif
#if defined(HAVE_OPENMP4)
#pragma omp simd
#endif
for
(
ijk
=
0
;
ijk
<
lot
;
++
ijk
)
{
...
...
@@ -293,9 +277,6 @@ int rpassc(double *a, double *b, double *c, double *d, double *trigs,
j
=
jbase
;
#if defined(SX)
#pragma vdir nodep
#endif
#if defined(HAVE_OPENMP4)
#pragma omp simd
#endif
for
(
ijk
=
0
;
ijk
<
lot
;
++
ijk
)
{
...
...
@@ -335,9 +316,6 @@ int rpassc(double *a, double *b, double *c, double *d, double *trigs,
j
=
jbase
;
#if defined(SX)
#pragma vdir nodep
#endif
#if defined(HAVE_OPENMP4)
#pragma omp simd
#endif
for
(
ijk
=
0
;
ijk
<
lot
;
++
ijk
)
{
...
...
@@ -378,9 +356,6 @@ int rpassc(double *a, double *b, double *c, double *d, double *trigs,
j
=
jbase
;
#if defined(SX)
#pragma vdir nodep
#endif
#if defined(HAVE_OPENMP4)
#pragma omp simd
#endif
for
(
ijk
=
0
;
ijk
<
lot
;
++
ijk
)
{
...
...
@@ -405,9 +380,6 @@ int rpassc(double *a, double *b, double *c, double *d, double *trigs,
j
=
jbase
;
#if defined(SX)
#pragma vdir nodep
#endif
#if defined(HAVE_OPENMP4)
#pragma omp simd
#endif
for
(
ijk
=
0
;
ijk
<
lot
;
++
ijk
)
{
...
...
@@ -447,9 +419,6 @@ int rpassc(double *a, double *b, double *c, double *d, double *trigs,
j
=
jbase
;
#if defined(SX)
#pragma vdir nodep
#endif
#if defined(HAVE_OPENMP4)
#pragma omp simd
#endif
for
(
ijk
=
0
;
ijk
<
lot
;
++
ijk
)
{
...
...
@@ -494,9 +463,6 @@ int rpassc(double *a, double *b, double *c, double *d, double *trigs,
j
=
jbase
;
#if defined(SX)
#pragma vdir nodep
#endif
#if defined(HAVE_OPENMP4)
#pragma omp simd
#endif
for
(
ijk
=
0
;
ijk
<
lot
;
++
ijk
)
{
...
...
@@ -546,9 +512,6 @@ int rpassc(double *a, double *b, double *c, double *d, double *trigs,
j
=
jbase
;
#if defined(SX)
#pragma vdir nodep
#endif
#if defined(HAVE_OPENMP4)
#pragma omp simd
#endif
for
(
ijk
=
0
;
ijk
<
lot
;
++
ijk
)
{
...
...
@@ -575,9 +538,6 @@ int rpassc(double *a, double *b, double *c, double *d, double *trigs,
j
=
jbase
;
#if defined(SX)
#pragma vdir nodep
#endif
#if defined(HAVE_OPENMP4)
#pragma omp simd
#endif
for
(
ijk
=
0
;
ijk
<
lot
;
++
ijk
)
{
...
...
@@ -618,9 +578,6 @@ int rpassc(double *a, double *b, double *c, double *d, double *trigs,
j
=
jbase
;
#if defined(SX)
#pragma vdir nodep
#endif
#if defined(HAVE_OPENMP4)
#pragma omp simd
#endif
for
(
ijk
=
0
;
ijk
<
lot
;
++
ijk
)
{
...
...
@@ -678,9 +635,6 @@ int rpassc(double *a, double *b, double *c, double *d, double *trigs,
j
=
jbase
;
#if defined(SX)
#pragma vdir nodep
#endif
#if defined(HAVE_OPENMP4)
#pragma omp simd
#endif
for
(
ijk
=
0
;
ijk
<
lot
;
++
ijk
)
{
...
...
@@ -745,9 +699,6 @@ int rpassc(double *a, double *b, double *c, double *d, double *trigs,
j
=
jbase
;
#if defined(SX)
#pragma vdir nodep
#endif
#if defined(HAVE_OPENMP4)
#pragma omp simd
#endif
for
(
ijk
=
0
;
ijk
<
lot
;
++
ijk
)
{
...
...
@@ -783,9 +734,6 @@ int rpassc(double *a, double *b, double *c, double *d, double *trigs,
j
=
jbase
;
#if defined(SX)
#pragma vdir nodep
#endif
#if defined(HAVE_OPENMP4)
#pragma omp simd
#endif
for
(
ijk
=
0
;
ijk
<
lot
;
++
ijk
)
{
...
...
@@ -835,9 +783,6 @@ int rpassc(double *a, double *b, double *c, double *d, double *trigs,
j
=
jbase
;
#if defined(SX)
#pragma vdir nodep
#endif
#if defined(HAVE_OPENMP4)
#pragma omp simd
#endif
for
(
ijk
=
0
;
ijk
<
lot
;
++
ijk
)
{
...
...
@@ -897,9 +842,6 @@ int rpassc(double *a, double *b, double *c, double *d, double *trigs,
j
=
jbase
;
#if defined(SX)
#pragma vdir nodep
#endif
#if defined(HAVE_OPENMP4)
#pragma omp simd
#endif
for
(
ijk
=
0
;
ijk
<
lot
;
++
ijk
)
{
...
...
@@ -960,9 +902,6 @@ int rpassc(double *a, double *b, double *c, double *d, double *trigs,
j
=
jbase
;
#if defined(SX)
#pragma vdir nodep
#endif
#if defined(HAVE_OPENMP4)
#pragma omp simd
#endif
for
(
ijk
=
0
;
ijk
<
lot
;
++
ijk
)
{
...
...
@@ -991,9 +930,6 @@ int rpassc(double *a, double *b, double *c, double *d, double *trigs,
j
=
jbase
;
#if defined(SX)
#pragma vdir nodep
#endif
#if defined(HAVE_OPENMP4)
#pragma omp simd
#endif
for
(
ijk
=
0
;
ijk
<
lot
;
++
ijk
)
{
...
...
@@ -1053,9 +989,6 @@ int rpassc(double *a, double *b, double *c, double *d, double *trigs,
j
=
jbase
;
#if defined(SX)
#pragma vdir nodep
#endif
#if defined(HAVE_OPENMP4)
#pragma omp simd
#endif
for
(
ijk
=
0
;
ijk
<
lot
;
++
ijk
)
{
...
...
@@ -1159,9 +1092,6 @@ int qpassc(double *a, double *b, double *c, double *d, double *trigs,
j
=
jbase
;
#if defined(SX)
#pragma vdir nodep
#endif
#if defined(HAVE_OPENMP4)
#pragma omp simd
#endif
for
(
ijk
=
0
;
ijk
<
lot
;
++
ijk
)
{
...
...
@@ -1193,9 +1123,6 @@ int qpassc(double *a, double *b, double *c, double *d, double *trigs,
j
=
jbase
;
#if defined(SX)
#pragma vdir nodep
#endif
#if defined(HAVE_OPENMP4)
#pragma omp simd
#endif
for
(
ijk
=
0
;
ijk
<
lot
;
++
ijk
)
{
...
...
@@ -1223,9 +1150,6 @@ int qpassc(double *a, double *b, double *c, double *d, double *trigs,
j
=
jbase
;
#if defined(SX)
#pragma vdir nodep
#endif
#if defined(HAVE_OPENMP4)
#pragma omp simd
#endif
for
(
ijk
=
0
;
ijk
<
lot
;
++
ijk
)
{
...
...
@@ -1247,9 +1171,6 @@ int qpassc(double *a, double *b, double *c, double *d, double *trigs,
j
=
jbase
;
#if defined(SX)
#pragma vdir nodep
#endif
#if defined(HAVE_OPENMP4)
#pragma omp simd
#endif
for
(
ijk
=
0
;
ijk
<
lot
;
++
ijk
)
{
...
...
@@ -1283,9 +1204,6 @@ int qpassc(double *a, double *b, double *c, double *d, double *trigs,
j
=
jbase
;
#if defined(SX)
#pragma vdir nodep
#endif
#if defined(HAVE_OPENMP4)
#pragma omp simd
#endif
for
(
ijk
=
0
;
ijk
<
lot
;
++
ijk
)
{
...
...
@@ -1322,9 +1240,6 @@ int qpassc(double *a, double *b, double *c, double *d, double *trigs,
j
=
jbase
;
#if defined(SX)
#pragma vdir nodep
#endif
#if defined(HAVE_OPENMP4)
#pragma omp simd
#endif
for
(
ijk
=
0
;
ijk
<
lot
;
++
ijk
)
{
...
...
@@ -1366,9 +1281,6 @@ int qpassc(double *a, double *b, double *c, double *d, double *trigs,
j
=
jbase
;
#if defined(SX)
#pragma vdir nodep
#endif
#if defined(HAVE_OPENMP4)
#pragma omp simd
#endif
for
(
ijk
=
0
;
ijk
<
lot
;
++
ijk
)
{
...
...
@@ -1393,9 +1305,6 @@ int qpassc(double *a, double *b, double *c, double *d, double *trigs,
j
=
jbase
;
#if defined(SX)
#pragma vdir nodep
#endif
#if defined(HAVE_OPENMP4)
#pragma omp simd
#endif
for
(
ijk
=
0
;
ijk
<
lot
;
++
ijk
)
{
...
...
@@ -1433,9 +1342,6 @@ int qpassc(double *a, double *b, double *c, double *d, double *trigs,
j
=
jbase
;
#if defined(SX)
#pragma vdir nodep
#endif
#if defined(HAVE_OPENMP4)
#pragma omp simd
#endif
for
(
ijk
=
0
;
ijk
<
lot
;
++
ijk
)
{
...
...
@@ -1481,9 +1387,6 @@ int qpassc(double *a, double *b, double *c, double *d, double *trigs,
j
=
jbase
;
#if defined(SX)
#pragma vdir nodep
#endif
#if defined(HAVE_OPENMP4)
#pragma omp simd
#endif
for
(
ijk
=
0
;
ijk
<
lot
;
++
ijk
)
{
...
...
@@ -1531,9 +1434,6 @@ int qpassc(double *a, double *b, double *c, double *d, double *trigs,
j
=
jbase
;
#if defined(SX)
#pragma vdir nodep
#endif
#if defined(HAVE_OPENMP4)
#pragma omp simd
#endif
for
(
ijk
=
0
;
ijk
<
lot
;
++
ijk
)
{
...
...
@@ -1557,9 +1457,6 @@ int qpassc(double *a, double *b, double *c, double *d, double *trigs,
j
=
jbase
;
#if defined(SX)
#pragma vdir nodep
#endif
#if defined(HAVE_OPENMP4)
#pragma omp simd
#endif
for
(
ijk
=
0
;
ijk
<
lot
;
++
ijk
)
{
...
...
@@ -1604,9 +1501,6 @@ int qpassc(double *a, double *b, double *c, double *d, double *trigs,
j
=
jbase
;
#if defined(SX)
#pragma vdir nodep
#endif
#if defined(HAVE_OPENMP4)
#pragma omp simd
#endif
for
(
ijk
=
0
;
ijk
<
lot
;
++
ijk
)
{
...
...
@@ -1661,9 +1555,6 @@ int qpassc(double *a, double *b, double *c, double *d, double *trigs,
j
=
jbase
;
#if defined(SX)
#pragma vdir nodep
#endif
#if defined(HAVE_OPENMP4)
#pragma omp simd
#endif
for
(
ijk
=
0
;
ijk
<
lot
;
++
ijk
)
{
...
...
@@ -1732,9 +1623,6 @@ int qpassc(double *a, double *b, double *c, double *d, double *trigs,
j
=
jbase
;
#if defined(SX)
#pragma vdir nodep
#endif
#if defined(HAVE_OPENMP4)
#pragma omp simd
#endif
for
(
ijk
=
0
;
ijk
<
lot
;
++
ijk
)
{
...
...
@@ -1772,9 +1660,6 @@ int qpassc(double *a, double *b, double *c, double *d, double *trigs,
j
=
jbase
;
#if defined(SX)
#pragma vdir nodep
#endif
#if defined(HAVE_OPENMP4)
#pragma omp simd
#endif
for
(
ijk
=
0
;
ijk
<
lot
;
++
ijk
)
{
...
...
@@ -1833,9 +1718,6 @@ int qpassc(double *a, double *b, double *c, double *d, double *trigs,
j
=
jbase
;
#if defined(SX)
#pragma vdir nodep
#endif
#if defined(HAVE_OPENMP4)
#pragma omp simd
#endif
for
(
ijk
=
0
;
ijk
<
lot
;
++
ijk
)
{
...
...
@@ -1896,9 +1778,6 @@ int qpassc(double *a, double *b, double *c, double *d, double *trigs,
j
=
jbase
;
#if defined(SX)
#pragma vdir nodep
#endif
#if defined(HAVE_OPENMP4)
#pragma omp simd
#endif
for
(
ijk
=
0
;
ijk
<
lot
;
++
ijk
)
{
...
...
@@ -1969,9 +1848,6 @@ int qpassc(double *a, double *b, double *c, double *d, double *trigs,
j
=
jbase
;
#if defined(SX)
#pragma vdir nodep
#endif
#if defined(HAVE_OPENMP4)
#pragma omp simd
#endif
for
(
ijk
=
0
;
ijk
<
lot
;
++
ijk
)
{
...
...
@@ -2003,9 +1879,6 @@ int qpassc(double *a, double *b, double *c, double *d, double *trigs,
j
=
jbase
;
#if defined(SX)
#pragma vdir nodep
#endif
#if defined(HAVE_OPENMP4)
#pragma omp simd
#endif
for
(
ijk
=
0
;
ijk
<
lot
;
++
ijk
)
{
...
...
@@ -2066,9 +1939,6 @@ int qpassc(double *a, double *b, double *c, double *d, double *trigs,
j
=
jbase
;
#if defined(SX)
#pragma vdir nodep
#endif
#if defined(HAVE_OPENMP4)
#pragma omp simd
#endif
for
(
ijk
=
0
;
ijk
<
lot
;
++
ijk
)
{
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment