--- rpl/src/rplftypes.inc 2011/04/20 08:26:04 1.17 +++ rpl/src/rplftypes.inc 2024/01/09 07:33:56 1.70 @@ -1,27 +1,6 @@ !=============================================================================== -! RPL/2 (R) version 4.1.0.prerelease.0 -! Copyright (C) 1989-2011 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 +! RPL/2 (R) version 4.1.35 +! Copyright (C) 1989-2024 Dr. BERTRAND Joël ! ! This file is part of RPL/2. ! @@ -140,22 +119,24 @@ # error "rplconfig.h header not found !" # endif - module rpl_complex - use iso_c_binding - implicit none - - type rpl_complex8 - sequence - real(rpl_real4) partie_reelle - real(rpl_real4) partie_imaginaire - end type - - type rpl_complex16 - sequence - real(rpl_real8) partie_reelle - real(rpl_real8) partie_imaginaire - end type - end module +# ifdef _RPL_COMPLEX_ + module rpl_complex + use iso_c_binding + implicit none + + type rpl_complex8 + sequence + real(rpl_real4) partie_reelle + real(rpl_real4) partie_imaginaire + end type + + type rpl_complex16 + sequence + real(rpl_real8) partie_reelle + real(rpl_real8) partie_imaginaire + end type + end module +# endif #endif ! vim: ts=4