00001 // Copyright (C) 2007-2011 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