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
Open sidebar
elpa
elpa
Commits
d98eb8b5
Unverified
Commit
d98eb8b5
authored
Feb 03, 2015
by
Andreas Marek
Browse files
Remove obsolete preprocessor flags
parent
70eedfc6
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/elpa_qr/qr_utils.f90
View file @
d98eb8b5
...
...
@@ -51,13 +51,6 @@ module qr_utils_mod
public
::
reverse_matrix_1dcomm
public
::
reverse_matrix_2dcomm_ref
#ifdef OLD
public
::
tsqr_groups_size
public
::
tsqr_groups_initialize
public
::
tsqr_groups_finalize
#endif
contains
! rev parameter is critical, even in rev only mode!
...
...
@@ -393,95 +386,4 @@ subroutine reverse_matrix_1dcomm(trans,m,n,b,a,lda,work,lwork,mpicomm)
work
(
newmatrix_offset
+
(
icol
-1
)
*
lrows
:
newmatrix_offset
+
icol
*
lrows
-1
)
end
do
end
subroutine
reverse_matrix_1dcomm
#if 0
integer
function
tsqr_groups_size
(
comm
,
treeorder
)
use
mpi
implicit
none
! input
integer
comm
,
treeorder
! local scalars
integer
mpiprocs
,
mpierr
integer
nr_groups
,
depth
,
treeprocs
call
MPI_Comm_size
(
comm
,
mpiprocs
,
mpierr
)
! integer logarithm with base treeorder
depth
=
1
treeprocs
=
treeorder
do
while
(
treeprocs
.lt.
mpiprocs
)
treeprocs
=
treeprocs
*
treeorder
depth
=
depth
+
1
end
do
tsqr_groups_size
=
nr_groups
end
function
subroutine
tsqr_groups_initialize
(
comm
,
treeorder
,
groups
)
use
mpi
implicit
none
! input
integer
comm
,
treeorder
! output
integer
,
allocatable
::
groups
(:)
! local scalars
integer
nr_groups
,
igroup
,
mpierr
,
mpirank
integer
split_color
,
split_key
integer
prev_treeorder
,
temp_treeorder
nr_groups
=
tsqr_groups_size
(
comm
,
treeorder
)
allocate
(
groups
(
nr_groups
))
groups
(
1
)
=
comm
call
MPI_Comm_rank
(
comm
,
mpirank
,
mpierr
)
prev_treeorder
=
1
temp_treeorder
=
treeorder
do
igroup
=
2
,
nr_groups
if
(
mod
(
mpirank
,
prev_treeorder
)
.eq.
0
)
then
split_color
=
mpirank
/
temp_treeorder
split_key
=
mod
(
mpirank
/
prev_treeorder
,
treeorder
)
else
split_color
=
MPI_UNDEFINED
split_key
=
0
! ignored due to MPI_UNDEFINED color
end
if
call
MPI_Comm_split
(
comm
,
split_color
,
split_key
,
groups
(
igroup
),
mpierr
)
prev_treeorder
=
temp_treeorder
temp_treeorder
=
temp_treeorder
*
treeorder
end
do
end
subroutine
subroutine
tsqr_groups_finalize
(
groups
,
treeorder
)
use
mpi
implicit
none
! input
integer
,
allocatable
::
groups
(:)
integer
treeorder
! local scalars
integer
nr_groups
,
igroup
,
mpierr
nr_groups
=
tsqr_groups_size
(
groups
(
1
),
treeorder
)
do
igroup
=
2
,
nr_groups
call
MPI_Comm_free
(
groups
(
igroup
),
mpierr
)
end
do
deallocate
(
groups
)
end
subroutine
#endif
end
module
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