Mentions légales du service

Skip to content
Snippets Groups Projects
Commit b329bdb5 authored by Mathieu Faverge's avatar Mathieu Faverge
Browse files

Minor update

parent b71da85d
No related branches found
No related tags found
No related merge requests found
......@@ -545,7 +545,8 @@ spm = {
"end\n"
"libspm = spm_library_path()\n\n"
"if spm_mpi_enabled\n"
" using MPI\nend\n\n"
" using MPI\n"
"end\n\n"
"function __get_mpi_type__()\n"
" if !spm_mpi_enabled\n"
" return Cint\n"
......
###
#
# @copyright 2017-2018 Bordeaux INP, CNRS (LaBRI UMR 5800), Inria,
# @copyright 2017-2020 Bordeaux INP, CNRS (LaBRI UMR 5800), Inria,
# Univ. Bordeaux. All rights reserved.
#
# @version 6.0.0
# @version 6.1.0
# @author Mathieu Faverge
# @date 2017-05-22
# @date 2020-01-29
#
###
......
###
#
# @copyright 2017-2018 Bordeaux INP, CNRS (LaBRI UMR 5800), Inria,
# @copyright 2019-2020 Bordeaux INP, CNRS (LaBRI UMR 5800), Inria,
# Univ. Bordeaux. All rights reserved.
#
# @version 6.0.0
# @author Mathieu Faverge
# @author Selmane Lebdaoui
# @date 2020-06-19
# @date 2020-07-15
#
###
......
......@@ -26,8 +26,8 @@ if spm.spm_mpi_enabled
MPI.Init()
end
global A = spm.spmatrix_t(zero)
global Aptr = Ptr{spm.spmatrix_t}(pointer_from_objref(A))
A = spm.spmatrix_t(zero)
Aptr = pointer_from_objref(A)
#
# Two solutions to select the outpu file to pass to output functions
......@@ -61,8 +61,7 @@ row = zeros( spm.spm_int_t, nnz )
col = zeros( spm.spm_int_t, nnz )
val = zeros( Cdouble, nnz )
global m = 1
m = 1
for i in 1:dim1
for j in 1:dim2
for k in 1:dim3
......
###
#
# @copyright 2017-2018 Bordeaux INP, CNRS (LaBRI UMR 5800), Inria,
# @copyright 2017-2020 Bordeaux INP, CNRS (LaBRI UMR 5800), Inria,
# Univ. Bordeaux. All rights reserved.
#
# @version 6.0.0
# @version 6.0.3
# @author Mathieu Faverge
# @date 2018-05-14
# @date 2019-12-04
#
###
......
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