00001 /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00002 * Copyright by The HDF Group. * 00003 * Copyright by the Board of Trustees of the University of Illinois. * 00004 * All rights reserved. * 00005 * * 00006 * This file is part of HDF5. The full HDF5 copyright notice, including * 00007 * terms governing use, modification, and redistribution, is contained in * 00008 * the files COPYING and Copyright.html. COPYING can be found at the root * 00009 * of the source code distribution tree; Copyright.html can be found at the * 00010 * root level of an installed copy of the electronic HDF5 document set and * 00011 * is linked from the top-level documents page. It can also be found at * 00012 * http://hdfgroup.org/HDF5/doc/Copyright.html. If you do not have * 00013 * access to either file, you may request a copy from help@hdfgroup.org. * 00014 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ 00015 00016 00017 #ifndef _H5f90i_H 00018 #define _H5f90i_H 00019 00020 /* 00021 * Include generated header. This header defines integer types, 00022 * so this file only needs to define _fcd. 00023 */ 00024 #include "H5f90i_gen.h" 00025 00026 /* Define _fcd. These are the same on every system 00027 * but UNICOS. 00028 */ 00029 #define _fcdtocp(desc) (desc) 00030 00031 #if (defined (UNICOS) || defined (_UNICOS)) && !defined(__crayx1) 00032 00033 #include <fortran.h> 00034 00035 /*typedef char* _fcd;*/ 00036 00037 #else 00038 00039 typedef char *_fcd; 00040 00041 #endif 00042 00043 #endif /* _H5f90i_H */
1.6.2