fortran/use-mpi-tkr: fix MPI_Sizeof handling
MPI_Sizeof related stuff has been moved to their own files. Remove MPI_Sizeof from Fortran interfaces when it cannot be built (e.g. stock gcc 4.8 on CentOS 7) Signed-off-by: Gilles Gouaillardet <gilles@rist.or.jp>
Этот коммит содержится в:
Gilles Gouaillardet
родитель
1a16e68c26
Коммит
bf789762a7
@ -1351,570 +1351,6 @@ end subroutine MPI_Request_get_status
|
||||
end interface
|
||||
|
||||
|
||||
interface MPI_Sizeof
|
||||
|
||||
subroutine MPI_Sizeof0DCH(x, size, ierror)
|
||||
character, intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine MPI_Sizeof0DCH
|
||||
|
||||
|
||||
subroutine MPI_Sizeof0DL(x, size, ierror)
|
||||
logical, intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine MPI_Sizeof0DL
|
||||
|
||||
|
||||
subroutine MPI_Sizeof0DI1(x, size, ierror)
|
||||
integer*1, intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine MPI_Sizeof0DI1
|
||||
|
||||
|
||||
subroutine MPI_Sizeof0DI2(x, size, ierror)
|
||||
integer*2, intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine MPI_Sizeof0DI2
|
||||
|
||||
|
||||
subroutine MPI_Sizeof0DI4(x, size, ierror)
|
||||
integer*4, intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine MPI_Sizeof0DI4
|
||||
|
||||
|
||||
subroutine MPI_Sizeof0DI8(x, size, ierror)
|
||||
integer*8, intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine MPI_Sizeof0DI8
|
||||
|
||||
|
||||
subroutine MPI_Sizeof0DR4(x, size, ierror)
|
||||
real*4, intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine MPI_Sizeof0DR4
|
||||
|
||||
|
||||
subroutine MPI_Sizeof0DR8(x, size, ierror)
|
||||
real*8, intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine MPI_Sizeof0DR8
|
||||
|
||||
|
||||
subroutine MPI_Sizeof0DC8(x, size, ierror)
|
||||
complex*8, intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine MPI_Sizeof0DC8
|
||||
|
||||
|
||||
subroutine MPI_Sizeof0DC16(x, size, ierror)
|
||||
complex*16, intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine MPI_Sizeof0DC16
|
||||
|
||||
|
||||
subroutine MPI_Sizeof1DCH(x, size, ierror)
|
||||
character, dimension(*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine MPI_Sizeof1DCH
|
||||
|
||||
|
||||
subroutine MPI_Sizeof1DL(x, size, ierror)
|
||||
logical, dimension(*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine MPI_Sizeof1DL
|
||||
|
||||
|
||||
subroutine MPI_Sizeof1DI1(x, size, ierror)
|
||||
integer*1, dimension(*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine MPI_Sizeof1DI1
|
||||
|
||||
|
||||
subroutine MPI_Sizeof1DI2(x, size, ierror)
|
||||
integer*2, dimension(*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine MPI_Sizeof1DI2
|
||||
|
||||
|
||||
subroutine MPI_Sizeof1DI4(x, size, ierror)
|
||||
integer*4, dimension(*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine MPI_Sizeof1DI4
|
||||
|
||||
|
||||
subroutine MPI_Sizeof1DI8(x, size, ierror)
|
||||
integer*8, dimension(*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine MPI_Sizeof1DI8
|
||||
|
||||
|
||||
subroutine MPI_Sizeof1DR4(x, size, ierror)
|
||||
real*4, dimension(*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine MPI_Sizeof1DR4
|
||||
|
||||
|
||||
subroutine MPI_Sizeof1DR8(x, size, ierror)
|
||||
real*8, dimension(*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine MPI_Sizeof1DR8
|
||||
|
||||
|
||||
subroutine MPI_Sizeof1DC8(x, size, ierror)
|
||||
complex*8, dimension(*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine MPI_Sizeof1DC8
|
||||
|
||||
|
||||
subroutine MPI_Sizeof1DC16(x, size, ierror)
|
||||
complex*16, dimension(*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine MPI_Sizeof1DC16
|
||||
|
||||
|
||||
subroutine MPI_Sizeof2DCH(x, size, ierror)
|
||||
character, dimension(1,*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine MPI_Sizeof2DCH
|
||||
|
||||
|
||||
subroutine MPI_Sizeof2DL(x, size, ierror)
|
||||
logical, dimension(1,*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine MPI_Sizeof2DL
|
||||
|
||||
|
||||
subroutine MPI_Sizeof2DI1(x, size, ierror)
|
||||
integer*1, dimension(1,*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine MPI_Sizeof2DI1
|
||||
|
||||
|
||||
subroutine MPI_Sizeof2DI2(x, size, ierror)
|
||||
integer*2, dimension(1,*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine MPI_Sizeof2DI2
|
||||
|
||||
|
||||
subroutine MPI_Sizeof2DI4(x, size, ierror)
|
||||
integer*4, dimension(1,*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine MPI_Sizeof2DI4
|
||||
|
||||
|
||||
subroutine MPI_Sizeof2DI8(x, size, ierror)
|
||||
integer*8, dimension(1,*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine MPI_Sizeof2DI8
|
||||
|
||||
|
||||
subroutine MPI_Sizeof2DR4(x, size, ierror)
|
||||
real*4, dimension(1,*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine MPI_Sizeof2DR4
|
||||
|
||||
|
||||
subroutine MPI_Sizeof2DR8(x, size, ierror)
|
||||
real*8, dimension(1,*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine MPI_Sizeof2DR8
|
||||
|
||||
|
||||
subroutine MPI_Sizeof2DC8(x, size, ierror)
|
||||
complex*8, dimension(1,*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine MPI_Sizeof2DC8
|
||||
|
||||
|
||||
subroutine MPI_Sizeof2DC16(x, size, ierror)
|
||||
complex*16, dimension(1,*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine MPI_Sizeof2DC16
|
||||
|
||||
|
||||
subroutine MPI_Sizeof3DCH(x, size, ierror)
|
||||
character, dimension(1,1,*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine MPI_Sizeof3DCH
|
||||
|
||||
|
||||
subroutine MPI_Sizeof3DL(x, size, ierror)
|
||||
logical, dimension(1,1,*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine MPI_Sizeof3DL
|
||||
|
||||
|
||||
subroutine MPI_Sizeof3DI1(x, size, ierror)
|
||||
integer*1, dimension(1,1,*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine MPI_Sizeof3DI1
|
||||
|
||||
|
||||
subroutine MPI_Sizeof3DI2(x, size, ierror)
|
||||
integer*2, dimension(1,1,*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine MPI_Sizeof3DI2
|
||||
|
||||
|
||||
subroutine MPI_Sizeof3DI4(x, size, ierror)
|
||||
integer*4, dimension(1,1,*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine MPI_Sizeof3DI4
|
||||
|
||||
|
||||
subroutine MPI_Sizeof3DI8(x, size, ierror)
|
||||
integer*8, dimension(1,1,*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine MPI_Sizeof3DI8
|
||||
|
||||
|
||||
subroutine MPI_Sizeof3DR4(x, size, ierror)
|
||||
real*4, dimension(1,1,*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine MPI_Sizeof3DR4
|
||||
|
||||
|
||||
subroutine MPI_Sizeof3DR8(x, size, ierror)
|
||||
real*8, dimension(1,1,*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine MPI_Sizeof3DR8
|
||||
|
||||
|
||||
subroutine MPI_Sizeof3DC8(x, size, ierror)
|
||||
complex*8, dimension(1,1,*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine MPI_Sizeof3DC8
|
||||
|
||||
|
||||
subroutine MPI_Sizeof3DC16(x, size, ierror)
|
||||
complex*16, dimension(1,1,*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine MPI_Sizeof3DC16
|
||||
|
||||
|
||||
subroutine MPI_Sizeof4DCH(x, size, ierror)
|
||||
character, dimension(1,1,1,*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine MPI_Sizeof4DCH
|
||||
|
||||
|
||||
subroutine MPI_Sizeof4DL(x, size, ierror)
|
||||
logical, dimension(1,1,1,*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine MPI_Sizeof4DL
|
||||
|
||||
|
||||
subroutine MPI_Sizeof4DI1(x, size, ierror)
|
||||
integer*1, dimension(1,1,1,*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine MPI_Sizeof4DI1
|
||||
|
||||
|
||||
subroutine MPI_Sizeof4DI2(x, size, ierror)
|
||||
integer*2, dimension(1,1,1,*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine MPI_Sizeof4DI2
|
||||
|
||||
|
||||
subroutine MPI_Sizeof4DI4(x, size, ierror)
|
||||
integer*4, dimension(1,1,1,*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine MPI_Sizeof4DI4
|
||||
|
||||
|
||||
subroutine MPI_Sizeof4DI8(x, size, ierror)
|
||||
integer*8, dimension(1,1,1,*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine MPI_Sizeof4DI8
|
||||
|
||||
|
||||
subroutine MPI_Sizeof4DR4(x, size, ierror)
|
||||
real*4, dimension(1,1,1,*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine MPI_Sizeof4DR4
|
||||
|
||||
|
||||
subroutine MPI_Sizeof4DR8(x, size, ierror)
|
||||
real*8, dimension(1,1,1,*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine MPI_Sizeof4DR8
|
||||
|
||||
|
||||
subroutine MPI_Sizeof4DC8(x, size, ierror)
|
||||
complex*8, dimension(1,1,1,*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine MPI_Sizeof4DC8
|
||||
|
||||
|
||||
subroutine MPI_Sizeof4DC16(x, size, ierror)
|
||||
complex*16, dimension(1,1,1,*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine MPI_Sizeof4DC16
|
||||
|
||||
|
||||
subroutine MPI_Sizeof5DCH(x, size, ierror)
|
||||
character, dimension(1,1,1,1,*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine MPI_Sizeof5DCH
|
||||
|
||||
|
||||
subroutine MPI_Sizeof5DL(x, size, ierror)
|
||||
logical, dimension(1,1,1,1,*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine MPI_Sizeof5DL
|
||||
|
||||
|
||||
subroutine MPI_Sizeof5DI1(x, size, ierror)
|
||||
integer*1, dimension(1,1,1,1,*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine MPI_Sizeof5DI1
|
||||
|
||||
|
||||
subroutine MPI_Sizeof5DI2(x, size, ierror)
|
||||
integer*2, dimension(1,1,1,1,*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine MPI_Sizeof5DI2
|
||||
|
||||
|
||||
subroutine MPI_Sizeof5DI4(x, size, ierror)
|
||||
integer*4, dimension(1,1,1,1,*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine MPI_Sizeof5DI4
|
||||
|
||||
|
||||
subroutine MPI_Sizeof5DI8(x, size, ierror)
|
||||
integer*8, dimension(1,1,1,1,*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine MPI_Sizeof5DI8
|
||||
|
||||
|
||||
subroutine MPI_Sizeof5DR4(x, size, ierror)
|
||||
real*4, dimension(1,1,1,1,*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine MPI_Sizeof5DR4
|
||||
|
||||
|
||||
subroutine MPI_Sizeof5DR8(x, size, ierror)
|
||||
real*8, dimension(1,1,1,1,*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine MPI_Sizeof5DR8
|
||||
|
||||
|
||||
subroutine MPI_Sizeof5DC8(x, size, ierror)
|
||||
complex*8, dimension(1,1,1,1,*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine MPI_Sizeof5DC8
|
||||
|
||||
|
||||
subroutine MPI_Sizeof5DC16(x, size, ierror)
|
||||
complex*16, dimension(1,1,1,1,*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine MPI_Sizeof5DC16
|
||||
|
||||
|
||||
subroutine MPI_Sizeof6DCH(x, size, ierror)
|
||||
character, dimension(1,1,1,1,1,*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine MPI_Sizeof6DCH
|
||||
|
||||
|
||||
subroutine MPI_Sizeof6DL(x, size, ierror)
|
||||
logical, dimension(1,1,1,1,1,*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine MPI_Sizeof6DL
|
||||
|
||||
|
||||
subroutine MPI_Sizeof6DI1(x, size, ierror)
|
||||
integer*1, dimension(1,1,1,1,1,*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine MPI_Sizeof6DI1
|
||||
|
||||
|
||||
subroutine MPI_Sizeof6DI2(x, size, ierror)
|
||||
integer*2, dimension(1,1,1,1,1,*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine MPI_Sizeof6DI2
|
||||
|
||||
|
||||
subroutine MPI_Sizeof6DI4(x, size, ierror)
|
||||
integer*4, dimension(1,1,1,1,1,*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine MPI_Sizeof6DI4
|
||||
|
||||
|
||||
subroutine MPI_Sizeof6DI8(x, size, ierror)
|
||||
integer*8, dimension(1,1,1,1,1,*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine MPI_Sizeof6DI8
|
||||
|
||||
|
||||
subroutine MPI_Sizeof6DR4(x, size, ierror)
|
||||
real*4, dimension(1,1,1,1,1,*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine MPI_Sizeof6DR4
|
||||
|
||||
|
||||
subroutine MPI_Sizeof6DR8(x, size, ierror)
|
||||
real*8, dimension(1,1,1,1,1,*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine MPI_Sizeof6DR8
|
||||
|
||||
|
||||
subroutine MPI_Sizeof6DC8(x, size, ierror)
|
||||
complex*8, dimension(1,1,1,1,1,*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine MPI_Sizeof6DC8
|
||||
|
||||
|
||||
subroutine MPI_Sizeof6DC16(x, size, ierror)
|
||||
complex*16, dimension(1,1,1,1,1,*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine MPI_Sizeof6DC16
|
||||
|
||||
|
||||
subroutine MPI_Sizeof7DCH(x, size, ierror)
|
||||
character, dimension(1,1,1,1,1,1,*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine MPI_Sizeof7DCH
|
||||
|
||||
|
||||
subroutine MPI_Sizeof7DL(x, size, ierror)
|
||||
logical, dimension(1,1,1,1,1,1,*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine MPI_Sizeof7DL
|
||||
|
||||
|
||||
subroutine MPI_Sizeof7DI1(x, size, ierror)
|
||||
integer*1, dimension(1,1,1,1,1,1,*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine MPI_Sizeof7DI1
|
||||
|
||||
|
||||
subroutine MPI_Sizeof7DI2(x, size, ierror)
|
||||
integer*2, dimension(1,1,1,1,1,1,*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine MPI_Sizeof7DI2
|
||||
|
||||
|
||||
subroutine MPI_Sizeof7DI4(x, size, ierror)
|
||||
integer*4, dimension(1,1,1,1,1,1,*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine MPI_Sizeof7DI4
|
||||
|
||||
|
||||
subroutine MPI_Sizeof7DI8(x, size, ierror)
|
||||
integer*8, dimension(1,1,1,1,1,1,*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine MPI_Sizeof7DI8
|
||||
|
||||
|
||||
subroutine MPI_Sizeof7DR4(x, size, ierror)
|
||||
real*4, dimension(1,1,1,1,1,1,*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine MPI_Sizeof7DR4
|
||||
|
||||
|
||||
subroutine MPI_Sizeof7DR8(x, size, ierror)
|
||||
real*8, dimension(1,1,1,1,1,1,*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine MPI_Sizeof7DR8
|
||||
|
||||
|
||||
subroutine MPI_Sizeof7DC8(x, size, ierror)
|
||||
complex*8, dimension(1,1,1,1,1,1,*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine MPI_Sizeof7DC8
|
||||
|
||||
|
||||
subroutine MPI_Sizeof7DC16(x, size, ierror)
|
||||
complex*16, dimension(1,1,1,1,1,1,*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine MPI_Sizeof7DC16
|
||||
|
||||
end interface
|
||||
|
||||
|
||||
interface MPI_Start
|
||||
|
||||
subroutine MPI_Start(request, ierror)
|
||||
|
||||
@ -58,4 +58,8 @@ module mpi
|
||||
include "pmpi-f90-file-interfaces.h"
|
||||
#endif
|
||||
|
||||
#if OMPI_FORTRAN_BUILD_SIZEOF
|
||||
include "mpi-tkr-sizeof.h"
|
||||
#endif
|
||||
|
||||
end module mpi
|
||||
|
||||
@ -1351,570 +1351,6 @@ end subroutine PMPI_Request_get_status
|
||||
end interface
|
||||
|
||||
|
||||
interface PMPI_Sizeof
|
||||
|
||||
subroutine PMPI_Sizeof0DCH(x, size, ierror)
|
||||
character, intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine PMPI_Sizeof0DCH
|
||||
|
||||
|
||||
subroutine PMPI_Sizeof0DL(x, size, ierror)
|
||||
logical, intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine PMPI_Sizeof0DL
|
||||
|
||||
|
||||
subroutine PMPI_Sizeof0DI1(x, size, ierror)
|
||||
integer*1, intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine PMPI_Sizeof0DI1
|
||||
|
||||
|
||||
subroutine PMPI_Sizeof0DI2(x, size, ierror)
|
||||
integer*2, intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine PMPI_Sizeof0DI2
|
||||
|
||||
|
||||
subroutine PMPI_Sizeof0DI4(x, size, ierror)
|
||||
integer*4, intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine PMPI_Sizeof0DI4
|
||||
|
||||
|
||||
subroutine PMPI_Sizeof0DI8(x, size, ierror)
|
||||
integer*8, intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine PMPI_Sizeof0DI8
|
||||
|
||||
|
||||
subroutine PMPI_Sizeof0DR4(x, size, ierror)
|
||||
real*4, intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine PMPI_Sizeof0DR4
|
||||
|
||||
|
||||
subroutine PMPI_Sizeof0DR8(x, size, ierror)
|
||||
real*8, intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine PMPI_Sizeof0DR8
|
||||
|
||||
|
||||
subroutine PMPI_Sizeof0DC8(x, size, ierror)
|
||||
complex*8, intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine PMPI_Sizeof0DC8
|
||||
|
||||
|
||||
subroutine PMPI_Sizeof0DC16(x, size, ierror)
|
||||
complex*16, intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine PMPI_Sizeof0DC16
|
||||
|
||||
|
||||
subroutine PMPI_Sizeof1DCH(x, size, ierror)
|
||||
character, dimension(*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine PMPI_Sizeof1DCH
|
||||
|
||||
|
||||
subroutine PMPI_Sizeof1DL(x, size, ierror)
|
||||
logical, dimension(*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine PMPI_Sizeof1DL
|
||||
|
||||
|
||||
subroutine PMPI_Sizeof1DI1(x, size, ierror)
|
||||
integer*1, dimension(*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine PMPI_Sizeof1DI1
|
||||
|
||||
|
||||
subroutine PMPI_Sizeof1DI2(x, size, ierror)
|
||||
integer*2, dimension(*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine PMPI_Sizeof1DI2
|
||||
|
||||
|
||||
subroutine PMPI_Sizeof1DI4(x, size, ierror)
|
||||
integer*4, dimension(*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine PMPI_Sizeof1DI4
|
||||
|
||||
|
||||
subroutine PMPI_Sizeof1DI8(x, size, ierror)
|
||||
integer*8, dimension(*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine PMPI_Sizeof1DI8
|
||||
|
||||
|
||||
subroutine PMPI_Sizeof1DR4(x, size, ierror)
|
||||
real*4, dimension(*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine PMPI_Sizeof1DR4
|
||||
|
||||
|
||||
subroutine PMPI_Sizeof1DR8(x, size, ierror)
|
||||
real*8, dimension(*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine PMPI_Sizeof1DR8
|
||||
|
||||
|
||||
subroutine PMPI_Sizeof1DC8(x, size, ierror)
|
||||
complex*8, dimension(*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine PMPI_Sizeof1DC8
|
||||
|
||||
|
||||
subroutine PMPI_Sizeof1DC16(x, size, ierror)
|
||||
complex*16, dimension(*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine PMPI_Sizeof1DC16
|
||||
|
||||
|
||||
subroutine PMPI_Sizeof2DCH(x, size, ierror)
|
||||
character, dimension(1,*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine PMPI_Sizeof2DCH
|
||||
|
||||
|
||||
subroutine PMPI_Sizeof2DL(x, size, ierror)
|
||||
logical, dimension(1,*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine PMPI_Sizeof2DL
|
||||
|
||||
|
||||
subroutine PMPI_Sizeof2DI1(x, size, ierror)
|
||||
integer*1, dimension(1,*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine PMPI_Sizeof2DI1
|
||||
|
||||
|
||||
subroutine PMPI_Sizeof2DI2(x, size, ierror)
|
||||
integer*2, dimension(1,*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine PMPI_Sizeof2DI2
|
||||
|
||||
|
||||
subroutine PMPI_Sizeof2DI4(x, size, ierror)
|
||||
integer*4, dimension(1,*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine PMPI_Sizeof2DI4
|
||||
|
||||
|
||||
subroutine PMPI_Sizeof2DI8(x, size, ierror)
|
||||
integer*8, dimension(1,*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine PMPI_Sizeof2DI8
|
||||
|
||||
|
||||
subroutine PMPI_Sizeof2DR4(x, size, ierror)
|
||||
real*4, dimension(1,*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine PMPI_Sizeof2DR4
|
||||
|
||||
|
||||
subroutine PMPI_Sizeof2DR8(x, size, ierror)
|
||||
real*8, dimension(1,*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine PMPI_Sizeof2DR8
|
||||
|
||||
|
||||
subroutine PMPI_Sizeof2DC8(x, size, ierror)
|
||||
complex*8, dimension(1,*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine PMPI_Sizeof2DC8
|
||||
|
||||
|
||||
subroutine PMPI_Sizeof2DC16(x, size, ierror)
|
||||
complex*16, dimension(1,*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine PMPI_Sizeof2DC16
|
||||
|
||||
|
||||
subroutine PMPI_Sizeof3DCH(x, size, ierror)
|
||||
character, dimension(1,1,*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine PMPI_Sizeof3DCH
|
||||
|
||||
|
||||
subroutine PMPI_Sizeof3DL(x, size, ierror)
|
||||
logical, dimension(1,1,*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine PMPI_Sizeof3DL
|
||||
|
||||
|
||||
subroutine PMPI_Sizeof3DI1(x, size, ierror)
|
||||
integer*1, dimension(1,1,*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine PMPI_Sizeof3DI1
|
||||
|
||||
|
||||
subroutine PMPI_Sizeof3DI2(x, size, ierror)
|
||||
integer*2, dimension(1,1,*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine PMPI_Sizeof3DI2
|
||||
|
||||
|
||||
subroutine PMPI_Sizeof3DI4(x, size, ierror)
|
||||
integer*4, dimension(1,1,*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine PMPI_Sizeof3DI4
|
||||
|
||||
|
||||
subroutine PMPI_Sizeof3DI8(x, size, ierror)
|
||||
integer*8, dimension(1,1,*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine PMPI_Sizeof3DI8
|
||||
|
||||
|
||||
subroutine PMPI_Sizeof3DR4(x, size, ierror)
|
||||
real*4, dimension(1,1,*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine PMPI_Sizeof3DR4
|
||||
|
||||
|
||||
subroutine PMPI_Sizeof3DR8(x, size, ierror)
|
||||
real*8, dimension(1,1,*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine PMPI_Sizeof3DR8
|
||||
|
||||
|
||||
subroutine PMPI_Sizeof3DC8(x, size, ierror)
|
||||
complex*8, dimension(1,1,*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine PMPI_Sizeof3DC8
|
||||
|
||||
|
||||
subroutine PMPI_Sizeof3DC16(x, size, ierror)
|
||||
complex*16, dimension(1,1,*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine PMPI_Sizeof3DC16
|
||||
|
||||
|
||||
subroutine PMPI_Sizeof4DCH(x, size, ierror)
|
||||
character, dimension(1,1,1,*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine PMPI_Sizeof4DCH
|
||||
|
||||
|
||||
subroutine PMPI_Sizeof4DL(x, size, ierror)
|
||||
logical, dimension(1,1,1,*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine PMPI_Sizeof4DL
|
||||
|
||||
|
||||
subroutine PMPI_Sizeof4DI1(x, size, ierror)
|
||||
integer*1, dimension(1,1,1,*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine PMPI_Sizeof4DI1
|
||||
|
||||
|
||||
subroutine PMPI_Sizeof4DI2(x, size, ierror)
|
||||
integer*2, dimension(1,1,1,*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine PMPI_Sizeof4DI2
|
||||
|
||||
|
||||
subroutine PMPI_Sizeof4DI4(x, size, ierror)
|
||||
integer*4, dimension(1,1,1,*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine PMPI_Sizeof4DI4
|
||||
|
||||
|
||||
subroutine PMPI_Sizeof4DI8(x, size, ierror)
|
||||
integer*8, dimension(1,1,1,*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine PMPI_Sizeof4DI8
|
||||
|
||||
|
||||
subroutine PMPI_Sizeof4DR4(x, size, ierror)
|
||||
real*4, dimension(1,1,1,*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine PMPI_Sizeof4DR4
|
||||
|
||||
|
||||
subroutine PMPI_Sizeof4DR8(x, size, ierror)
|
||||
real*8, dimension(1,1,1,*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine PMPI_Sizeof4DR8
|
||||
|
||||
|
||||
subroutine PMPI_Sizeof4DC8(x, size, ierror)
|
||||
complex*8, dimension(1,1,1,*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine PMPI_Sizeof4DC8
|
||||
|
||||
|
||||
subroutine PMPI_Sizeof4DC16(x, size, ierror)
|
||||
complex*16, dimension(1,1,1,*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine PMPI_Sizeof4DC16
|
||||
|
||||
|
||||
subroutine PMPI_Sizeof5DCH(x, size, ierror)
|
||||
character, dimension(1,1,1,1,*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine PMPI_Sizeof5DCH
|
||||
|
||||
|
||||
subroutine PMPI_Sizeof5DL(x, size, ierror)
|
||||
logical, dimension(1,1,1,1,*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine PMPI_Sizeof5DL
|
||||
|
||||
|
||||
subroutine PMPI_Sizeof5DI1(x, size, ierror)
|
||||
integer*1, dimension(1,1,1,1,*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine PMPI_Sizeof5DI1
|
||||
|
||||
|
||||
subroutine PMPI_Sizeof5DI2(x, size, ierror)
|
||||
integer*2, dimension(1,1,1,1,*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine PMPI_Sizeof5DI2
|
||||
|
||||
|
||||
subroutine PMPI_Sizeof5DI4(x, size, ierror)
|
||||
integer*4, dimension(1,1,1,1,*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine PMPI_Sizeof5DI4
|
||||
|
||||
|
||||
subroutine PMPI_Sizeof5DI8(x, size, ierror)
|
||||
integer*8, dimension(1,1,1,1,*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine PMPI_Sizeof5DI8
|
||||
|
||||
|
||||
subroutine PMPI_Sizeof5DR4(x, size, ierror)
|
||||
real*4, dimension(1,1,1,1,*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine PMPI_Sizeof5DR4
|
||||
|
||||
|
||||
subroutine PMPI_Sizeof5DR8(x, size, ierror)
|
||||
real*8, dimension(1,1,1,1,*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine PMPI_Sizeof5DR8
|
||||
|
||||
|
||||
subroutine PMPI_Sizeof5DC8(x, size, ierror)
|
||||
complex*8, dimension(1,1,1,1,*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine PMPI_Sizeof5DC8
|
||||
|
||||
|
||||
subroutine PMPI_Sizeof5DC16(x, size, ierror)
|
||||
complex*16, dimension(1,1,1,1,*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine PMPI_Sizeof5DC16
|
||||
|
||||
|
||||
subroutine PMPI_Sizeof6DCH(x, size, ierror)
|
||||
character, dimension(1,1,1,1,1,*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine PMPI_Sizeof6DCH
|
||||
|
||||
|
||||
subroutine PMPI_Sizeof6DL(x, size, ierror)
|
||||
logical, dimension(1,1,1,1,1,*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine PMPI_Sizeof6DL
|
||||
|
||||
|
||||
subroutine PMPI_Sizeof6DI1(x, size, ierror)
|
||||
integer*1, dimension(1,1,1,1,1,*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine PMPI_Sizeof6DI1
|
||||
|
||||
|
||||
subroutine PMPI_Sizeof6DI2(x, size, ierror)
|
||||
integer*2, dimension(1,1,1,1,1,*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine PMPI_Sizeof6DI2
|
||||
|
||||
|
||||
subroutine PMPI_Sizeof6DI4(x, size, ierror)
|
||||
integer*4, dimension(1,1,1,1,1,*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine PMPI_Sizeof6DI4
|
||||
|
||||
|
||||
subroutine PMPI_Sizeof6DI8(x, size, ierror)
|
||||
integer*8, dimension(1,1,1,1,1,*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine PMPI_Sizeof6DI8
|
||||
|
||||
|
||||
subroutine PMPI_Sizeof6DR4(x, size, ierror)
|
||||
real*4, dimension(1,1,1,1,1,*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine PMPI_Sizeof6DR4
|
||||
|
||||
|
||||
subroutine PMPI_Sizeof6DR8(x, size, ierror)
|
||||
real*8, dimension(1,1,1,1,1,*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine PMPI_Sizeof6DR8
|
||||
|
||||
|
||||
subroutine PMPI_Sizeof6DC8(x, size, ierror)
|
||||
complex*8, dimension(1,1,1,1,1,*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine PMPI_Sizeof6DC8
|
||||
|
||||
|
||||
subroutine PMPI_Sizeof6DC16(x, size, ierror)
|
||||
complex*16, dimension(1,1,1,1,1,*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine PMPI_Sizeof6DC16
|
||||
|
||||
|
||||
subroutine PMPI_Sizeof7DCH(x, size, ierror)
|
||||
character, dimension(1,1,1,1,1,1,*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine PMPI_Sizeof7DCH
|
||||
|
||||
|
||||
subroutine PMPI_Sizeof7DL(x, size, ierror)
|
||||
logical, dimension(1,1,1,1,1,1,*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine PMPI_Sizeof7DL
|
||||
|
||||
|
||||
subroutine PMPI_Sizeof7DI1(x, size, ierror)
|
||||
integer*1, dimension(1,1,1,1,1,1,*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine PMPI_Sizeof7DI1
|
||||
|
||||
|
||||
subroutine PMPI_Sizeof7DI2(x, size, ierror)
|
||||
integer*2, dimension(1,1,1,1,1,1,*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine PMPI_Sizeof7DI2
|
||||
|
||||
|
||||
subroutine PMPI_Sizeof7DI4(x, size, ierror)
|
||||
integer*4, dimension(1,1,1,1,1,1,*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine PMPI_Sizeof7DI4
|
||||
|
||||
|
||||
subroutine PMPI_Sizeof7DI8(x, size, ierror)
|
||||
integer*8, dimension(1,1,1,1,1,1,*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine PMPI_Sizeof7DI8
|
||||
|
||||
|
||||
subroutine PMPI_Sizeof7DR4(x, size, ierror)
|
||||
real*4, dimension(1,1,1,1,1,1,*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine PMPI_Sizeof7DR4
|
||||
|
||||
|
||||
subroutine PMPI_Sizeof7DR8(x, size, ierror)
|
||||
real*8, dimension(1,1,1,1,1,1,*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine PMPI_Sizeof7DR8
|
||||
|
||||
|
||||
subroutine PMPI_Sizeof7DC8(x, size, ierror)
|
||||
complex*8, dimension(1,1,1,1,1,1,*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine PMPI_Sizeof7DC8
|
||||
|
||||
|
||||
subroutine PMPI_Sizeof7DC16(x, size, ierror)
|
||||
complex*16, dimension(1,1,1,1,1,1,*), intent(in) :: x
|
||||
integer, intent(out) :: size
|
||||
integer, intent(out) :: ierror
|
||||
end subroutine PMPI_Sizeof7DC16
|
||||
|
||||
end interface
|
||||
|
||||
|
||||
interface PMPI_Start
|
||||
|
||||
subroutine PMPI_Start(request, ierror)
|
||||
|
||||
Загрузка…
x
Ссылка в новой задаче
Block a user