Merge pull request #1883 from karasevb/fix_mca_spml_call
oshmem/fortran: fix warning mesages
Этот коммит содержится в:
Коммит
9807a6d585
@ -1,7 +1,6 @@
|
|||||||
/*
|
/*
|
||||||
* Copyright (c) 2013 Mellanox Technologies, Inc.
|
* Copyright (c) 2013-2016 Mellanox Technologies, Inc. All rights reserved.
|
||||||
* All rights reserved.
|
* Copyright (c) 2013 Cisco Systems, Inc. All rights reserved.
|
||||||
* Copyright (c) 2013 Cisco Systems, Inc. All rights reserved.
|
|
||||||
* $COPYRIGHT$
|
* $COPYRIGHT$
|
||||||
*
|
*
|
||||||
* Additional copyrights may follow
|
* Additional copyrights may follow
|
||||||
@ -34,8 +33,8 @@ SHMEM_GENERATE_FORTRAN_BINDINGS_SUB (void,
|
|||||||
void shmem_put_f(FORTRAN_POINTER_T target, FORTRAN_POINTER_T source, MPI_Fint *length, MPI_Fint *pe)
|
void shmem_put_f(FORTRAN_POINTER_T target, FORTRAN_POINTER_T source, MPI_Fint *length, MPI_Fint *pe)
|
||||||
{
|
{
|
||||||
MCA_SPML_CALL(put(FPTR_2_VOID_PTR(target),
|
MCA_SPML_CALL(put(FPTR_2_VOID_PTR(target),
|
||||||
|
OMPI_FINT_2_INT(*length) * 8,
|
||||||
FPTR_2_VOID_PTR(source),
|
FPTR_2_VOID_PTR(source),
|
||||||
OMPI_FINT_2_INT(*length),
|
|
||||||
OMPI_FINT_2_INT(*pe)));
|
OMPI_FINT_2_INT(*pe)));
|
||||||
}
|
}
|
||||||
|
|
||||||
|
Загрузка…
x
Ссылка в новой задаче
Block a user