Return to rplftypes.inc CVS log

Up to [local] / rpl / src

Annotation of rpl/src/rplftypes.inc, revision 1.1

1.1     ! bertrand    1: !===============================================================================
        !             2: ! RPL/2 (R) version 4.0.9
        !             3: ! Copyright (C) 1989-2010 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