version 1.31, 2012/01/05 10:19:06
|
version 1.71, 2024/01/17 16:57:18
|
Line 1
|
Line 1
|
!=============================================================================== |
!=============================================================================== |
! RPL/2 (R) version 4.1.5 |
! RPL/2 (R) version 4.1.36 |
! Copyright (C) 1989-2012 Dr. BERTRAND Joël |
! Copyright (C) 1989-2024 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 |