--- rpl/src/rplftypes.inc 2013/09/06 10:30:56 1.44 +++ rpl/src/rplftypes.inc 2024/01/17 16:57:18 1.71 @@ -1,6 +1,6 @@ !=============================================================================== -! RPL/2 (R) version 4.1.16 -! Copyright (C) 1989-2013 Dr. BERTRAND Joël +! RPL/2 (R) version 4.1.36 +! Copyright (C) 1989-2024 Dr. BERTRAND Joël ! ! This file is part of RPL/2. ! @@ -119,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