Back to index

salome-kernel  6.5.0
fortoc.h
Go to the documentation of this file.
00001 // Copyright (C) 2007-2012  CEA/DEN, EDF R&D, OPEN CASCADE
00002 //
00003 // This library is free software; you can redistribute it and/or
00004 // modify it under the terms of the GNU Lesser General Public
00005 // License as published by the Free Software Foundation; either
00006 // version 2.1 of the License.
00007 //
00008 // This library is distributed in the hope that it will be useful,
00009 // but WITHOUT ANY WARRANTY; without even the implied warranty of
00010 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
00011 // Lesser General Public License for more details.
00012 //
00013 // You should have received a copy of the GNU Lesser General Public
00014 // License along with this library; if not, write to the Free Software
00015 // Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307 USA
00016 //
00017 // See http://www.salome-platform.org/ or email : webmaster.salome@opencascade.com
00018 //
00019 
00020 #ifndef FORTRAN_H
00021 #define FORTRAN_H
00022 
00023 /* Operateur de concatenation */
00024 #define  _(A,B)   A##B
00025 
00026 #ifdef  __linux
00027 #define F_FUNC(lname,uname) _(lname,_)        /* Fortran function name */
00028 #define F_CALL(lname,uname) _(lname,_)        /* Fortran function call */
00029 #define STR_PSTR(str)       char *str         /* fortran string arg pointer */
00030 #define STR_PLEN(str)       , int _(Len,str)  /* fortran string arg length */
00031 #define STR_PTR(str)        str               /* fortran string pointer */
00032 #define STR_LEN(str)        _(Len,str)        /* fortran string length */
00033 
00034 
00035 #endif
00036 
00037 #endif
00038