--- rpl/src/rplftypes.inc 2015/02/19 11:01:29 1.51 +++ rpl/src/rplftypes.inc 2018/12/24 15:56:39 1.62 @@ -1,6 +1,6 @@ !=============================================================================== -! RPL/2 (R) version 4.1.21 -! Copyright (C) 1989-2015 Dr. BERTRAND Joël +! RPL/2 (R) version 4.1.30 +! Copyright (C) 1989-2018 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