[BACK]Return to rplftypes.inc CVS log [TXT] [DIR] Up to [local] / rpl / src

Diff for /rpl/src/rplftypes.inc between versions 1.5 and 1.64

version 1.5, 2010/03/17 14:14:37 version 1.64, 2019/02/03 14:41:29
Line 1 Line 1
 !===============================================================================  !===============================================================================
 ! RPL/2 (R) version 4.0.13  ! RPL/2 (R) version 4.1.31
 ! Copyright (C) 1989-2010 Dr. BERTRAND Joël  ! Copyright (C) 1989-2019 Dr. BERTRAND Joël
 !  !
 ! This file is part of RPL/2.  ! This file is part of RPL/2.
 !  !
Line 119 Line 119
 #       error "rplconfig.h header not found !"  #       error "rplconfig.h header not found !"
 #   endif  #   endif
   
     module rpl_complex  #   ifdef _RPL_COMPLEX_
         use iso_c_binding          module rpl_complex
         implicit none              use iso_c_binding
               implicit none
         type rpl_complex8  
             sequence              type rpl_complex8
             real(rpl_real4) partie_reelle                  sequence
             real(rpl_real4) partie_imaginaire                  real(rpl_real4) partie_reelle
         end type                  real(rpl_real4) partie_imaginaire
               end type
         type rpl_complex16  
             sequence              type rpl_complex16
             real(rpl_real8) partie_reelle                  sequence
             real(rpl_real8) partie_imaginaire                  real(rpl_real8) partie_reelle
         end type                  real(rpl_real8) partie_imaginaire
     end module              end type
           end module
   #   endif
 #endif  #endif
   
 ! vim: ts=4  ! vim: ts=4
Removed from v.1.5  
changed lines
  Added in v.1.64

CVSweb interface <joel.bertrand@systella.fr>