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

Diff for /rpl/src/rplftypes.inc between versions 1.17 and 1.68

version 1.17, 2011/04/20 08:26:04 version 1.68, 2022/09/07 13:40:42
Line 1 Line 1
 !===============================================================================  !===============================================================================
 ! RPL/2 (R) version 4.1.0.prerelease.0  ! RPL/2 (R) version 4.1.34
 ! Copyright (C) 1989-2011 Dr. BERTRAND Joël  ! Copyright (C) 1989-2021 Dr. BERTRAND Joël
 !  
 ! This file is part of RPL/2.  
 !  
 ! RPL/2 is free software; you can redistribute it and/or modify it  
 ! under the terms of the CeCILL V2 License as published by the french  
 ! CEA, CNRS and INRIA.  
 !  
 ! RPL/2 is distributed in the hope that it will be useful, but WITHOUT  
 ! ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or  
 ! FITNESS FOR A PARTICULAR PURPOSE.  See the CeCILL V2 License  
 ! for more details.  
 !  
 ! You should have received a copy of the CeCILL License  
 ! along with RPL/2. If not, write to info@cecill.info.  
 !===============================================================================  
 <<<<<<< rplftypes.inc  
 ! RPL/2 (R) version 4.1.0.prerelease.0  
 =======  
 ! RPL/2 (R) version 4.0.23  
 >>>>>>> 1.15.2.2  
 ! Copyright (C) 1989-2011 Dr. BERTRAND Joël  
 !  !
 ! This file is part of RPL/2.  ! This file is part of RPL/2.
 !  !
Line 140 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.17  
changed lines
  Added in v.1.68

CVSweb interface <joel.bertrand@systella.fr>