version 1.53, 2015/09/18 13:41:22
|
version 1.69, 2023/08/07 17:43:00
|
Line 1
|
Line 1
|
!=============================================================================== |
!=============================================================================== |
! RPL/2 (R) version 4.1.23 |
! RPL/2 (R) version 4.1.35 |
! Copyright (C) 1989-2015 Dr. BERTRAND Joël |
! Copyright (C) 1989-2023 Dr. BERTRAND Joël |
! |
! |
! This file is part of RPL/2. |
! This file is part of RPL/2. |
! |
! |
Line 119
|
Line 119
|
# error "rplconfig.h header not found !" |
# error "rplconfig.h header not found !" |
# endif |
# endif |
|
|
module rpl_complex |
# ifdef _RPL_COMPLEX_ |
use iso_c_binding |
module rpl_complex |
implicit none |
use iso_c_binding |
|
implicit none |
type rpl_complex8 |
|
sequence |
type rpl_complex8 |
real(rpl_real4) partie_reelle |
sequence |
real(rpl_real4) partie_imaginaire |
real(rpl_real4) partie_reelle |
end type |
real(rpl_real4) partie_imaginaire |
|
end type |
type rpl_complex16 |
|
sequence |
type rpl_complex16 |
real(rpl_real8) partie_reelle |
sequence |
real(rpl_real8) partie_imaginaire |
real(rpl_real8) partie_reelle |
end type |
real(rpl_real8) partie_imaginaire |
end module |
end type |
|
end module |
|
# endif |
#endif |
#endif |
|
|
! vim: ts=4 |
! vim: ts=4 |