--- rpl/src/rplftypes.inc 2010/07/14 14:19:40 1.10 +++ rpl/src/rplftypes.inc 2019/02/03 14:41:29 1.64 @@ -1,6 +1,6 @@ !=============================================================================== -! RPL/2 (R) version 4.0.18 -! Copyright (C) 1989-2010 Dr. BERTRAND Joël +! RPL/2 (R) version 4.1.31 +! Copyright (C) 1989-2019 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