itpack_f2c.h Source File

00001 /*=========================================================================
00002 
00003   Program:   Insight Segmentation & Registration Toolkit
00004   Module:    $RCSfile: itpack_f2c.h,v $
00005   Language:  C++
00006   Date:      $Date: 2002/04/05 22:05:34 $
00007   Version:   $Revision: 1.3 $
00008 
00009   Copyright (c) 2002 Insight Consortium. All rights reserved.
00010   See ITKCopyright.txt or http://www.itk.org/HTML/Copyright.htm for details.
00011 
00012      This software is distributed WITHOUT ANY WARRANTY; without even 
00013      the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR 
00014      PURPOSE.  See the above copyright notices for more information.
00015 
00016 =========================================================================*/
00017 
00018 #ifndef __itpack_f2c_h
00019 #define __itpack_f2c_h
00020 
00027 namespace itk {
00028 namespace fem {
00029 namespace itpack {
00030 
00031 
00032 
00033 
00034 typedef long int integer;
00035 typedef long int logical;
00036 typedef float real;
00037 typedef double doublereal;
00038 
00039 typedef long int flag;
00040 typedef long int ftnlen;
00041 typedef long int ftnint;
00042 
00043 typedef doublereal E_f;
00044 
00045 typedef struct
00046 {   flag cierr;
00047     ftnint ciunit;
00048     flag ciend;
00049     char *cifmt;
00050     ftnint cirec;
00051 } cilist;
00052 
00053 
00054 
00055 
00056 }}} // end namespace itk::fem::itpack
00057 
00058 #endif