File: device.c

package info (click to toggle)
ga 5.9.2-2
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 18,472 kB
  • sloc: ansic: 192,963; fortran: 53,761; f90: 11,218; cpp: 5,784; makefile: 2,248; sh: 1,945; python: 1,734; perl: 534; csh: 134; asm: 106
file content (76 lines) | stat: -rw-r--r-- 1,263 bytes parent folder | download | duplicates (9)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
#if HAVE_CONFIG_H
#   include "config.h"
#endif

#include <stdio.h>
#include <stdlib.h>
#include <mpi.h>
#include <assert.h>
#include <string.h>

#include "comex.h"
#include "comex_impl.h"
#include "openib.h"

// Device specific implementation
//
void* COMEXD_register_memory(void *buf, int len)
{
    return openib_register_memory(buf, len);
}

int COMEXD_deregister_memory(void *buf)
{
    return openib_deregister_memory(buf);
}

int COMEXD_put_nbi(void *src, void *dst, int bytes, int proc)
{
    if (proc == l_state.rank) {
        (void) memcpy(dst, src, bytes);
        return 0;
    }

    return openib_put_nbi(src, dst, bytes, proc);
}

int COMEXD_get_nbi(void *src, void *dst, int bytes, int proc)
{
    if (proc == l_state.rank) {
        (void) memcpy(dst, src, bytes);
        return 0;
    }

    return openib_get_nbi(src, dst, bytes, proc);
}

void COMEXD_network_lock(int proc)
{
    openib_network_lock(proc);
}

void COMEXD_network_unlock(int proc)
{
    openib_network_unlock(proc);
}

int COMEXD_waitproc(int proc)
{
    return openib_waitproc(proc);    
}

int COMEXD_waitall()
{
    openib_waitall();    
    return 0;
}

int COMEXD_initialize()
{
    return openib_initialize();
}

int COMEXD_finalize()
{
    return openib_finalize();
}