Return to rplftypes.inc CVS log

Up to [local] / rpl / src

Ajout des premiers bouts de rplcas.

    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: <<<<<<< rplftypes.inc
   20: ! RPL/2 (R) version 4.1.0.prerelease.0
   21: =======
   22: ! RPL/2 (R) version 4.0.23
   23: >>>>>>> 1.15.2.2
   24: ! Copyright (C) 1989-2011 Dr. BERTRAND Joël
   25: !
   26: ! This file is part of RPL/2.
   27: !
   28: ! RPL/2 is free software; you can redistribute it and/or modify it
   29: ! under the terms of the CeCILL V2 License as published by the french
   30: ! CEA, CNRS and INRIA.
   31: !
   32: ! RPL/2 is distributed in the hope that it will be useful, but WITHOUT
   33: ! ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
   34: ! FITNESS FOR A PARTICULAR PURPOSE.  See the CeCILL V2 License
   35: ! for more details.
   36: !
   37: ! You should have received a copy of the CeCILL License
   38: ! along with RPL/2. If not, write to info@cecill.info.
   39: !===============================================================================
   40: 
   41: 
   42: #ifndef INCLUSION_RPLFTYPES
   43: #   define INCLUSION_RPLFTYPES
   44: 
   45: #   ifdef RPLCONFIG
   46: #       define HAVE_CONFIG_H
   47: #   endif
   48: 
   49: #   ifdef HAVE_CONFIG_H
   50: 
   51: #       include "rplconfig.h"
   52: 
   53: #       if (SIZEOF_CHAR == 1)
   54: #           ifndef _INT1
   55: #               define _INT1
   56: #               define rpl_char                 C_CHAR
   57: #           endif
   58: #       endif
   59: 
   60: #       if (SIZEOF_SHORT_INT == 2)
   61: #           ifndef _INT2
   62: #               define _INT2
   63: #               define rpl_integer2             C_SHORT
   64: #           endif
   65: #       endif
   66: 
   67: #       if (SIZEOF_INT == 4)
   68: #           ifndef _INT4
   69: #               define _INT4
   70: #               define rpl_integer4             C_INT
   71: #           endif
   72: #       endif
   73: 
   74: #       if (SIZEOF_LONG_INT == 4)
   75: #           ifndef _INT4
   76: #               define _INT4
   77: #               define rpl_integer4             C_LONG
   78: #           endif
   79: #       endif
   80: 
   81: #       if (SIZEOF_LONG_INT == 8)
   82: #           ifndef _INT8
   83: #               define _INT8
   84: #               define rpl_integer8             C_LONG
   85: #           endif
   86: #       endif
   87: 
   88: #       if (SIZEOF_LONG_LONG_INT == 8)
   89: #           ifndef _INT8
   90: #               define _INT8
   91: #               define rpl_integer8             C_LONG_LONG
   92: #           endif
   93: #       endif
   94: 
   95: #       if (SIZEOF_FLOAT == 4)
   96: #           ifndef _REAL4
   97: #               define _REAL4
   98: #               define rpl_real4                C_FLOAT
   99: #           endif
  100: #       endif
  101: 
  102: #       if (SIZEOF_DOUBLE == 8)
  103: #           ifndef _REAL8
  104: #               define _REAL8
  105: #               define rpl_real8                C_DOUBLE
  106: #           endif
  107: #       endif
  108: 
  109: #       if (SIZEOF_LONG_DOUBLE == 8)
  110: #           ifndef _REAL8
  111: #               define _REAL8
  112: #               define rpl_real8                C_LONG_DOUBLE
  113: #           endif
  114: #       endif
  115: 
  116: #       ifndef _INT1
  117: #           error "INTEGER*1 is not defined !"
  118: #       endif
  119: 
  120: #       ifndef _INT2
  121: #           error "INTEGER*2 is not defined !"
  122: #       endif
  123: 
  124: #       ifndef _INT4
  125: #           error "INTEGER*4 is not defined !"
  126: #       endif
  127: 
  128: #       ifndef _INT8
  129: #           error "INTEGER*8 is not defined !"
  130: #       endif
  131: 
  132: #       ifndef _REAL4
  133: #           error "REAL*4 is not defined !"
  134: #       endif
  135: 
  136: #       ifndef _REAL8
  137: #           error "REAL*8 is not defined !"
  138: #       endif
  139: #   else
  140: #       error "rplconfig.h header not found !"
  141: #   endif
  142: 
  143:     module rpl_complex
  144:         use iso_c_binding
  145:         implicit none
  146: 
  147:         type rpl_complex8
  148:             sequence
  149:             real(rpl_real4) partie_reelle
  150:             real(rpl_real4) partie_imaginaire
  151:         end type
  152: 
  153:         type rpl_complex16
  154:             sequence
  155:             real(rpl_real8) partie_reelle
  156:             real(rpl_real8) partie_imaginaire
  157:         end type
  158:     end module
  159: #endif
  160: 
  161: ! vim: ts=4