Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
On Thursday, 7th July from 1 to 3 pm there will be a maintenance with a short downtime of GitLab.
Open sidebar
elpa
elpa
Commits
a81ffb0a
Unverified
Commit
a81ffb0a
authored
Apr 21, 2016
by
Andreas Marek
Browse files
Line truncation error in single-precision OpenMP case
parent
164937e6
Changes
2
Hide whitespace changes
Inline
Side-by-side
src/mod_compute_hh_trafo_complex.F90
View file @
a81ffb0a
...
...
@@ -604,7 +604,7 @@ module compute_hh_trafo_complex
ttt
=
mpi_wtime
()
do
j
=
ncols
,
1
,
-1
#ifdef WITH_OPENMP
call
single_hh_trafo_complex_sse_1hv_
double_
single
(
a
(
1
,
j
+
off
+
a_off
,
istripe
,
my_thread
),
&
call
single_hh_trafo_complex_sse_1hv_single
(
a
(
1
,
j
+
off
+
a_off
,
istripe
,
my_thread
),
&
bcast_buffer
(
1
,
j
+
off
),
nbw
,
nl
,
stripe_width
)
#else
call
single_hh_trafo_complex_sse_1hv_single
(
a
(
1
,
j
+
off
+
a_off
,
istripe
),
&
...
...
@@ -623,7 +623,7 @@ module compute_hh_trafo_complex
ttt
=
mpi_wtime
()
do
j
=
ncols
,
1
,
-1
#ifdef WITH_OPENMP
call
single_hh_trafo_complex_avx_avx2_1hv_
double_
single
(
a
(
1
,
j
+
off
+
a_off
,
istripe
,
my_thread
),
&
call
single_hh_trafo_complex_avx_avx2_1hv_single
(
a
(
1
,
j
+
off
+
a_off
,
istripe
,
my_thread
),
&
bcast_buffer
(
1
,
j
+
off
),
nbw
,
nl
,
stripe_width
)
#else
call
single_hh_trafo_complex_avx_avx2_1hv_single
(
a
(
1
,
j
+
off
+
a_off
,
istripe
),
&
...
...
src/mod_compute_hh_trafo_real.F90
View file @
a81ffb0a
...
...
@@ -983,7 +983,8 @@ module compute_hh_trafo_real
#endif
enddo
#ifdef WITH_OPENMP
if
(
jj
==
1
)
call
single_hh_trafo_real_cpu_openmp_single
(
a
(
1
:
stripe_width
,
1
+
off
+
a_off
:
1
+
off
+
a_off
+
nbw
-1
,
istripe
,
my_thread
),
&
if
(
jj
==
1
)
call
single_hh_trafo_real_cpu_openmp_single
(
a
(
1
:
stripe_width
,
1
+
off
+
a_off
:
1
+
off
+
a_off
+
nbw
-1
,
&
istripe
,
my_thread
),
&
bcast_buffer
(
1
:
nbw
,
off
+1
),
nbw
,
nl
,
stripe_width
)
#else
if
(
jj
==
1
)
call
single_hh_trafo_real_cpu_single
(
a
(
1
:
stripe_width
,
1
+
off
+
a_off
:
1
+
off
+
a_off
+
nbw
-1
,
istripe
),
&
...
...
@@ -1027,7 +1028,8 @@ module compute_hh_trafo_real
#endif
enddo
#ifdef WITH_OPENMP
if
(
jj
==
1
)
call
single_hh_trafo_real_cpu_openmp_single
(
a
(
1
:
stripe_width
,
1
+
off
+
a_off
:
1
+
off
+
a_off
+
nbw
-1
,
istripe
,
my_thread
),
&
if
(
jj
==
1
)
call
single_hh_trafo_real_cpu_openmp_single
(
a
(
1
:
stripe_width
,
1
+
off
+
a_off
:
1
+
off
+
a_off
+
nbw
-1
,
&
istripe
,
my_thread
),
&
bcast_buffer
(
1
:
nbw
,
off
+1
),
nbw
,
nl
,
stripe_width
)
#else
if
(
jj
==
1
)
call
single_hh_trafo_real_cpu_single
(
a
(
1
:
stripe_width
,
1
+
off
+
a_off
:
1
+
off
+
a_off
+
nbw
-1
,
istripe
),
&
...
...
@@ -1083,7 +1085,8 @@ module compute_hh_trafo_real
#endif
enddo
#ifdef WITH_OPENMP
if
(
jjj
==
1
)
call
single_hh_trafo_real_cpu_openmp_single
(
a
(
1
:
stripe_width
,
1
+
off
+
a_off
:
1
+
off
+
a_off
+
nbw
-1
,
istripe
,
my_thread
),
&
if
(
jjj
==
1
)
call
single_hh_trafo_real_cpu_openmp_single
(
a
(
1
:
stripe_width
,
1
+
off
+
a_off
:
1
+
off
+
a_off
+
nbw
-1
,
&
istripe
,
my_thread
),
&
bcast_buffer
(
1
:
nbw
,
off
+1
),
nbw
,
nl
,
stripe_width
)
#else
if
(
jjj
==
1
)
call
single_hh_trafo_real_cpu_single
(
a
(
1
:
stripe_width
,
1
+
off
+
a_off
:
1
+
off
+
a_off
+
nbw
-1
,
istripe
),
&
...
...
@@ -1144,7 +1147,8 @@ module compute_hh_trafo_real
#endif
enddo
#ifdef WITH_OPENMP
if
(
jjj
==
1
)
call
single_hh_trafo_real_cpu_openmp_single
(
a
(
1
:
stripe_width
,
1
+
off
+
a_off
:
1
+
off
+
a_off
+
nbw
-1
,
istripe
,
my_thread
),
&
if
(
jjj
==
1
)
call
single_hh_trafo_real_cpu_openmp_single
(
a
(
1
:
stripe_width
,
1
+
off
+
a_off
:
1
+
off
+
a_off
+
nbw
-1
,
&
istripe
,
my_thread
),
&
bcast_buffer
(
1
:
nbw
,
off
+1
),
nbw
,
nl
,
stripe_width
)
#else
if
(
jjj
==
1
)
call
single_hh_trafo_real_cpu_single
(
a
(
1
:
stripe_width
,
1
+
off
+
a_off
:
1
+
off
+
a_off
+
nbw
-1
,
istripe
),
&
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a 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