Added logical types.
This commit was SVN r4012.
Этот коммит содержится в:
родитель
95a4b10d94
Коммит
de03176303
@ -12,6 +12,12 @@
|
||||
! $HEADER$
|
||||
!
|
||||
|
||||
integer :: OMPI_SIZEOF_F90_LOGICAL1
|
||||
integer :: OMPI_SIZEOF_F90_LOGICAL2
|
||||
integer :: OMPI_SIZEOF_F90_LOGICAL4
|
||||
integer :: OMPI_SIZEOF_F90_LOGICAL8
|
||||
integer :: OMPI_SIZEOF_F90_LOGICAL16
|
||||
|
||||
integer :: OMPI_SIZEOF_F90_INT1
|
||||
integer :: OMPI_SIZEOF_F90_INT2
|
||||
integer :: OMPI_SIZEOF_F90_INT4
|
||||
@ -26,6 +32,12 @@ integer :: OMPI_SIZEOF_F90_COMPLEX8
|
||||
integer :: OMPI_SIZEOF_F90_COMPLEX16
|
||||
integer :: OMPI_SIZEOF_F90_COMPLEX32
|
||||
|
||||
parameter(OMPI_SIZEOF_F90_LOGICAL1 = @OMPI_SIZEOF_F90_LOGICAL1@)
|
||||
parameter(OMPI_SIZEOF_F90_LOGICAL2 = @OMPI_SIZEOF_F90_LOGICAL2@)
|
||||
parameter(OMPI_SIZEOF_F90_LOGICAL4 = @OMPI_SIZEOF_F90_LOGICAL4@)
|
||||
parameter(OMPI_SIZEOF_F90_LOGICAL8 = @OMPI_SIZEOF_F90_LOGICAL8@)
|
||||
parameter(OMPI_SIZEOF_F90_LOGICAL16 = @OMPI_SIZEOF_F90_LOGICAL16@)
|
||||
|
||||
parameter(OMPI_SIZEOF_F90_INT1 = @OMPI_SIZEOF_F90_INT1@)
|
||||
parameter(OMPI_SIZEOF_F90_INT2 = @OMPI_SIZEOF_F90_INT2@)
|
||||
parameter(OMPI_SIZEOF_F90_INT4 = @OMPI_SIZEOF_F90_INT4@)
|
||||
|
Загрузка…
Ссылка в новой задаче
Block a user