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

Diff for /rpl/src/rplftypes.inc between versions 1.52 and 1.70

version 1.52, 2015/06/08 14:11:45 version 1.70, 2024/01/09 07:33:56
Line 1 Line 1
 !===============================================================================  !===============================================================================
 ! RPL/2 (R) version 4.1.22  ! RPL/2 (R) version 4.1.35
 ! Copyright (C) 1989-2015 Dr. BERTRAND Joël  ! Copyright (C) 1989-2024 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.52  
changed lines
  Added in v.1.70

CVSweb interface <joel.bertrand@systella.fr>