MAJ terminée. Nous sommes passés en version 14.6.2 . Pour consulter les "releases notes" associées c'est ici :

https://about.gitlab.com/releases/2022/01/11/security-release-gitlab-14-6-2-released/
https://about.gitlab.com/releases/2022/01/04/gitlab-14-6-1-released/

Commit d4488bec authored by PRUVOST Florent's avatar PRUVOST Florent
Browse files

update f90 interface

parent 9979d60b
......@@ -90,12 +90,12 @@ module morse
integer, parameter :: dp = kind(0.0d0)
interface
function MORSE_Init_c(cores) &
function MORSE_Init_c(cpus, gpus) &
& bind(c, name='MORSE_Init')
use iso_c_binding
implicit none
integer(kind=c_int) :: MORSE_Init_c
integer(kind=c_int), value :: cores
integer(kind=c_int), value :: cpus, gpus
end function MORSE_Init_c
end interface
......@@ -209,11 +209,11 @@ module morse
end interface
interface
function MORSE_Init_Affinity_c(cores,bindtab) &
function MORSE_Init_Affinity_c(cores,gpus,bindtab) &
& bind(c, name='MORSE_Init_Affinity')
use iso_c_binding
integer(kind=c_int) :: MORSE_Init_Affinity_c
integer(kind=c_int), value :: cores
integer(kind=c_int), value :: cores, gpus
type(c_ptr), value :: bindtab
end function MORSE_Init_Affinity_c
end interface
......@@ -296,12 +296,12 @@ module morse
contains
subroutine morse_init(ncores,info)
subroutine morse_init(cores,gpus,info)
use iso_c_binding
implicit none
integer(kind=c_int), intent(in) :: ncores
integer(kind=c_int), intent(in) :: cores, gpus
integer(kind=c_int), intent(out) :: info
info = morse_init_c(ncores)
info = morse_init_c(cores,gpus)
morse_initialized = .true.
end subroutine morse_init
......
......@@ -65,6 +65,7 @@ add_custom_target(chameleon_include ALL SOURCES ${CHAMELEON_HDRS})
set(HDR_INSTALL
morse_constants.h
morse_fortran.h
morse_kernels.h
morse_simulate.h
morse_struct.h
......
......@@ -164,12 +164,13 @@
! State machine switches
!
integer MORSE_WARNINGS, MORSE_ERRORS, MORSE_AUTOTUNING
integer MORSE_DAG
integer MORSE_DAG, MORSE_PROFILING_MODE, MORSE_PARALLEL_MODE
integer MORSE_BOUND
parameter ( MORSE_WARNINGS = 1 )
parameter ( MORSE_ERRORS = 2 )
parameter ( MORSE_AUTOTUNING = 3 )
parameter ( MORSE_DAG = 4 )
parameter ( MORSE_PROFILING_MOSE = 5 )
parameter ( MORSE_PROFILING_MODE = 5 )
parameter ( MORSE_PARALLEL_MODE = 6 )
parameter ( MORSE_BOUND = 7 )
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment