--- rpl/src/rplftypes.inc 2012/03/01 10:14:09 1.33 +++ rpl/src/rplftypes.inc 2020/01/10 11:15:51 1.66 @@ -1,6 +1,6 @@ !=============================================================================== -! RPL/2 (R) version 4.1.7 -! Copyright (C) 1989-2012 Dr. BERTRAND Joël +! RPL/2 (R) version 4.1.32 +! Copyright (C) 1989-2020 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