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
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
|
/*
* Copyright (c) 2004-2005 The Trustees of Indiana University and Indiana
* University Research and Technology
* Corporation. All rights reserved.
* Copyright (c) 2004-2005 The University of Tennessee and The University
* of Tennessee Research Foundation. All rights
* reserved.
* Copyright (c) 2004-2005 High Performance Computing Center Stuttgart,
* University of Stuttgart. All rights reserved.
* Copyright (c) 2004-2005 The Regents of the University of California.
* All rights reserved.
* $COPYRIGHT$
*
* Additional copyrights may follow
*
* $HEADER$
*/
#ifndef OMPI_F77_STRINGS_H
#define OMPI_F77_STRINGS_H
#if defined(c_plusplus) || defined(__cplusplus)
extern "C" {
#endif
/**
* Convert a fortran string to a C string.
*
* @param fstr Fortran string
* @param len Fortran string length
* @param cstr Pointer to C string that will be created and returned
*
* @retval OMPI_SUCCESS upon success
* @retval OMPI_ERROR upon error
*
* This function is intended to be used in the MPI F77 bindings to
* convert fortran strings to C strings before invoking a back-end
* MPI C binding function. It will create a new C string and
* assign it to the cstr to return. The caller is responsible for
* eventually freeing the C string.
*/
int ompi_fortran_string_f2c(char *fstr, int len, char **cstr);
/**
* Convert a C string to a fortran string.
*
* @param cstr C string
* @param fstr Fortran string (must already exist and be allocated)
* @param len Fortran string length
*
* @retval OMPI_SUCCESS upon success
* @retval OMPI_ERROR upon error
*
* This function is intended to be used in the MPI F77 bindings to
* convert C strings to fortran strings. It is assumed that the
* fortran string is already allocated and has a length of len.
*/
int ompi_fortran_string_c2f(char *cstr, char *fstr, int len);
/**
* Convert an array of Fortran strings to an argv-style array of C
* strings.
*
* @param farray Array of fortran strings
* @param len Length of fortran array
* @param cargv Returned argv-style array of C strings
*
* @retval OMPI_SUCCESS upon success
* @retval OMPI_ERROR upon error
*
* This function is intented to be used in the MPI F77 bindings to
* convert arrays of fortran strings to argv-style arrays of C
* strings. The argv array will be allocated and returned; it is
* the caller's responsibility to invoke opal_argv_free() to free
* it later (or equivalent).
*/
int ompi_fortran_argv_f2c(char *farray, int len, char ***cargv);
/**
* Convert an array of argvs to a C style array of argvs
* @param count Dimension of the array of argvs
* @param array Array of fortran argv
* @param len Length of Fortran array
* @param argv Returned C arrray of argvs
*
* This function is intented to be used in the MPI F77 bindings to
* convert arrays of fortran strings to argv-style arrays of C
* strings. The argv array will be allocated and returned; it is
* the caller's responsibility to invoke opal_argv_free() to free
* each content of argv array and call free to deallocate the argv
* array itself
*/
int ompi_fortran_multiple_argvs_f2c(int count, char *array, int len,
char ****argv);
#if defined(c_plusplus) || defined(__cplusplus)
}
#endif
#endif /* OMPI_F77_STRINGS_H */
|
