Open64 (mfef90, whirl2f, and IR tools): osprey1.0/libfi/include/arraydefs.h Source File

Go to the documentation of this file.
00001 /*
00002 
00003   Copyright (C) 2000, 2001 Silicon Graphics, Inc.  All Rights Reserved.
00004 
00005   This program is free software; you can redistribute it and/or modify it
00006   under the terms of version 2.1 of the GNU Lesser General Public License 
00007   as published by the Free Software Foundation.
00008 
00009   This program is distributed in the hope that it would be useful, but
00010   WITHOUT ANY WARRANTY; without even the implied warranty of
00011   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  
00012 
00013   Further, this software is distributed without any warranty that it is
00014   free of the rightful claim of any third person regarding infringement 
00015   or the like.  Any license provided herein, whether implied or 
00016   otherwise, applies only to this software file.  Patent licenses, if
00017   any, provided herein do not apply to combinations of this program with 
00018   other software, or any other product whatsoever.  
00019 
00020   You should have received a copy of the GNU Lesser General Public 
00021   License along with this program; if not, write the Free Software 
00022   Foundation, Inc., 59 Temple Place - Suite 330, Boston MA 02111-1307, 
00023   USA.
00024 
00025   Contact information:  Silicon Graphics, Inc., 1600 Amphitheatre Pky,
00026   Mountain View, CA 94043, or:
00027 
00028   http://www.sgi.com
00029 
00030   For further information regarding this notice, see:
00031 
00032   http://oss.sgi.com/projects/GenInfo/NoticeExplan
00033 
00034 */
00035 
00036 
00037 /* USMID @(#) libfi/include/arraydefs.h 92.0    10/08/98 14:37:14 */
00038 
00039 #if defined(_F_LOG4) && defined(_F_LOG8)
00040 #include <limits.h>
00041 #endif
00042 
00043 #define DVSUBTYPE_BIT32         9
00044 #define DVSUBTYPE_BIT64         10
00045 #define DVSUBTYPE_BIT128        11
00046 #define DVSUBTYPE_BIT256        12
00047 #define DVSUBTYPE_CHAR          13
00048 #define DVSUBTYPE_DERIVED       14
00049 #define DVSUBTYPE_INT32         15
00050 #ifdef _F_INT6
00051 #define DVSUBTYPE_INT46         16
00052 #endif
00053 #define DVSUBTYPE_INT64         17
00054 #define DVSUBTYPE_REAL64        18
00055 #define DVSUBTYPE_REAL128       19
00056 #define DVSUBTYPE_REAL32        20
00057 #ifdef _F_COMP4
00058 #define DVSUBTYPE_COMP64        21
00059 #endif
00060 #define DVSUBTYPE_BIT16         22
00061 #define DVSUBTYPE_BIT8          23
00062 
00063 #ifdef _F_COMP16
00064 typedef struct {
00065         _f_real16 re;   /* real part            */
00066         _f_real16 im;   /* imaginary part       */
00067         } dblcmplx;
00068 #endif
00069 
00070 typedef _f_dble dblword;        /* _f_dble defined in fortran.h */
00071 
00072 #if     defined(_F_LOG2) && defined(__mips)
00073 #define LTOB(i,a) \
00074         ((i == 8*CHAR_BIT) ? (_lvtob((*(_f_log8 *) (a)))) : \
00075         ((i == 4*CHAR_BIT) ? (_lvtob((*(_f_log4 *) (a)))) : \
00076         ((i == 2*CHAR_BIT) ? (_lvtob((*(_f_log2 *) (a)))) : \
00077         ((i == 1*CHAR_BIT) ? (_lvtob((*(_f_log1 *) (a)))) : \
00078         (_lvtob((*(_f_log *) (a))))))))
00079 #elif defined(_F_LOG4) && defined(_F_LOG8)
00080 #define LTOB(i,a) \
00081  ((i == 4*CHAR_BIT) ? (_lvtob((*(_f_log4 *) (a)))) : (_lvtob((*(_f_log8 *) (a)))))
00082 #else
00083 #define LTOB(i,a) (_lvtob((*(_f_log *) (a))))
00084 #endif
00085 
00086 #ifdef _F_REAL4
00087 #define HUGE_S4_REAL    HUGE_REAL4_F90
00088 #endif
00089 #define HUGE_S8_REAL    HUGE_REAL8_F90
00090 #define HUGE_S16_REAL   HUGE_REAL16_F90
00091 
00092 #define BITS_PER_BYTE   (BITS_PER_WORD / BYTES_PER_WORD)
00093 
00094 #ifdef  _F_LOG4
00095 typedef _f_log4         _f_mask;
00096 #else
00097 typedef _f_log          _f_mask;
00098 #endif