Back to index

salome-kernel  6.5.0
calciumf.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 //  File   : calcium.h
00021 //  Author : Eric Fayolle (EDF)
00022 //  Module : KERNEL
00023 //
00024 /* Outils d'Aide au Couplage de Code de Calcul : $Id: calciumf.h,v 1.1.2.2.10.2.12.1 2012-04-12 14:05:07 vsr Exp $ */
00025 
00026 #ifndef __CALCIUMF_H
00027 #define __CALCIUMF_H
00028 
00029 #include "CalciumFortranInt.h"
00030 
00031 /*TODO CPCD... */
00032 
00033 #define STAR *
00034 #define LCH_LAST_PARAM ,int strsize
00035 
00036 
00037 #define CALCIUM_ECR_INTERFACE_C_H(_name,_timeType,_calInt,_type,_typeName,_qual,lastarg) \
00038   extern _calInt cp_##_name (void * component, _calInt mode,            \
00039                        _timeType t, _calInt i,                          \
00040                        char * nomvar, _calInt nbelem,                   \
00041                        _type _qual * data                               \
00042                        lastarg ) ;                                      \
00043 
00044 
00045 CALCIUM_ECR_INTERFACE_C_H(een_fort_,float ,cal_int,cal_int,integer,,);
00046 CALCIUM_ECR_INTERFACE_C_H(elg_fort_,float ,cal_int,long   ,long2integer,,);
00047 CALCIUM_ECR_INTERFACE_C_H(eln_fort_,float ,cal_int,long   ,long,,);
00048 CALCIUM_ECR_INTERFACE_C_H(ein_fort_,float ,cal_int,int    ,int2integer,,);
00049 CALCIUM_ECR_INTERFACE_C_H(ere_fort_,float ,cal_int,float ,float,,);
00050 CALCIUM_ECR_INTERFACE_C_H(edb_fort_,double,cal_int,double,double,,);
00051 CALCIUM_ECR_INTERFACE_C_H(elo_fort_,float ,cal_int,int   ,bool,,);  /*int pour bool ou cal_int */
00052 CALCIUM_ECR_INTERFACE_C_H(ecp_fort_,float ,cal_int,float ,cplx,,);
00053 CALCIUM_ECR_INTERFACE_C_H(ech_fort_,float ,cal_int,char  ,str,STAR,LCH_LAST_PARAM );
00054 
00055 
00056 
00057 #define CALCIUM_LECT_INTERFACE_C_H(_name,_timeType,_calInt,_type,_typeName,_qual,lastarg) \
00058   extern void cp_##_name##_free ( _type _qual * data);                  \
00059   extern _calInt cp_##_name (void * component, _calInt mode,            \
00060                              _timeType * ti, _timeType * tf, _calInt * i, \
00061                              char * nomvar, _calInt bufferLength,       \
00062                              _calInt * nRead, _type _qual * data        \
00063                              lastarg ) ;                                \
00064                                                                         \
00065 
00066 
00067 CALCIUM_LECT_INTERFACE_C_H(len_fort_,float ,cal_int,cal_int ,integer,,);
00068 CALCIUM_LECT_INTERFACE_C_H(llg_fort_,float ,cal_int,long    ,long2integer,,);
00069 CALCIUM_LECT_INTERFACE_C_H(lln_fort_,float ,cal_int,long    ,long,,);
00070 CALCIUM_LECT_INTERFACE_C_H(lin_fort_,float ,cal_int,int     ,int2integer,,);
00071 CALCIUM_LECT_INTERFACE_C_H(lre_fort_,float ,cal_int,float   ,float,,);
00072 CALCIUM_LECT_INTERFACE_C_H(ldb_fort_,double,cal_int,double  ,double,,);
00073 CALCIUM_LECT_INTERFACE_C_H(llo_fort_,float ,cal_int,int     ,bool,,);   /*int pour bool ou cal_int */
00074 CALCIUM_LECT_INTERFACE_C_H(lcp_fort_,float ,cal_int,float   ,cplx,,);
00075 CALCIUM_LECT_INTERFACE_C_H(lch_fort_,float ,cal_int,char    ,str,STAR, LCH_LAST_PARAM );
00076 
00077 
00078 
00079 #endif