version 1.59, 2017/08/03 17:17:51
|
version 1.60, 2018/01/09 15:06:42
|
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 |
type rpl_complex8 |
sequence |
sequence |
real(rpl_real4) partie_reelle |
real(rpl_real4) partie_reelle |
real(rpl_real4) partie_imaginaire |
real(rpl_real4) partie_imaginaire |
end type |
end type |
|
|
type rpl_complex16 |
type rpl_complex16 |
sequence |
sequence |
real(rpl_real8) partie_reelle |
real(rpl_real8) partie_reelle |
real(rpl_real8) partie_imaginaire |
real(rpl_real8) partie_imaginaire |
end type |
end type |
end module |
end module |
|
# endif |
#endif |
#endif |
|
|
! vim: ts=4 |
! vim: ts=4 |