version 1.17, 2011/04/20 08:26:04
|
version 1.64, 2019/02/03 14:41:29
|
Line 1
|
Line 1
|
!=============================================================================== |
!=============================================================================== |
! RPL/2 (R) version 4.1.0.prerelease.0 |
! RPL/2 (R) version 4.1.31 |
! Copyright (C) 1989-2011 Dr. BERTRAND Joël |
! Copyright (C) 1989-2019 Dr. BERTRAND Joël |
! |
|
! This file is part of RPL/2. |
|
! |
|
! RPL/2 is free software; you can redistribute it and/or modify it |
|
! under the terms of the CeCILL V2 License as published by the french |
|
! CEA, CNRS and INRIA. |
|
! |
|
! RPL/2 is distributed in the hope that it will be useful, but WITHOUT |
|
! ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or |
|
! FITNESS FOR A PARTICULAR PURPOSE. See the CeCILL V2 License |
|
! for more details. |
|
! |
|
! You should have received a copy of the CeCILL License |
|
! along with RPL/2. If not, write to info@cecill.info. |
|
!=============================================================================== |
|
<<<<<<< rplftypes.inc |
|
! RPL/2 (R) version 4.1.0.prerelease.0 |
|
======= |
|
! RPL/2 (R) version 4.0.23 |
|
>>>>>>> 1.15.2.2 |
|
! Copyright (C) 1989-2011 Dr. BERTRAND Joël |
|
! |
! |
! This file is part of RPL/2. |
! This file is part of RPL/2. |
! |
! |
Line 140
|
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 |