/usr/include/sidlf90array.h is in libsidl-dev 1.4.0.dfsg-8build3.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 | /*
* File: sidlf90array.h
* Copyright: (c) 2003 Lawrence Livermore National Security, LLC
* Revision: @(#) $Revision: 6171 $
* Date: $Date: 2007-10-08 16:39:28 -0700 (Mon, 08 Oct 2007) $
* Description: Functions to convert sidl arrays into F90 derived type
*
*/
#ifndef included_sidlf90array_h
#define included_sidlf90array_h
#ifndef included_sidlType_h
#include "sidlType.h"
#endif
#if defined(SIDL_MAX_F90_DESCRIPTOR) && !defined(FORTRAN90_DISABLED)
/* forward declaration of sidl array struct's */
struct sidl_dcomplex__array;
struct sidl_double__array;
struct sidl_fcomplex__array;
struct sidl_float__array;
struct sidl_int__array;
struct sidl_long__array;
struct sidl_fortran_array {
int64_t d_ior;
char d_descriptor[SIDL_MAX_F90_DESCRIPTOR];
};
#ifdef __cplusplus
extern "C" {
#endif
/**
* Convert a sidl IOR into a F90 derived type containing the IOR pointer
* as a 64 bit integer and a F90 pointer to an array.
* src NULL or a valid sidl array
* src_dimen the dimension of src (*only* used when src is NULL)
* desc must be non-NULL pointer to single struct. This incoming
* contents of this struct are ignored. The incoming contents
* are overwritten.
*
* return value 0 means everything worked. Non-zero means it failed
*/
int
sidl_dcomplex__array_convert2f90(const struct sidl_dcomplex__array *src,
const int src_dimen,
struct sidl_fortran_array *dest);
/**
* Convert a sidl IOR into a F90 derived type containing the IOR pointer
* as a 64 bit integer and a F90 pointer to an array.
* src NULL or a valid sidl array
* src_dimen the dimension of src (*only* used when src is NULL)
* desc must be non-NULL pointer to single struct. This incoming
* contents of this struct are ignored. The incoming contents
* are overwritten.
*
* return value 0 means everything worked. Non-zero means it failed
*/
int
sidl_double__array_convert2f90(const struct sidl_double__array *src,
const int src_dimen,
struct sidl_fortran_array *dest);
/**
* Convert a sidl IOR into a F90 derived type containing the IOR pointer
* as a 64 bit integer and a F90 pointer to an array.
* src NULL or a valid sidl array
* src_dimen the dimension of src (*only* used when src is NULL)
* desc must be non-NULL pointer to single struct. This incoming
* contents of this struct are ignored. The incoming contents
* are overwritten.
*
* return value 0 means everything worked. Non-zero means it failed
*/
int
sidl_fcomplex__array_convert2f90(const struct sidl_fcomplex__array *src,
const int src_dimen,
struct sidl_fortran_array *dest);
/**
* Convert a sidl IOR into a F90 derived type containing the IOR pointer
* as a 64 bit integer and a F90 pointer to an array.
* src NULL or a valid sidl array
* src_dimen the dimension of src (*only* used when src is NULL)
* desc must be non-NULL pointer to single struct. This incoming
* contents of this struct are ignored. The incoming contents
* are overwritten.
*
* return value 0 means everything worked. Non-zero means it failed
*/
int
sidl_float__array_convert2f90(const struct sidl_float__array *src,
const int src_dimen,
struct sidl_fortran_array *dest);
/**
* Convert a sidl IOR into a F90 derived type containing the IOR pointer
* as a 64 bit integer and a F90 pointer to an array.
* src NULL or a valid sidl array
* src_dimen the dimension of src (*only* used when src is NULL)
* desc must be non-NULL pointer to single struct. This incoming
* contents of this struct are ignored. The incoming contents
* are overwritten.
*
* return value 0 means everything worked. Non-zero means it failed
*/
int
sidl_int__array_convert2f90(const struct sidl_int__array *src,
const int src_dimen,
struct sidl_fortran_array *dest);
/**
* Convert a sidl IOR into a F90 derived type containing the IOR pointer
* as a 64 bit integer and a F90 pointer to an array.
* src NULL or a valid sidl array
* src_dimen the dimension of src (*only* used when src is NULL)
* desc must be non-NULL pointer to single struct. This incoming
* contents of this struct are ignored. The incoming contents
* are overwritten.
*
* return value 0 means everything worked. Non-zero means it failed
*/
int
sidl_long__array_convert2f90(const struct sidl_long__array *src,
const int src_dimen,
struct sidl_fortran_array *dest);
#ifdef __cplusplus
}
#endif
#endif /* defined(SIDL_MAX_F90_DESCRIPTOR) && !defined(FORTRAN90_DISABLED) */
#endif /* included_sidlf90array_h */
|