← Back to branch summary

~ubuntu-branches/ubuntu/utopic/adios/utopic

« back to all changes in this revision

Viewing changes to src/futils.h

  • Committer: Package Import Robot
  • Author(s): Alastair McKinstry
  • Date: 2013-12-09 15:21:31 UTC
  • mfrom: (1.1.2)
  • Revision ID: package-import@ubuntu.com-20131209152131-jtd4fpmdv3xnunnm
Tags: 1.5.0-1
* New upstream.
* Standards-Version: 3.9.5
* Include latest config.{sub,guess} 
* New watch file.
* Create libadios-bin for binaries.

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/futils.h
1
 
/* 
2
 
 * ADIOS is freely available under the terms of the BSD license described
3
 
 * in the COPYING file in the top level directory of this source distribution.
4
 
 *
5
 
 * Copyright (c) 2008 - 2009.  UT-BATTELLE, LLC. All rights reserved.
6
 
 */
7
 
 
8
 
#ifndef _FUTILS_H_
9
 
#define _FUTILS_H_
10
 
 
11
 
/** Copy a C string into a Fortran CHARACTER array (of max length flen).
12
 
    Fortran array must already be allocated in Fortran */
13
 
void futils_cstr_to_fstr(const char *cs, char *fs, int flen);
14
 
 
15
 
/** Trim a Fortran string and allocate a C string and copy content to it and add '\0' 
16
 
 *  Need to free() the string later.
17
 
 */
18
 
char * futils_fstr_to_cstr(const char * fs, int flen);
19
 
 
20
 
/* Indicate to ADIOS that we are calling from Fortran. 
21
 
   It is used in the read API to know what ordering of dimensions the caller expects.
22
 
*/
23
 
void futils_called_from_fortran_set(void);
24
 
void futils_called_from_fortran_unset(void);
25
 
/* Read API asks if the caller is Fortran by this function call */
26
 
int futils_is_called_from_fortran(void);
27
 
 
28
 
#endif