Return to rplftypes.inc CVS log | Up to [local] / rpl / src |
Fin des modifications à la suite de la réécriture des fonctions de gestion des variables locales. Ça compile, mais il faut encore déboguer sérieusement.
1: !=============================================================================== 2: ! RPL/2 (R) version 4.1.0.prerelease.0 3: ! Copyright (C) 1989-2011 Dr. BERTRAND Joël 4: ! 5: ! This file is part of RPL/2. 6: ! 7: ! RPL/2 is free software; you can redistribute it and/or modify it 8: ! under the terms of the CeCILL V2 License as published by the french 9: ! CEA, CNRS and INRIA. 10: ! 11: ! RPL/2 is distributed in the hope that it will be useful, but WITHOUT 12: ! ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or 13: ! FITNESS FOR A PARTICULAR PURPOSE. See the CeCILL V2 License 14: ! for more details. 15: ! 16: ! You should have received a copy of the CeCILL License 17: ! along with RPL/2. If not, write to info@cecill.info. 18: !=============================================================================== 19: 20: 21: #ifndef INCLUSION_RPLFTYPES 22: # define INCLUSION_RPLFTYPES 23: 24: # ifdef RPLCONFIG 25: # define HAVE_CONFIG_H 26: # endif 27: 28: # ifdef HAVE_CONFIG_H 29: 30: # include "rplconfig.h" 31: 32: # if (SIZEOF_CHAR == 1) 33: # ifndef _INT1 34: # define _INT1 35: # define rpl_char C_CHAR 36: # endif 37: # endif 38: 39: # if (SIZEOF_SHORT_INT == 2) 40: # ifndef _INT2 41: # define _INT2 42: # define rpl_integer2 C_SHORT 43: # endif 44: # endif 45: 46: # if (SIZEOF_INT == 4) 47: # ifndef _INT4 48: # define _INT4 49: # define rpl_integer4 C_INT 50: # endif 51: # endif 52: 53: # if (SIZEOF_LONG_INT == 4) 54: # ifndef _INT4 55: # define _INT4 56: # define rpl_integer4 C_LONG 57: # endif 58: # endif 59: 60: # if (SIZEOF_LONG_INT == 8) 61: # ifndef _INT8 62: # define _INT8 63: # define rpl_integer8 C_LONG 64: # endif 65: # endif 66: 67: # if (SIZEOF_LONG_LONG_INT == 8) 68: # ifndef _INT8 69: # define _INT8 70: # define rpl_integer8 C_LONG_LONG 71: # endif 72: # endif 73: 74: # if (SIZEOF_FLOAT == 4) 75: # ifndef _REAL4 76: # define _REAL4 77: # define rpl_real4 C_FLOAT 78: # endif 79: # endif 80: 81: # if (SIZEOF_DOUBLE == 8) 82: # ifndef _REAL8 83: # define _REAL8 84: # define rpl_real8 C_DOUBLE 85: # endif 86: # endif 87: 88: # if (SIZEOF_LONG_DOUBLE == 8) 89: # ifndef _REAL8 90: # define _REAL8 91: # define rpl_real8 C_LONG_DOUBLE 92: # endif 93: # endif 94: 95: # ifndef _INT1 96: # error "INTEGER*1 is not defined !" 97: # endif 98: 99: # ifndef _INT2 100: # error "INTEGER*2 is not defined !" 101: # endif 102: 103: # ifndef _INT4 104: # error "INTEGER*4 is not defined !" 105: # endif 106: 107: # ifndef _INT8 108: # error "INTEGER*8 is not defined !" 109: # endif 110: 111: # ifndef _REAL4 112: # error "REAL*4 is not defined !" 113: # endif 114: 115: # ifndef _REAL8 116: # error "REAL*8 is not defined !" 117: # endif 118: # else 119: # error "rplconfig.h header not found !" 120: # endif 121: 122: module rpl_complex 123: use iso_c_binding 124: implicit none 125: 126: type rpl_complex8 127: sequence 128: real(rpl_real4) partie_reelle 129: real(rpl_real4) partie_imaginaire 130: end type 131: 132: type rpl_complex16 133: sequence 134: real(rpl_real8) partie_reelle 135: real(rpl_real8) partie_imaginaire 136: end type 137: end module 138: #endif 139: 140: ! vim: ts=4