f_cta_utils.h

Go to the documentation of this file.
00001 /*
00002 COSTA: Problem solving environment for data assimilation
00003 Copyright (C) 2005  Nils van Velzen
00004 
00005 This library is free software; you can redistribute it and/or
00006 modify it under the terms of the GNU Lesser General Public
00007 License as published by the Free Software Foundation; either
00008 version 2.1 of the License, or (at your option) any later version.
00009 
00010 This library is distributed in the hope that it will be useful,
00011 but WITHOUT ANY WARRANTY; without even the implied warranty of
00012 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
00013 Lesser General Public License for more details.
00014 
00015 You should have received a copy of the GNU Lesser General Public
00016 License along with this library; if not, write to the Free Software
00017 Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
00018 */
00019 
00020 /**
00021 \file  f_cta_utils.h
00022 
00023 \brief String utility functions for FORTRAN / C compatibility.
00024 */
00025 
00026 #include <string.h>
00027 #include "cta_system.h"
00028 #include "cta_datatypes.h"
00029 #include "cta_errors.h"
00030 
00031 #ifndef F_CTA_UTILS_H
00032 #define F_CTA_UTILS_H
00033 #ifdef __cplusplus
00034 extern "C" {
00035 #endif
00036 
00037 /** \brief Create C string from FORTRAN string
00038  *
00039  * \param f_str I pointer to FORTRAN string
00040  * \param c_str O buffer for receiving C string
00041  * \param len_f I length of FORTRAN string
00042  *
00043  * \return error status: always CTA_OK (no internal error check)
00044  */
00045 int CTA_fstr2cstr(char *f_str,char *c_str, int len_f);
00046 
00047 /** \brief Create FORTRAN string from C string
00048  *
00049  * \param c_str I pointer to C string
00050  * \param f_str O buffer for receiving FORTRAN string
00051  * \param len_f I length of C string
00052  *
00053  * \return error status: always CTA_OK (no internal error check)
00054  */
00055 int CTA_cstr2fstr(char *c_str,char *f_str, int len_f);
00056 
00057 
00058 #ifdef __cplusplus
00059 }
00060 #endif
00061 #endif

Generated on Mon Apr 6 14:05:58 2009 for COSTA by  doxygen 1.5.2