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

Diff for /rpl/src/rplftypes.inc between versions 1.41 and 1.63

version 1.41, 2013/02/27 17:11:45 version 1.63, 2019/01/01 09:03:15
Line 1 Line 1
 !===============================================================================  !===============================================================================
 ! RPL/2 (R) version 4.1.13  ! RPL/2 (R) version 4.1.30
 ! Copyright (C) 1989-2013 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.41  
changed lines
  Added in v.1.63

CVSweb interface <joel.bertrand@systella.fr>