ports/openmpi
ports/openmpi
1
1
Форкнуть 0
Код Релизы Активность

Use some handy shell scripts from W Spector to s/ierr/ierror/ in the

Просмотр исходного кода 
mpi module.

This commit was SVN r28403.
Этот коммит содержится в:
Jeff Squyres 2013-04-26 22:07:42 +00:00
родитель f55cea1a5b
Коммит c9c6ced1c9
101 изменённых файлов: 1659 добавлений и 1659 удалений
Показать статистику Скачать Patch файл Скачать Diff файл Показать все файлы Свернуть все файлы

220
ompi/mpi/fortran/use-mpi-ignore-tkr/mpi-ignore-tkr-file-interfaces.h.in
Просмотреть файл

@ -12,10 +12,10 @@
interface MPI_File_call_errhandler
subroutine MPI_File_call_errhandler(fh, errorcode, ierr)
subroutine MPI_File_call_errhandler(fh, errorcode, ierror)
integer, intent(in) :: fh
integer, intent(in) :: errorcode
integer, intent(out) :: ierr
integer, intent(out) :: ierror
end subroutine MPI_File_call_errhandler
end interface
@ -23,9 +23,9 @@ end interface
interface MPI_File_close
subroutine MPI_File_close(fh, ierr)
subroutine MPI_File_close(fh, ierror)
integer, intent(inout) :: fh
integer, intent(out) :: ierr
integer, intent(out) :: ierror
end subroutine MPI_File_close
end interface
@ -33,10 +33,10 @@ end interface
interface MPI_File_create_errhandler
subroutine MPI_File_create_errhandler(function, errhandler, ierr)
subroutine MPI_File_create_errhandler(function, errhandler, ierror)
external :: function
integer, intent(out) :: errhandler
integer, intent(out) :: ierr
integer, intent(out) :: ierror
end subroutine MPI_File_create_errhandler
end interface
@ -44,10 +44,10 @@ end interface
interface MPI_File_delete
subroutine MPI_File_delete(filename, info, ierr)
subroutine MPI_File_delete(filename, info, ierror)
character(len=*), intent(in) :: filename
integer, intent(in) :: info
integer, intent(out) :: ierr
integer, intent(out) :: ierror
end subroutine MPI_File_delete
end interface
@ -55,10 +55,10 @@ end interface
interface MPI_File_get_amode
subroutine MPI_File_get_amode(fh, amode, ierr)
subroutine MPI_File_get_amode(fh, amode, ierror)
integer, intent(in) :: fh
integer, intent(out) :: amode
integer, intent(out) :: ierr
integer, intent(out) :: ierror
end subroutine MPI_File_get_amode
end interface
@ -66,10 +66,10 @@ end interface
interface MPI_File_get_atomicity
subroutine MPI_File_get_atomicity(fh, flag, ierr)
subroutine MPI_File_get_atomicity(fh, flag, ierror)
integer, intent(in) :: fh
logical, intent(out) :: flag
integer, intent(out) :: ierr
integer, intent(out) :: ierror
end subroutine MPI_File_get_atomicity
end interface
@ -77,12 +77,12 @@ end interface
interface MPI_File_get_byte_offset
subroutine MPI_File_get_byte_offset(fh, offset, disp, ierr)
subroutine MPI_File_get_byte_offset(fh, offset, disp, ierror)
include 'mpif-config.h'
integer, intent(in) :: fh
integer(kind=MPI_OFFSET_KIND), intent(in) :: offset
integer(kind=MPI_OFFSET_KIND), intent(out) :: disp
integer, intent(out) :: ierr
integer, intent(out) :: ierror
end subroutine MPI_File_get_byte_offset
end interface
@ -90,10 +90,10 @@ end interface
interface MPI_File_get_errhandler
subroutine MPI_File_get_errhandler(file, errhandler, ierr)
subroutine MPI_File_get_errhandler(file, errhandler, ierror)
integer, intent(in) :: file
integer, intent(out) :: errhandler
integer, intent(out) :: ierr
integer, intent(out) :: ierror
end subroutine MPI_File_get_errhandler
end interface
@ -101,10 +101,10 @@ end interface
interface MPI_File_get_group
subroutine MPI_File_get_group(fh, group, ierr)
subroutine MPI_File_get_group(fh, group, ierror)
integer, intent(in) :: fh
integer, intent(out) :: group
integer, intent(out) :: ierr
integer, intent(out) :: ierror
end subroutine MPI_File_get_group
end interface
@ -112,10 +112,10 @@ end interface
interface MPI_File_get_info
subroutine MPI_File_get_info(fh, info_used, ierr)
subroutine MPI_File_get_info(fh, info_used, ierror)
integer, intent(in) :: fh
integer, intent(out) :: info_used
integer, intent(out) :: ierr
integer, intent(out) :: ierror
end subroutine MPI_File_get_info
end interface
@ -123,11 +123,11 @@ end interface
interface MPI_File_get_position
subroutine MPI_File_get_position(fh, offset, ierr)
subroutine MPI_File_get_position(fh, offset, ierror)
include 'mpif-config.h'
integer, intent(in) :: fh
integer(kind=MPI_OFFSET_KIND), intent(out) :: offset
integer, intent(out) :: ierr
integer, intent(out) :: ierror
end subroutine MPI_File_get_position
end interface
@ -135,11 +135,11 @@ end interface
interface MPI_File_get_position_shared
subroutine MPI_File_get_position_shared(fh, offset, ierr)
subroutine MPI_File_get_position_shared(fh, offset, ierror)
include 'mpif-config.h'
integer, intent(in) :: fh
integer(kind=MPI_OFFSET_KIND), intent(out) :: offset
integer, intent(out) :: ierr
integer, intent(out) :: ierror
end subroutine MPI_File_get_position_shared
end interface
@ -147,11 +147,11 @@ end interface
interface MPI_File_get_size
subroutine MPI_File_get_size(fh, size, ierr)
subroutine MPI_File_get_size(fh, size, ierror)
include 'mpif-config.h'
integer, intent(in) :: fh
integer(kind=MPI_OFFSET_KIND), intent(out) :: size
integer, intent(out) :: ierr
integer, intent(out) :: ierror
end subroutine MPI_File_get_size
end interface
@ -159,12 +159,12 @@ end interface
interface MPI_File_get_type_extent
subroutine MPI_File_get_type_extent(fh, datatype, extent, ierr)
subroutine MPI_File_get_type_extent(fh, datatype, extent, ierror)
include 'mpif-config.h'
integer, intent(in) :: fh
integer, intent(in) :: datatype
integer(kind=MPI_ADDRESS_KIND), intent(out) :: extent
integer, intent(out) :: ierr
integer, intent(out) :: ierror
end subroutine MPI_File_get_type_extent
end interface
@ -173,14 +173,14 @@ end interface
interface MPI_File_get_view
subroutine MPI_File_get_view(fh, disp, etype, filetype, datarep&
, ierr)
, ierror)
include 'mpif-config.h'
integer, intent(in) :: fh
integer(kind=MPI_OFFSET_KIND), intent(out) :: disp
integer, intent(out) :: etype
integer, intent(out) :: filetype
character(len=*), intent(out) :: datarep
integer, intent(out) :: ierr
integer, intent(out) :: ierror
end subroutine MPI_File_get_view
end interface
@ -189,14 +189,14 @@ end interface
interface MPI_File_iread
subroutine MPI_File_iread(fh, buf, count, datatype, request&
, ierr)
, ierror)
integer, intent(in) :: fh
@OMPI_FORTRAN_IGNORE_TKR_PREDECL@ buf
@OMPI_FORTRAN_IGNORE_TKR_TYPE@ :: buf
integer, intent(in) :: count
integer, intent(in) :: datatype
integer, intent(out) :: request
integer, intent(out) :: ierr
integer, intent(out) :: ierror
end subroutine MPI_File_iread
end interface
@ -205,7 +205,7 @@ end interface
interface MPI_File_iread_at
subroutine MPI_File_iread_at(fh, offset, buf, count, datatype, &
request, ierr)
request, ierror)
include 'mpif-config.h'
integer, intent(in) :: fh
integer(kind=MPI_OFFSET_KIND), intent(in) :: offset
@ -214,7 +214,7 @@ subroutine MPI_File_iread_at(fh, offset, buf, count, datatype, &
integer, intent(in) :: count
integer, intent(in) :: datatype
integer, intent(out) :: request
integer, intent(out) :: ierr
integer, intent(out) :: ierror
end subroutine MPI_File_iread_at
end interface
@ -223,14 +223,14 @@ end interface
interface MPI_File_iread_shared
subroutine MPI_File_iread_shared(fh, buf, count, datatype, request&
, ierr)
, ierror)
integer, intent(in) :: fh
@OMPI_FORTRAN_IGNORE_TKR_PREDECL@ buf
@OMPI_FORTRAN_IGNORE_TKR_TYPE@ :: buf
integer, intent(in) :: count
integer, intent(in) :: datatype
integer, intent(out) :: request
integer, intent(out) :: ierr
integer, intent(out) :: ierror
end subroutine MPI_File_iread_shared
end interface
@ -239,14 +239,14 @@ end interface
interface MPI_File_iwrite
subroutine MPI_File_iwrite(fh, buf, count, datatype, request&
, ierr)
, ierror)
integer, intent(in) :: fh
@OMPI_FORTRAN_IGNORE_TKR_PREDECL@ buf
@OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: buf
integer, intent(in) :: count
integer, intent(in) :: datatype
integer, intent(out) :: request
integer, intent(out) :: ierr
integer, intent(out) :: ierror
end subroutine MPI_File_iwrite
end interface
@ -255,7 +255,7 @@ end interface
interface MPI_File_iwrite_at
subroutine MPI_File_iwrite_at(fh, offset, buf, count, datatype, &
request, ierr)
request, ierror)
include 'mpif-config.h'
integer, intent(in) :: fh
integer(kind=MPI_OFFSET_KIND), intent(in) :: offset
@ -264,7 +264,7 @@ subroutine MPI_File_iwrite_at(fh, offset, buf, count, datatype, &
integer, intent(in) :: count
integer, intent(in) :: datatype
integer, intent(out) :: request
integer, intent(out) :: ierr
integer, intent(out) :: ierror
end subroutine MPI_File_iwrite_at
end interface
@ -273,14 +273,14 @@ end interface
interface MPI_File_iwrite_shared
subroutine MPI_File_iwrite_shared(fh, buf, count, datatype, request&
, ierr)
, ierror)
integer, intent(in) :: fh
@OMPI_FORTRAN_IGNORE_TKR_PREDECL@ buf
@OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: buf
integer, intent(in) :: count
integer, intent(in) :: datatype
integer, intent(out) :: request
integer, intent(out) :: ierr
integer, intent(out) :: ierror
end subroutine MPI_File_iwrite_shared
end interface
@ -289,13 +289,13 @@ end interface
interface MPI_File_open
subroutine MPI_File_open(comm, filename, amode, info, fh&
, ierr)
, ierror)
integer, intent(in) :: comm
character(len=*), intent(in) :: filename
integer, intent(in) :: amode
integer, intent(in) :: info
integer, intent(out) :: fh
integer, intent(out) :: ierr
integer, intent(out) :: ierror
end subroutine MPI_File_open
end interface
@ -303,11 +303,11 @@ end interface
interface MPI_File_preallocate
subroutine MPI_File_preallocate(fh, size, ierr)
subroutine MPI_File_preallocate(fh, size, ierror)
include 'mpif-config.h'
integer, intent(in) :: fh
integer(kind=MPI_OFFSET_KIND), intent(in) :: size
integer, intent(out) :: ierr
integer, intent(out) :: ierror
end subroutine MPI_File_preallocate
end interface
@ -316,7 +316,7 @@ end interface
interface MPI_File_read
subroutine MPI_File_read(fh, buf, count, datatype, status&
, ierr)
, ierror)
include 'mpif-config.h'
integer, intent(in) :: fh
@OMPI_FORTRAN_IGNORE_TKR_PREDECL@ buf
@ -324,7 +324,7 @@ subroutine MPI_File_read(fh, buf, count, datatype, status&
integer, intent(in) :: count
integer, intent(in) :: datatype
integer, dimension(MPI_STATUS_SIZE), intent(out) :: status
integer, intent(out) :: ierr
integer, intent(out) :: ierror
end subroutine MPI_File_read
end interface
@ -333,7 +333,7 @@ end interface
interface MPI_File_read_all
subroutine MPI_File_read_all(fh, buf, count, datatype, status&
, ierr)
, ierror)
include 'mpif-config.h'
integer, intent(in) :: fh
@OMPI_FORTRAN_IGNORE_TKR_PREDECL@ buf
@ -341,7 +341,7 @@ subroutine MPI_File_read_all(fh, buf, count, datatype, status&
integer, intent(in) :: count
integer, intent(in) :: datatype
integer, dimension(MPI_STATUS_SIZE), intent(out) :: status
integer, intent(out) :: ierr
integer, intent(out) :: ierror
end subroutine MPI_File_read_all
end interface
@ -349,13 +349,13 @@ end interface
interface MPI_File_read_all_begin
subroutine MPI_File_read_all_begin(fh, buf, count, datatype, ierr)
subroutine MPI_File_read_all_begin(fh, buf, count, datatype, ierror)
integer, intent(in) :: fh
@OMPI_FORTRAN_IGNORE_TKR_PREDECL@ buf
@OMPI_FORTRAN_IGNORE_TKR_TYPE@ :: buf
integer, intent(in) :: count
integer, intent(in) :: datatype
integer, intent(out) :: ierr
integer, intent(out) :: ierror
end subroutine MPI_File_read_all_begin
end interface
@ -363,13 +363,13 @@ end interface
interface MPI_File_read_all_end
subroutine MPI_File_read_all_end(fh, buf, status, ierr)
subroutine MPI_File_read_all_end(fh, buf, status, ierror)
include 'mpif-config.h'
integer, intent(in) :: fh
@OMPI_FORTRAN_IGNORE_TKR_PREDECL@ buf
@OMPI_FORTRAN_IGNORE_TKR_TYPE@ :: buf
integer, dimension(MPI_STATUS_SIZE), intent(out) :: status
integer, intent(out) :: ierr
integer, intent(out) :: ierror
end subroutine MPI_File_read_all_end
end interface
@ -378,7 +378,7 @@ end interface
interface MPI_File_read_at
subroutine MPI_File_read_at(fh, offset, buf, count, datatype, &
status, ierr)
status, ierror)
include 'mpif-config.h'
integer, intent(in) :: fh
integer(kind=MPI_OFFSET_KIND), intent(in) :: offset
@ -387,7 +387,7 @@ subroutine MPI_File_read_at(fh, offset, buf, count, datatype, &
integer, intent(in) :: count
integer, intent(in) :: datatype
integer, dimension(MPI_STATUS_SIZE), intent(out) :: status
integer, intent(out) :: ierr
integer, intent(out) :: ierror
end subroutine MPI_File_read_at
end interface
@ -396,7 +396,7 @@ end interface
interface MPI_File_read_at_all
subroutine MPI_File_read_at_all(fh, offset, buf, count, datatype, &
status, ierr)
status, ierror)
include 'mpif-config.h'
integer, intent(in) :: fh
integer(kind=MPI_OFFSET_KIND), intent(in) :: offset
@ -405,7 +405,7 @@ subroutine MPI_File_read_at_all(fh, offset, buf, count, datatype, &
integer, intent(in) :: count
integer, intent(in) :: datatype
integer, dimension(MPI_STATUS_SIZE), intent(out) :: status
integer, intent(out) :: ierr
integer, intent(out) :: ierror
end subroutine MPI_File_read_at_all
end interface
@ -414,7 +414,7 @@ end interface
interface MPI_File_read_at_all_begin
subroutine MPI_File_read_at_all_begin(fh, offset, buf, count, datatype&
, ierr)
, ierror)
include 'mpif-config.h'
integer, intent(in) :: fh
integer(kind=MPI_OFFSET_KIND), intent(in) :: offset
@ -422,7 +422,7 @@ subroutine MPI_File_read_at_all_begin(fh, offset, buf, count, datatype&
@OMPI_FORTRAN_IGNORE_TKR_TYPE@ :: buf
integer, intent(in) :: count
integer, intent(in) :: datatype
integer, intent(out) :: ierr
integer, intent(out) :: ierror
end subroutine MPI_File_read_at_all_begin
end interface
@ -430,13 +430,13 @@ end interface
interface MPI_File_read_at_all_end
subroutine MPI_File_read_at_all_end(fh, buf, status, ierr)
subroutine MPI_File_read_at_all_end(fh, buf, status, ierror)
include 'mpif-config.h'
integer, intent(in) :: fh
@OMPI_FORTRAN_IGNORE_TKR_PREDECL@ buf
@OMPI_FORTRAN_IGNORE_TKR_TYPE@ :: buf
integer, dimension(MPI_STATUS_SIZE), intent(out) :: status
integer, intent(out) :: ierr
integer, intent(out) :: ierror
end subroutine MPI_File_read_at_all_end
end interface
@ -445,7 +445,7 @@ end interface
interface MPI_File_read_ordered
subroutine MPI_File_read_ordered(fh, buf, count, datatype, status&
, ierr)
, ierror)
include 'mpif-config.h'
integer, intent(in) :: fh
@OMPI_FORTRAN_IGNORE_TKR_PREDECL@ buf
@ -453,7 +453,7 @@ subroutine MPI_File_read_ordered(fh, buf, count, datatype, status&
integer, intent(in) :: count
integer, intent(in) :: datatype
integer, dimension(MPI_STATUS_SIZE), intent(out) :: status
integer, intent(out) :: ierr
integer, intent(out) :: ierror
end subroutine MPI_File_read_ordered
end interface
@ -461,13 +461,13 @@ end interface
interface MPI_File_read_ordered_begin
subroutine MPI_File_read_ord_begin(fh, buf, count, datatype, ierr)
subroutine MPI_File_read_ord_begin(fh, buf, count, datatype, ierror)
integer, intent(in) :: fh
@OMPI_FORTRAN_IGNORE_TKR_PREDECL@ buf
@OMPI_FORTRAN_IGNORE_TKR_TYPE@ :: buf
integer, intent(in) :: count
integer, intent(in) :: datatype
integer, intent(out) :: ierr
integer, intent(out) :: ierror
end subroutine MPI_File_read_ord_begin
end interface
@ -475,13 +475,13 @@ end interface
interface MPI_File_read_ordered_end
subroutine MPI_File_read_ordered_end(fh, buf, status, ierr)
subroutine MPI_File_read_ordered_end(fh, buf, status, ierror)
include 'mpif-config.h'
integer, intent(in) :: fh
@OMPI_FORTRAN_IGNORE_TKR_PREDECL@ buf
@OMPI_FORTRAN_IGNORE_TKR_TYPE@ :: buf
integer, dimension(MPI_STATUS_SIZE), intent(out) :: status
integer, intent(out) :: ierr
integer, intent(out) :: ierror
end subroutine MPI_File_read_ordered_end
end interface
@ -490,7 +490,7 @@ end interface
interface MPI_File_read_shared
subroutine MPI_File_read_shared(fh, buf, count, datatype, status&
, ierr)
, ierror)
include 'mpif-config.h'
integer, intent(in) :: fh
@OMPI_FORTRAN_IGNORE_TKR_PREDECL@ buf
@ -498,7 +498,7 @@ subroutine MPI_File_read_shared(fh, buf, count, datatype, status&
integer, intent(in) :: count
integer, intent(in) :: datatype
integer, dimension(MPI_STATUS_SIZE), intent(out) :: status
integer, intent(out) :: ierr
integer, intent(out) :: ierror
end subroutine MPI_File_read_shared
end interface
@ -506,12 +506,12 @@ end interface
interface MPI_File_seek
subroutine MPI_File_seek(fh, offset, whence, ierr)
subroutine MPI_File_seek(fh, offset, whence, ierror)
include 'mpif-config.h'
integer, intent(in) :: fh
integer(kind=MPI_OFFSET_KIND), intent(in) :: offset
integer, intent(in) :: whence
integer, intent(out) :: ierr
integer, intent(out) :: ierror
end subroutine MPI_File_seek
end interface
@ -519,12 +519,12 @@ end interface
interface MPI_File_seek_shared
subroutine MPI_File_seek_shared(fh, offset, whence, ierr)
subroutine MPI_File_seek_shared(fh, offset, whence, ierror)
include 'mpif-config.h'
integer, intent(in) :: fh
integer(kind=MPI_OFFSET_KIND), intent(in) :: offset
integer, intent(in) :: whence
integer, intent(out) :: ierr
integer, intent(out) :: ierror
end subroutine MPI_File_seek_shared
end interface
@ -532,10 +532,10 @@ end interface
interface MPI_File_set_atomicity
subroutine MPI_File_set_atomicity(fh, flag, ierr)
subroutine MPI_File_set_atomicity(fh, flag, ierror)
integer, intent(in) :: fh
logical, intent(in) :: flag
integer, intent(out) :: ierr
integer, intent(out) :: ierror
end subroutine MPI_File_set_atomicity
end interface
@ -543,10 +543,10 @@ end interface
interface MPI_File_set_errhandler
subroutine MPI_File_set_errhandler(file, errhandler, ierr)
subroutine MPI_File_set_errhandler(file, errhandler, ierror)
integer, intent(in) :: file
integer, intent(in) :: errhandler
integer, intent(out) :: ierr
integer, intent(out) :: ierror
end subroutine MPI_File_set_errhandler
end interface
@ -554,10 +554,10 @@ end interface
interface MPI_File_set_info
subroutine MPI_File_set_info(fh, info, ierr)
subroutine MPI_File_set_info(fh, info, ierror)
integer, intent(in) :: fh
integer, intent(in) :: info
integer, intent(out) :: ierr
integer, intent(out) :: ierror
end subroutine MPI_File_set_info
end interface
@ -565,11 +565,11 @@ end interface
interface MPI_File_set_size
subroutine MPI_File_set_size(fh, size, ierr)
subroutine MPI_File_set_size(fh, size, ierror)
include 'mpif-config.h'
integer, intent(in) :: fh
integer(kind=MPI_OFFSET_KIND), intent(in) :: size
integer, intent(out) :: ierr
integer, intent(out) :: ierror
end subroutine MPI_File_set_size
end interface
@ -578,7 +578,7 @@ end interface
interface MPI_File_set_view
subroutine MPI_File_set_view(fh, disp, etype, filetype, datarep, &
info, ierr)
info, ierror)
include 'mpif-config.h'
integer, intent(in) :: fh
integer(kind=MPI_OFFSET_KIND), intent(in) :: disp
@ -586,7 +586,7 @@ subroutine MPI_File_set_view(fh, disp, etype, filetype, datarep, &
integer, intent(in) :: filetype
character(len=*), intent(in) :: datarep
integer, intent(in) :: info
integer, intent(out) :: ierr
integer, intent(out) :: ierror
end subroutine MPI_File_set_view
end interface
@ -594,9 +594,9 @@ end interface
interface MPI_File_sync
subroutine MPI_File_sync(fh, ierr)
subroutine MPI_File_sync(fh, ierror)
integer, intent(in) :: fh
integer, intent(out) :: ierr
integer, intent(out) :: ierror
end subroutine MPI_File_sync
end interface
@ -605,7 +605,7 @@ end interface
interface MPI_File_write
subroutine MPI_File_write(fh, buf, count, datatype, status&
, ierr)
, ierror)
include 'mpif-config.h'
integer, intent(in) :: fh
@OMPI_FORTRAN_IGNORE_TKR_PREDECL@ buf
@ -613,7 +613,7 @@ subroutine MPI_File_write(fh, buf, count, datatype, status&
integer, intent(in) :: count
integer, intent(in) :: datatype
integer, dimension(MPI_STATUS_SIZE), intent(out) :: status
integer, intent(out) :: ierr
integer, intent(out) :: ierror
end subroutine MPI_File_write
end interface
@ -622,7 +622,7 @@ end interface
interface MPI_File_write_all
subroutine MPI_File_write_all(fh, buf, count, datatype, status&
, ierr)
, ierror)
include 'mpif-config.h'
integer, intent(in) :: fh
@OMPI_FORTRAN_IGNORE_TKR_PREDECL@ buf
@ -630,7 +630,7 @@ subroutine MPI_File_write_all(fh, buf, count, datatype, status&
integer, intent(in) :: count
integer, intent(in) :: datatype
integer, dimension(MPI_STATUS_SIZE), intent(out) :: status
integer, intent(out) :: ierr
integer, intent(out) :: ierror
end subroutine MPI_File_write_all
end interface
@ -638,13 +638,13 @@ end interface
interface MPI_File_write_all_begin
subroutine MPI_File_write_all_begin(fh, buf, count, datatype, ierr)
subroutine MPI_File_write_all_begin(fh, buf, count, datatype, ierror)
integer, intent(in) :: fh
@OMPI_FORTRAN_IGNORE_TKR_PREDECL@ buf
@OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: buf
integer, intent(in) :: count
integer, intent(in) :: datatype
integer, intent(out) :: ierr
integer, intent(out) :: ierror
end subroutine MPI_File_write_all_begin
end interface
@ -652,13 +652,13 @@ end interface
interface MPI_File_write_all_end
subroutine MPI_File_write_all_end(fh, buf, status, ierr)
subroutine MPI_File_write_all_end(fh, buf, status, ierror)
include 'mpif-config.h'
integer, intent(in) :: fh
@OMPI_FORTRAN_IGNORE_TKR_PREDECL@ buf
@OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: buf
integer, dimension(MPI_STATUS_SIZE), intent(out) :: status
integer, intent(out) :: ierr
integer, intent(out) :: ierror
end subroutine MPI_File_write_all_end
end interface
@ -667,7 +667,7 @@ end interface
interface MPI_File_write_at
subroutine MPI_File_write_at(fh, offset, buf, count, datatype, &
status, ierr)
status, ierror)
include 'mpif-config.h'
integer, intent(in) :: fh
integer(kind=MPI_OFFSET_KIND), intent(in) :: offset
@ -676,7 +676,7 @@ subroutine MPI_File_write_at(fh, offset, buf, count, datatype, &
integer, intent(in) :: count
integer, intent(in) :: datatype
integer, dimension(MPI_STATUS_SIZE), intent(out) :: status
integer, intent(out) :: ierr
integer, intent(out) :: ierror
end subroutine MPI_File_write_at
end interface
@ -685,7 +685,7 @@ end interface
interface MPI_File_write_at_all
subroutine MPI_File_write_at_all(fh, offset, buf, count, datatype, &
status, ierr)
status, ierror)
include 'mpif-config.h'
integer, intent(in) :: fh
integer(kind=MPI_OFFSET_KIND), intent(in) :: offset
@ -694,7 +694,7 @@ subroutine MPI_File_write_at_all(fh, offset, buf, count, datatype, &
integer, intent(in) :: count
integer, intent(in) :: datatype
integer, dimension(MPI_STATUS_SIZE), intent(out) :: status
integer, intent(out) :: ierr
integer, intent(out) :: ierror
end subroutine MPI_File_write_at_all
end interface
@ -703,7 +703,7 @@ end interface
interface MPI_File_write_at_all_begin
subroutine MPI_File_wr_at_all_begin(fh, offset, buf, count, datatype&
, ierr)
, ierror)
include 'mpif-config.h'
integer, intent(in) :: fh
integer(kind=MPI_OFFSET_KIND), intent(in) :: offset
@ -711,7 +711,7 @@ subroutine MPI_File_wr_at_all_begin(fh, offset, buf, count, datatype&
@OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: buf
integer, intent(in) :: count
integer, intent(in) :: datatype
integer, intent(out) :: ierr
integer, intent(out) :: ierror
end subroutine MPI_File_wr_at_all_begin
end interface
@ -719,13 +719,13 @@ end interface
interface MPI_File_write_at_all_end
subroutine MPI_File_write_at_all_end(fh, buf, status, ierr)
subroutine MPI_File_write_at_all_end(fh, buf, status, ierror)
include 'mpif-config.h'
integer, intent(in) :: fh
@OMPI_FORTRAN_IGNORE_TKR_PREDECL@ buf
@OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: buf
integer, dimension(MPI_STATUS_SIZE), intent(out) :: status
integer, intent(out) :: ierr
integer, intent(out) :: ierror
end subroutine MPI_File_write_at_all_end
end interface
@ -734,7 +734,7 @@ end interface
interface MPI_File_write_ordered
subroutine MPI_File_write_ordered(fh, buf, count, datatype, status&
, ierr)
, ierror)
include 'mpif-config.h'
integer, intent(in) :: fh
@OMPI_FORTRAN_IGNORE_TKR_PREDECL@ buf
@ -742,7 +742,7 @@ subroutine MPI_File_write_ordered(fh, buf, count, datatype, status&
integer, intent(in) :: count
integer, intent(in) :: datatype
integer, dimension(MPI_STATUS_SIZE), intent(out) :: status
integer, intent(out) :: ierr
integer, intent(out) :: ierror
end subroutine MPI_File_write_ordered
end interface
@ -750,13 +750,13 @@ end interface
interface MPI_File_write_ordered_begin
subroutine MPI_File_write_ordered_begin(fh, buf, count, datatype, ierr)
subroutine MPI_File_write_ordered_begin(fh, buf, count, datatype, ierror)
integer, intent(in) :: fh
@OMPI_FORTRAN_IGNORE_TKR_PREDECL@ buf
@OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: buf
integer, intent(in) :: count
integer, intent(in) :: datatype
integer, intent(out) :: ierr
integer, intent(out) :: ierror
end subroutine MPI_File_write_ordered_begin
end interface
@ -764,13 +764,13 @@ end interface
interface MPI_File_write_ordered_end
subroutine MPI_File_write_ordered_end(fh, buf, status, ierr)
subroutine MPI_File_write_ordered_end(fh, buf, status, ierror)
include 'mpif-config.h'
integer, intent(in) :: fh
@OMPI_FORTRAN_IGNORE_TKR_PREDECL@ buf
@OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: buf
integer, dimension(MPI_STATUS_SIZE), intent(out) :: status
integer, intent(out) :: ierr
integer, intent(out) :: ierror
end subroutine MPI_File_write_ordered_end
end interface
@ -779,7 +779,7 @@ end interface
interface MPI_File_write_shared
subroutine MPI_File_write_shared(fh, buf, count, datatype, status&
, ierr)
, ierror)
include 'mpif-config.h'
integer, intent(in) :: fh
@OMPI_FORTRAN_IGNORE_TKR_PREDECL@ buf
@ -787,7 +787,7 @@ subroutine MPI_File_write_shared(fh, buf, count, datatype, status&
integer, intent(in) :: count
integer, intent(in) :: datatype
integer, dimension(MPI_STATUS_SIZE), intent(out) :: status
integer, intent(out) :: ierr
integer, intent(out) :: ierror
end subroutine MPI_File_write_shared
end interface

1216
ompi/mpi/fortran/use-mpi-ignore-tkr/mpi-ignore-tkr-interfaces.h.in
Просмотреть файл

Разница между файлами не показана из-за своего большого размера Загрузить разницу

1240
ompi/mpi/fortran/use-mpi-tkr/scripts/mpi-f90-interfaces.h.sh
Просмотреть файл

Разница между файлами не показана из-за своего большого размера Загрузить разницу

6
ompi/mpi/fortran/use-mpi-tkr/scripts/mpi_accumulate_f90.f90.sh
Просмотреть файл

@ -47,7 +47,7 @@ output() {
cat <<EOF
subroutine ${proc}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
target_count, target_datatype, op, win, ierr)
target_count, target_datatype, op, win, ierror)
include "mpif-config.h"
${type} :: origin_addr
integer, intent(in) :: origin_count
@ -58,9 +58,9 @@ subroutine ${proc}(origin_addr, origin_count, origin_datatype, target_rank, targ
integer, intent(in) :: target_datatype
integer, intent(in) :: op
integer, intent(in) :: win
integer, intent(out) :: ierr
integer, intent(out) :: ierror
call ${procedure}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
target_count, target_datatype, op, win, ierr)
target_count, target_datatype, op, win, ierror)
end subroutine ${proc}
EOF

6
ompi/mpi/fortran/use-mpi-tkr/scripts/mpi_address_f90.f90.sh
Просмотреть файл

@ -46,12 +46,12 @@ output() {
cat <<EOF
subroutine ${proc}(location, address, ierr)
subroutine ${proc}(location, address, ierror)
include "mpif-config.h"
${type}, intent(in) :: location
integer, intent(out) :: address
integer, intent(out) :: ierr
call ${procedure}(location, address, ierr)
integer, intent(out) :: ierror
call ${procedure}(location, address, ierror)
end subroutine ${proc}
EOF

6
ompi/mpi/fortran/use-mpi-tkr/scripts/mpi_allgather_f90.f90.sh
Просмотреть файл

@ -47,7 +47,7 @@ output() {
cat <<EOF
subroutine ${proc}(sendbuf, sendcount, sendtype, recvbuf, recvcount, &
recvtype, comm, ierr)
recvtype, comm, ierror)
include "mpif-config.h"
${type}, intent(in) :: sendbuf
integer, intent(in) :: sendcount
@ -56,9 +56,9 @@ subroutine ${proc}(sendbuf, sendcount, sendtype, recvbuf, recvcount, &
integer, intent(in) :: recvcount
integer, intent(in) :: recvtype
integer, intent(in) :: comm
integer, intent(out) :: ierr
integer, intent(out) :: ierror
call ${procedure}(sendbuf, sendcount, sendtype, recvbuf, recvcount, &
recvtype, comm, ierr)
recvtype, comm, ierror)
end subroutine ${proc}
EOF

6
ompi/mpi/fortran/use-mpi-tkr/scripts/mpi_allgatherv_f90.f90.sh
Просмотреть файл

@ -47,7 +47,7 @@ output() {
cat <<EOF
subroutine ${proc}(sendbuf, sendcount, sendtype, recvbuf, recvcounts, &
displs, recvtype, comm, ierr)
displs, recvtype, comm, ierror)
include "mpif-config.h"
${type}, intent(in) :: sendbuf
integer, intent(in) :: sendcount
@ -57,9 +57,9 @@ subroutine ${proc}(sendbuf, sendcount, sendtype, recvbuf, recvcounts, &
integer, dimension(*), intent(in) :: displs
integer, intent(in) :: recvtype
integer, intent(in) :: comm
integer, intent(out) :: ierr
integer, intent(out) :: ierror
call ${procedure}(sendbuf, sendcount, sendtype, recvbuf, recvcounts, &
displs, recvtype, comm, ierr)
displs, recvtype, comm, ierror)
end subroutine ${proc}
EOF

6
ompi/mpi/fortran/use-mpi-tkr/scripts/mpi_allreduce_f90.f90.sh
Просмотреть файл

@ -47,7 +47,7 @@ output() {
cat <<EOF
subroutine ${proc}(sendbuf, recvbuf, count, datatype, op, &
comm, ierr)
comm, ierror)
include "mpif-config.h"
${type}, intent(in) :: sendbuf
${type} :: recvbuf
@ -55,9 +55,9 @@ subroutine ${proc}(sendbuf, recvbuf, count, datatype, op, &
integer, intent(in) :: datatype
integer, intent(in) :: op
integer, intent(in) :: comm
integer, intent(out) :: ierr
integer, intent(out) :: ierror
call ${procedure}(sendbuf, recvbuf, count, datatype, op, &
comm, ierr)
comm, ierror)
end subroutine ${proc}
EOF

6
ompi/mpi/fortran/use-mpi-tkr/scripts/mpi_alltoall_f90.f90.sh
Просмотреть файл

@ -47,7 +47,7 @@ output() {
cat <<EOF
subroutine ${proc}(sendbuf, sendcount, sendtype, recvbuf, recvcount, &
recvtype, comm, ierr)
recvtype, comm, ierror)
include "mpif-config.h"
${type}, intent(in) :: sendbuf
integer, intent(in) :: sendcount
@ -56,9 +56,9 @@ subroutine ${proc}(sendbuf, sendcount, sendtype, recvbuf, recvcount, &
integer, intent(in) :: recvcount
integer, intent(in) :: recvtype
integer, intent(in) :: comm
integer, intent(out) :: ierr
integer, intent(out) :: ierror
call ${procedure}(sendbuf, sendcount, sendtype, recvbuf, recvcount, &
recvtype, comm, ierr)
recvtype, comm, ierror)
end subroutine ${proc}
EOF

6
ompi/mpi/fortran/use-mpi-tkr/scripts/mpi_alltoallv_f90.f90.sh
Просмотреть файл

@ -47,7 +47,7 @@ output() {
cat <<EOF
subroutine ${proc}(sendbuf, sendcounts, sdispls, sendtype, recvbuf, &
recvcounts, rdispls, recvtype, comm, ierr)
recvcounts, rdispls, recvtype, comm, ierror)
include "mpif-config.h"
${type}, intent(in) :: sendbuf
integer, dimension(*), intent(in) :: sendcounts
@ -58,9 +58,9 @@ subroutine ${proc}(sendbuf, sendcounts, sdispls, sendtype, recvbuf, &
integer, dimension(*), intent(in) :: rdispls
integer, intent(in) :: recvtype
integer, intent(in) :: comm
integer, intent(out) :: ierr
integer, intent(out) :: ierror
call ${procedure}(sendbuf, sendcounts, sdispls, sendtype, recvbuf, &
recvcounts, rdispls, recvtype, comm, ierr)
recvcounts, rdispls, recvtype, comm, ierror)
end subroutine ${proc}
EOF

6
ompi/mpi/fortran/use-mpi-tkr/scripts/mpi_alltoallw_f90.f90.sh
Просмотреть файл

@ -47,7 +47,7 @@ output() {
cat <<EOF
subroutine ${proc}(sendbuf, sendcounts, sdispls, sendtypes, recvbuf, &
recvcounts, rdispls, recvtypes, comm, ierr)
recvcounts, rdispls, recvtypes, comm, ierror)
include "mpif-config.h"
${type}, intent(in) :: sendbuf
integer, dimension(*), intent(in) :: sendcounts
@ -58,9 +58,9 @@ subroutine ${proc}(sendbuf, sendcounts, sdispls, sendtypes, recvbuf, &
integer, dimension(*), intent(in) :: rdispls
integer, dimension(*), intent(in) :: recvtypes
integer, intent(in) :: comm
integer, intent(out) :: ierr
integer, intent(out) :: ierror
call ${procedure}(sendbuf, sendcounts, sdispls, sendtypes, recvbuf, &
recvcounts, rdispls, recvtypes, comm, ierr)
recvcounts, rdispls, recvtypes, comm, ierror)
end subroutine ${proc}
EOF

6
ompi/mpi/fortran/use-mpi-tkr/scripts/mpi_bcast_f90.f90.sh
Просмотреть файл

@ -47,16 +47,16 @@ output() {
cat <<EOF
subroutine ${proc}(buffer, count, datatype, root, comm&
, ierr)
, ierror)
include "mpif-config.h"
${type} :: buffer
integer, intent(in) :: count
integer, intent(in) :: datatype
integer, intent(in) :: root
integer, intent(in) :: comm
integer, intent(out) :: ierr
integer, intent(out) :: ierror
call ${procedure}(buffer, count, datatype, root, comm&
, ierr)
, ierror)
end subroutine ${proc}
EOF

6
ompi/mpi/fortran/use-mpi-tkr/scripts/mpi_bsend_f90.f90.sh
Просмотреть файл

@ -47,7 +47,7 @@ output() {
cat <<EOF
subroutine ${proc}(buf, count, datatype, dest, tag, &
comm, ierr)
comm, ierror)
include "mpif-config.h"
${type}, intent(in) :: buf
integer, intent(in) :: count
@ -55,9 +55,9 @@ subroutine ${proc}(buf, count, datatype, dest, tag, &
integer, intent(in) :: dest
integer, intent(in) :: tag
integer, intent(in) :: comm
integer, intent(out) :: ierr
integer, intent(out) :: ierror
call ${procedure}(buf, count, datatype, dest, tag, &
comm, ierr)
comm, ierror)
end subroutine ${proc}
EOF

6
ompi/mpi/fortran/use-mpi-tkr/scripts/mpi_bsend_init_f90.f90.sh
Просмотреть файл

@ -47,7 +47,7 @@ output() {
cat <<EOF
subroutine ${proc}(buf, count, datatype, dest, tag, &
comm, request, ierr)
comm, request, ierror)
include "mpif-config.h"
${type}, intent(in) :: buf
integer, intent(in) :: count
@ -56,9 +56,9 @@ subroutine ${proc}(buf, count, datatype, dest, tag, &
integer, intent(in) :: tag
integer, intent(in) :: comm
integer, intent(out) :: request
integer, intent(out) :: ierr
integer, intent(out) :: ierror
call ${procedure}(buf, count, datatype, dest, tag, &
comm, request, ierr)
comm, request, ierror)
end subroutine ${proc}
EOF

6
ompi/mpi/fortran/use-mpi-tkr/scripts/mpi_buffer_attach_f90.f90.sh
Просмотреть файл

@ -46,12 +46,12 @@ output() {
cat <<EOF
subroutine ${proc}(buffer, size, ierr)
subroutine ${proc}(buffer, size, ierror)
include "mpif-config.h"
${type}, intent(in) :: buffer
integer, intent(in) :: size
integer, intent(out) :: ierr
call ${procedure}(buffer, size, ierr)
integer, intent(out) :: ierror
call ${procedure}(buffer, size, ierror)
end subroutine ${proc}
EOF

6
ompi/mpi/fortran/use-mpi-tkr/scripts/mpi_buffer_detach_f90.f90.sh
Просмотреть файл

@ -46,12 +46,12 @@ output() {
cat <<EOF
subroutine ${proc}(buffer, size, ierr)
subroutine ${proc}(buffer, size, ierror)
include "mpif-config.h"
${type}, intent(out) :: buffer
integer, intent(out) :: size
integer, intent(out) :: ierr
call ${procedure}(buffer, size, ierr)
integer, intent(out) :: ierror
call ${procedure}(buffer, size, ierror)
end subroutine ${proc}
EOF

6
ompi/mpi/fortran/use-mpi-tkr/scripts/mpi_comm_spawn_multiple_f90.f90.sh
Просмотреть файл

@ -43,7 +43,7 @@ output() {
cat <<EOF
subroutine ${proc}(count, array_of_commands, array_of_argv, &
array_of_maxprocs, array_of_info, &
root, comm, intercomm, array_of_errcodes, ierr)
root, comm, intercomm, array_of_errcodes, ierror)
include 'mpif-config.h'
integer, intent(in) :: count
character(len=*), dimension(*), intent(in) :: array_of_commands
@ -54,11 +54,11 @@ subroutine ${proc}(count, array_of_commands, array_of_argv, &
integer, intent(in) :: comm
integer, intent(out) :: intercomm
integer, dimension(*), intent(out) :: array_of_errcodes
integer, intent(out) :: ierr
integer, intent(out) :: ierror
call ${procedure}(count, array_of_commands, array_of_argv, &
array_of_maxprocs, array_of_info, root, comm, intercomm, &
array_of_errcodes, ierr)
array_of_errcodes, ierror)
end subroutine ${proc}
EOF

6
ompi/mpi/fortran/use-mpi-tkr/scripts/mpi_exscan_f90.f90.sh
Просмотреть файл

@ -47,7 +47,7 @@ output() {
cat <<EOF
subroutine ${proc}(sendbuf, recvbuf, count, datatype, op, &
comm, ierr)
comm, ierror)
include "mpif-config.h"
${type}, intent(in) :: sendbuf
${type} :: recvbuf
@ -55,9 +55,9 @@ subroutine ${proc}(sendbuf, recvbuf, count, datatype, op, &
integer, intent(in) :: datatype
integer, intent(in) :: op
integer, intent(in) :: comm
integer, intent(out) :: ierr
integer, intent(out) :: ierror
call ${procedure}(sendbuf, recvbuf, count, datatype, op, &
comm, ierr)
comm, ierror)
end subroutine ${proc}
EOF

6
ompi/mpi/fortran/use-mpi-tkr/scripts/mpi_file_iread_at_f90.f90.sh
Просмотреть файл

@ -47,7 +47,7 @@ output() {
cat <<EOF
subroutine ${proc}(fh, offset, buf, count, datatype, &
request, ierr)
request, ierror)
include "mpif-config.h"
integer, intent(in) :: fh
integer(kind=MPI_OFFSET_KIND), intent(in) :: offset
@ -55,9 +55,9 @@ subroutine ${proc}(fh, offset, buf, count, datatype, &
integer, intent(in) :: count
integer, intent(in) :: datatype
integer, intent(out) :: request
integer, intent(out) :: ierr
integer, intent(out) :: ierror
call ${procedure}(fh, offset, buf, count, datatype, &
request, ierr)
request, ierror)
end subroutine ${proc}
EOF

6
ompi/mpi/fortran/use-mpi-tkr/scripts/mpi_file_iread_f90.f90.sh
Просмотреть файл

@ -47,16 +47,16 @@ output() {
cat <<EOF
subroutine ${proc}(fh, buf, count, datatype, request&
, ierr)
, ierror)
include "mpif-config.h"
integer, intent(in) :: fh
${type} :: buf
integer, intent(in) :: count
integer, intent(in) :: datatype
integer, intent(out) :: request
integer, intent(out) :: ierr
integer, intent(out) :: ierror
call ${procedure}(fh, buf, count, datatype, request&
, ierr)
, ierror)
end subroutine ${proc}
EOF

6
ompi/mpi/fortran/use-mpi-tkr/scripts/mpi_file_iread_shared_f90.f90.sh
Просмотреть файл

@ -47,16 +47,16 @@ output() {
cat <<EOF
subroutine ${proc}(fh, buf, count, datatype, request&
, ierr)
, ierror)
include "mpif-config.h"
integer, intent(in) :: fh
${type} :: buf
integer, intent(in) :: count
integer, intent(in) :: datatype
integer, intent(out) :: request
integer, intent(out) :: ierr
integer, intent(out) :: ierror
call ${procedure}(fh, buf, count, datatype, request&
, ierr)
, ierror)
end subroutine ${proc}
EOF

6
ompi/mpi/fortran/use-mpi-tkr/scripts/mpi_file_iwrite_at_f90.f90.sh
Просмотреть файл

@ -47,7 +47,7 @@ output() {
cat <<EOF
subroutine ${proc}(fh, offset, buf, count, datatype, &
request, ierr)
request, ierror)
include "mpif-config.h"
integer, intent(in) :: fh
integer(kind=MPI_OFFSET_KIND), intent(in) :: offset
@ -55,9 +55,9 @@ subroutine ${proc}(fh, offset, buf, count, datatype, &
integer, intent(in) :: count
integer, intent(in) :: datatype
integer, intent(out) :: request
integer, intent(out) :: ierr
integer, intent(out) :: ierror
call ${procedure}(fh, offset, buf, count, datatype, &
request, ierr)
request, ierror)
end subroutine ${proc}
EOF

6
ompi/mpi/fortran/use-mpi-tkr/scripts/mpi_file_iwrite_f90.f90.sh
Просмотреть файл

@ -47,16 +47,16 @@ output() {
cat <<EOF
subroutine ${proc}(fh, buf, count, datatype, request&
, ierr)
, ierror)
include "mpif-config.h"
integer, intent(in) :: fh
${type}, intent(in) :: buf
integer, intent(in) :: count
integer, intent(in) :: datatype
integer, intent(out) :: request
integer, intent(out) :: ierr
integer, intent(out) :: ierror
call ${procedure}(fh, buf, count, datatype, request&
, ierr)
, ierror)
end subroutine ${proc}
EOF

6
ompi/mpi/fortran/use-mpi-tkr/scripts/mpi_file_iwrite_shared_f90.f90.sh
Просмотреть файл

@ -47,16 +47,16 @@ output() {
cat <<EOF
subroutine ${proc}(fh, buf, count, datatype, request&
, ierr)
, ierror)
include "mpif-config.h"
integer, intent(in) :: fh
${type}, intent(in) :: buf
integer, intent(in) :: count
integer, intent(in) :: datatype
integer, intent(out) :: request
integer, intent(out) :: ierr
integer, intent(out) :: ierror
call ${procedure}(fh, buf, count, datatype, request&
, ierr)
, ierror)
end subroutine ${proc}
EOF

6
ompi/mpi/fortran/use-mpi-tkr/scripts/mpi_file_read_all_begin_f90.f90.sh
Просмотреть файл

@ -46,14 +46,14 @@ output() {
cat <<EOF
subroutine ${proc}(fh, buf, count, datatype, ierr)
subroutine ${proc}(fh, buf, count, datatype, ierror)
include "mpif-config.h"
integer, intent(in) :: fh
${type} :: buf
integer, intent(in) :: count
integer, intent(in) :: datatype
integer, intent(out) :: ierr
call ${procedure}(fh, buf, count, datatype, ierr)
integer, intent(out) :: ierror
call ${procedure}(fh, buf, count, datatype, ierror)
end subroutine ${proc}
EOF

6
ompi/mpi/fortran/use-mpi-tkr/scripts/mpi_file_read_all_end_f90.f90.sh
Просмотреть файл

@ -46,13 +46,13 @@ output() {
cat <<EOF
subroutine ${proc}(fh, buf, status, ierr)
subroutine ${proc}(fh, buf, status, ierror)
include "mpif-config.h"
integer, intent(in) :: fh
${type} :: buf
integer, dimension(MPI_STATUS_SIZE), intent(out) :: status
integer, intent(out) :: ierr
call ${procedure}(fh, buf, status, ierr)
integer, intent(out) :: ierror
call ${procedure}(fh, buf, status, ierror)
end subroutine ${proc}
EOF

6
ompi/mpi/fortran/use-mpi-tkr/scripts/mpi_file_read_all_f90.f90.sh
Просмотреть файл

@ -47,16 +47,16 @@ output() {
cat <<EOF
subroutine ${proc}(fh, buf, count, datatype, status&
, ierr)
, ierror)
include "mpif-config.h"
integer, intent(in) :: fh
${type} :: buf
integer, intent(in) :: count
integer, intent(in) :: datatype
integer, dimension(MPI_STATUS_SIZE), intent(out) :: status
integer, intent(out) :: ierr
integer, intent(out) :: ierror
call ${procedure}(fh, buf, count, datatype, status&
, ierr)
, ierror)
end subroutine ${proc}
EOF

6
ompi/mpi/fortran/use-mpi-tkr/scripts/mpi_file_read_at_all_begin_f90.f90.sh
Просмотреть файл

@ -47,16 +47,16 @@ output() {
cat <<EOF
subroutine ${proc}(fh, offset, buf, count, datatype&
, ierr)
, ierror)
include "mpif-config.h"
integer, intent(in) :: fh
integer(kind=MPI_OFFSET_KIND), intent(in) :: offset
${type} :: buf
integer, intent(in) :: count
integer, intent(in) :: datatype
integer, intent(out) :: ierr
integer, intent(out) :: ierror
call ${procedure}(fh, offset, buf, count, datatype&
, ierr)
, ierror)
end subroutine ${proc}
EOF

6
ompi/mpi/fortran/use-mpi-tkr/scripts/mpi_file_read_at_all_end_f90.f90.sh
Просмотреть файл

@ -46,13 +46,13 @@ output() {
cat <<EOF
subroutine ${proc}(fh, buf, status, ierr)
subroutine ${proc}(fh, buf, status, ierror)
include "mpif-config.h"
integer, intent(in) :: fh
${type} :: buf
integer, dimension(MPI_STATUS_SIZE), intent(out) :: status
integer, intent(out) :: ierr
call ${procedure}(fh, buf, status, ierr)
integer, intent(out) :: ierror
call ${procedure}(fh, buf, status, ierror)
end subroutine ${proc}
EOF

6
ompi/mpi/fortran/use-mpi-tkr/scripts/mpi_file_read_at_all_f90.f90.sh
Просмотреть файл

@ -47,7 +47,7 @@ output() {
cat <<EOF
subroutine ${proc}(fh, offset, buf, count, datatype, &
status, ierr)
status, ierror)
include "mpif-config.h"
integer, intent(in) :: fh
integer(kind=MPI_OFFSET_KIND), intent(in) :: offset
@ -55,9 +55,9 @@ subroutine ${proc}(fh, offset, buf, count, datatype, &
integer, intent(in) :: count
integer, intent(in) :: datatype
integer, dimension(MPI_STATUS_SIZE), intent(out) :: status
integer, intent(out) :: ierr
integer, intent(out) :: ierror
call ${procedure}(fh, offset, buf, count, datatype, &
status, ierr)
status, ierror)
end subroutine ${proc}
EOF

6
ompi/mpi/fortran/use-mpi-tkr/scripts/mpi_file_read_at_f90.f90.sh
Просмотреть файл

@ -47,7 +47,7 @@ output() {
cat <<EOF
subroutine ${proc}(fh, offset, buf, count, datatype, &
status, ierr)
status, ierror)
include "mpif-config.h"
integer, intent(in) :: fh
integer(kind=MPI_OFFSET_KIND), intent(in) :: offset
@ -55,9 +55,9 @@ subroutine ${proc}(fh, offset, buf, count, datatype, &
integer, intent(in) :: count
integer, intent(in) :: datatype
integer, dimension(MPI_STATUS_SIZE), intent(out) :: status
integer, intent(out) :: ierr
integer, intent(out) :: ierror
call ${procedure}(fh, offset, buf, count, datatype, &
status, ierr)
status, ierror)
end subroutine ${proc}
EOF

6
ompi/mpi/fortran/use-mpi-tkr/scripts/mpi_file_read_f90.f90.sh
Просмотреть файл

@ -47,16 +47,16 @@ output() {
cat <<EOF
subroutine ${proc}(fh, buf, count, datatype, status&
, ierr)
, ierror)
include "mpif-config.h"
integer, intent(in) :: fh
${type} :: buf
integer, intent(in) :: count
integer, intent(in) :: datatype
integer, dimension(MPI_STATUS_SIZE), intent(out) :: status
integer, intent(out) :: ierr
integer, intent(out) :: ierror
call ${procedure}(fh, buf, count, datatype, status&
, ierr)
, ierror)
end subroutine ${proc}
EOF

6
ompi/mpi/fortran/use-mpi-tkr/scripts/mpi_file_read_ordered_begin_f90.f90.sh
Просмотреть файл

@ -46,14 +46,14 @@ output() {
cat <<EOF
subroutine ${proc}(fh, buf, count, datatype, ierr)
subroutine ${proc}(fh, buf, count, datatype, ierror)
include "mpif-config.h"
integer, intent(in) :: fh
${type} :: buf
integer, intent(in) :: count
integer, intent(in) :: datatype
integer, intent(out) :: ierr
call ${procedure}(fh, buf, count, datatype, ierr)
integer, intent(out) :: ierror
call ${procedure}(fh, buf, count, datatype, ierror)
end subroutine ${proc}
EOF

6
ompi/mpi/fortran/use-mpi-tkr/scripts/mpi_file_read_ordered_end_f90.f90.sh
Просмотреть файл

@ -46,13 +46,13 @@ output() {
cat <<EOF
subroutine ${proc}(fh, buf, status, ierr)
subroutine ${proc}(fh, buf, status, ierror)
include "mpif-config.h"
integer, intent(in) :: fh
${type} :: buf
integer, dimension(MPI_STATUS_SIZE), intent(out) :: status
integer, intent(out) :: ierr
call ${procedure}(fh, buf, status, ierr)
integer, intent(out) :: ierror
call ${procedure}(fh, buf, status, ierror)
end subroutine ${proc}
EOF

6
ompi/mpi/fortran/use-mpi-tkr/scripts/mpi_file_read_ordered_f90.f90.sh
Просмотреть файл

@ -47,16 +47,16 @@ output() {
cat <<EOF
subroutine ${proc}(fh, buf, count, datatype, status&
, ierr)
, ierror)
include "mpif-config.h"
integer, intent(in) :: fh
${type} :: buf
integer, intent(in) :: count
integer, intent(in) :: datatype
integer, dimension(MPI_STATUS_SIZE), intent(out) :: status
integer, intent(out) :: ierr
integer, intent(out) :: ierror
call ${procedure}(fh, buf, count, datatype, status&
, ierr)
, ierror)
end subroutine ${proc}
EOF

6
ompi/mpi/fortran/use-mpi-tkr/scripts/mpi_file_read_shared_f90.f90.sh
Просмотреть файл

@ -47,16 +47,16 @@ output() {
cat <<EOF
subroutine ${proc}(fh, buf, count, datatype, status&
, ierr)
, ierror)
include "mpif-config.h"
integer, intent(in) :: fh
${type} :: buf
integer, intent(in) :: count
integer, intent(in) :: datatype
integer, dimension(MPI_STATUS_SIZE), intent(out) :: status
integer, intent(out) :: ierr
integer, intent(out) :: ierror
call ${procedure}(fh, buf, count, datatype, status&
, ierr)
, ierror)
end subroutine ${proc}
EOF

6
ompi/mpi/fortran/use-mpi-tkr/scripts/mpi_file_write_all_begin_f90.f90.sh
Просмотреть файл

@ -46,14 +46,14 @@ output() {
cat <<EOF
subroutine ${proc}(fh, buf, count, datatype, ierr)
subroutine ${proc}(fh, buf, count, datatype, ierror)
include "mpif-config.h"
integer, intent(in) :: fh
${type}, intent(in) :: buf
integer, intent(in) :: count
integer, intent(in) :: datatype
integer, intent(out) :: ierr
call ${procedure}(fh, buf, count, datatype, ierr)
integer, intent(out) :: ierror
call ${procedure}(fh, buf, count, datatype, ierror)
end subroutine ${proc}
EOF

6
ompi/mpi/fortran/use-mpi-tkr/scripts/mpi_file_write_all_end_f90.f90.sh
Просмотреть файл

@ -46,13 +46,13 @@ output() {
cat <<EOF
subroutine ${proc}(fh, buf, status, ierr)
subroutine ${proc}(fh, buf, status, ierror)
include "mpif-config.h"
integer, intent(in) :: fh
${type}, intent(in) :: buf
integer, dimension(MPI_STATUS_SIZE), intent(out) :: status
integer, intent(out) :: ierr
call ${procedure}(fh, buf, status, ierr)
integer, intent(out) :: ierror
call ${procedure}(fh, buf, status, ierror)
end subroutine ${proc}
EOF

6
ompi/mpi/fortran/use-mpi-tkr/scripts/mpi_file_write_all_f90.f90.sh
Просмотреть файл

@ -47,16 +47,16 @@ output() {
cat <<EOF
subroutine ${proc}(fh, buf, count, datatype, status&
, ierr)
, ierror)
include "mpif-config.h"
integer, intent(in) :: fh
${type}, intent(in) :: buf
integer, intent(in) :: count
integer, intent(in) :: datatype
integer, dimension(MPI_STATUS_SIZE), intent(out) :: status
integer, intent(out) :: ierr
integer, intent(out) :: ierror
call ${procedure}(fh, buf, count, datatype, status&
, ierr)
, ierror)
end subroutine ${proc}
EOF

6
ompi/mpi/fortran/use-mpi-tkr/scripts/mpi_file_write_at_all_begin_f90.f90.sh
Просмотреть файл

@ -47,16 +47,16 @@ output() {
cat <<EOF
subroutine ${proc}(fh, offset, buf, count, datatype&
, ierr)
, ierror)
include "mpif-config.h"
integer, intent(in) :: fh
integer(kind=MPI_OFFSET_KIND), intent(in) :: offset
${type}, intent(in) :: buf
integer, intent(in) :: count
integer, intent(in) :: datatype
integer, intent(out) :: ierr
integer, intent(out) :: ierror
call ${procedure}(fh, offset, buf, count, datatype&
, ierr)
, ierror)
end subroutine ${proc}
EOF

6
ompi/mpi/fortran/use-mpi-tkr/scripts/mpi_file_write_at_all_end_f90.f90.sh
Просмотреть файл

@ -46,13 +46,13 @@ output() {
cat <<EOF
subroutine ${proc}(fh, buf, status, ierr)
subroutine ${proc}(fh, buf, status, ierror)
include "mpif-config.h"
integer, intent(in) :: fh
${type}, intent(in) :: buf
integer, dimension(MPI_STATUS_SIZE), intent(out) :: status
integer, intent(out) :: ierr
call ${procedure}(fh, buf, status, ierr)
integer, intent(out) :: ierror
call ${procedure}(fh, buf, status, ierror)
end subroutine ${proc}
EOF

6
ompi/mpi/fortran/use-mpi-tkr/scripts/mpi_file_write_at_all_f90.f90.sh
Просмотреть файл

@ -47,7 +47,7 @@ output() {
cat <<EOF
subroutine ${proc}(fh, offset, buf, count, datatype, &
status, ierr)
status, ierror)
include "mpif-config.h"
integer, intent(in) :: fh
integer(kind=MPI_OFFSET_KIND), intent(in) :: offset
@ -55,9 +55,9 @@ subroutine ${proc}(fh, offset, buf, count, datatype, &
integer, intent(in) :: count
integer, intent(in) :: datatype
integer, dimension(MPI_STATUS_SIZE), intent(out) :: status
integer, intent(out) :: ierr
integer, intent(out) :: ierror
call ${procedure}(fh, offset, buf, count, datatype, &
status, ierr)
status, ierror)
end subroutine ${proc}
EOF

6
ompi/mpi/fortran/use-mpi-tkr/scripts/mpi_file_write_at_f90.f90.sh
Просмотреть файл

@ -47,7 +47,7 @@ output() {
cat <<EOF
subroutine ${proc}(fh, offset, buf, count, datatype, &
status, ierr)
status, ierror)
include "mpif-config.h"
integer, intent(in) :: fh
integer(kind=MPI_OFFSET_KIND), intent(in) :: offset
@ -55,9 +55,9 @@ subroutine ${proc}(fh, offset, buf, count, datatype, &
integer, intent(in) :: count
integer, intent(in) :: datatype
integer, dimension(MPI_STATUS_SIZE), intent(out) :: status
integer, intent(out) :: ierr
integer, intent(out) :: ierror
call ${procedure}(fh, offset, buf, count, datatype, &
status, ierr)
status, ierror)
end subroutine ${proc}
EOF

6
ompi/mpi/fortran/use-mpi-tkr/scripts/mpi_file_write_f90.f90.sh
Просмотреть файл

@ -47,16 +47,16 @@ output() {
cat <<EOF
subroutine ${proc}(fh, buf, count, datatype, status&
, ierr)
, ierror)
include "mpif-config.h"
integer, intent(in) :: fh
${type}, intent(in) :: buf
integer, intent(in) :: count
integer, intent(in) :: datatype
integer, dimension(MPI_STATUS_SIZE), intent(out) :: status
integer, intent(out) :: ierr
integer, intent(out) :: ierror
call ${procedure}(fh, buf, count, datatype, status&
, ierr)
, ierror)
end subroutine ${proc}
EOF

6
ompi/mpi/fortran/use-mpi-tkr/scripts/mpi_file_write_ordered_begin_f90.f90.sh
Просмотреть файл

@ -46,14 +46,14 @@ output() {
cat <<EOF
subroutine ${proc}(fh, buf, count, datatype, ierr)
subroutine ${proc}(fh, buf, count, datatype, ierror)
include "mpif-config.h"
integer, intent(in) :: fh
${type}, intent(in) :: buf
integer, intent(in) :: count
integer, intent(in) :: datatype
integer, intent(out) :: ierr
call ${procedure}(fh, buf, count, datatype, ierr)
integer, intent(out) :: ierror
call ${procedure}(fh, buf, count, datatype, ierror)
end subroutine ${proc}
EOF

6
ompi/mpi/fortran/use-mpi-tkr/scripts/mpi_file_write_ordered_end_f90.f90.sh
Просмотреть файл

@ -46,13 +46,13 @@ output() {
cat <<EOF
subroutine ${proc}(fh, buf, status, ierr)
subroutine ${proc}(fh, buf, status, ierror)
include "mpif-config.h"
integer, intent(in) :: fh
${type}, intent(in) :: buf
integer, dimension(MPI_STATUS_SIZE), intent(out) :: status
integer, intent(out) :: ierr
call ${procedure}(fh, buf, status, ierr)
integer, intent(out) :: ierror
call ${procedure}(fh, buf, status, ierror)
end subroutine ${proc}
EOF

6
ompi/mpi/fortran/use-mpi-tkr/scripts/mpi_file_write_ordered_f90.f90.sh
Просмотреть файл

@ -47,16 +47,16 @@ output() {
cat <<EOF
subroutine ${proc}(fh, buf, count, datatype, status&
, ierr)
, ierror)
include "mpif-config.h"
integer, intent(in) :: fh
${type}, intent(in) :: buf
integer, intent(in) :: count
integer, intent(in) :: datatype
integer, dimension(MPI_STATUS_SIZE), intent(out) :: status
integer, intent(out) :: ierr
integer, intent(out) :: ierror
call ${procedure}(fh, buf, count, datatype, status&
, ierr)
, ierror)
end subroutine ${proc}
EOF

6
ompi/mpi/fortran/use-mpi-tkr/scripts/mpi_file_write_shared_f90.f90.sh
Просмотреть файл

@ -47,16 +47,16 @@ output() {
cat <<EOF
subroutine ${proc}(fh, buf, count, datatype, status&
, ierr)
, ierror)
include "mpif-config.h"
integer, intent(in) :: fh
${type}, intent(in) :: buf
integer, intent(in) :: count
integer, intent(in) :: datatype
integer, dimension(MPI_STATUS_SIZE), intent(out) :: status
integer, intent(out) :: ierr
integer, intent(out) :: ierror
call ${procedure}(fh, buf, count, datatype, status&
, ierr)
, ierror)
end subroutine ${proc}
EOF

6
ompi/mpi/fortran/use-mpi-tkr/scripts/mpi_gather_f90.f90.sh
Просмотреть файл

@ -47,7 +47,7 @@ output() {
cat <<EOF
subroutine ${proc}(sendbuf, sendcount, sendtype, recvbuf, recvcount, &
recvtype, root, comm, ierr)
recvtype, root, comm, ierror)
include "mpif-config.h"
${type}, intent(in) :: sendbuf
integer, intent(in) :: sendcount
@ -57,9 +57,9 @@ subroutine ${proc}(sendbuf, sendcount, sendtype, recvbuf, recvcount, &
integer, intent(in) :: recvtype
integer, intent(in) :: root
integer, intent(in) :: comm
integer, intent(out) :: ierr
integer, intent(out) :: ierror
call ${procedure}(sendbuf, sendcount, sendtype, recvbuf, recvcount, &
recvtype, root, comm, ierr)
recvtype, root, comm, ierror)
end subroutine ${proc}
EOF

6
ompi/mpi/fortran/use-mpi-tkr/scripts/mpi_gatherv_f90.f90.sh
Просмотреть файл

@ -47,7 +47,7 @@ output() {
cat <<EOF
subroutine ${proc}(sendbuf, sendcount, sendtype, recvbuf, recvcounts, &
displs, recvtype, root, comm, ierr)
displs, recvtype, root, comm, ierror)
include "mpif-config.h"
${type}, intent(in) :: sendbuf
integer, intent(in) :: sendcount
@ -58,9 +58,9 @@ subroutine ${proc}(sendbuf, sendcount, sendtype, recvbuf, recvcounts, &
integer, intent(in) :: recvtype
integer, intent(in) :: root
integer, intent(in) :: comm
integer, intent(out) :: ierr
integer, intent(out) :: ierror
call ${procedure}(sendbuf, sendcount, sendtype, recvbuf, recvcounts, &
displs, recvtype, root, comm, ierr)
displs, recvtype, root, comm, ierror)
end subroutine ${proc}
EOF

6
ompi/mpi/fortran/use-mpi-tkr/scripts/mpi_get_f90.f90.sh
Просмотреть файл

@ -47,7 +47,7 @@ output() {
cat <<EOF
subroutine ${proc}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
target_count, target_datatype, win, ierr)
target_count, target_datatype, win, ierror)
include "mpif-config.h"
${type} :: origin_addr
integer, intent(in) :: origin_count
@ -57,9 +57,9 @@ subroutine ${proc}(origin_addr, origin_count, origin_datatype, target_rank, targ
integer, intent(in) :: target_count
integer, intent(in) :: target_datatype
integer, intent(in) :: win
integer, intent(out) :: ierr
integer, intent(out) :: ierror
call ${procedure}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
target_count, target_datatype, win, ierr)
target_count, target_datatype, win, ierror)
end subroutine ${proc}
EOF

6
ompi/mpi/fortran/use-mpi-tkr/scripts/mpi_iallgather_f90.f90.sh
Просмотреть файл

@ -47,7 +47,7 @@ output() {
cat <<EOF
subroutine ${proc}(sendbuf, sendcount, sendtype, recvbuf, recvcount, &
recvtype, comm, request, ierr)
recvtype, comm, request, ierror)
include "mpif-config.h"
${type}, intent(in) :: sendbuf
integer, intent(in) :: sendcount
@ -57,9 +57,9 @@ subroutine ${proc}(sendbuf, sendcount, sendtype, recvbuf, recvcount, &
integer, intent(in) :: recvtype
integer, intent(in) :: comm
integer, intent(out) :: request
integer, intent(out) :: ierr
integer, intent(out) :: ierror
call ${procedure}(sendbuf, sendcount, sendtype, recvbuf, recvcount, &
recvtype, comm, request, ierr)
recvtype, comm, request, ierror)
end subroutine ${proc}
EOF

6
ompi/mpi/fortran/use-mpi-tkr/scripts/mpi_iallgatherv_f90.f90.sh
Просмотреть файл

@ -47,7 +47,7 @@ output() {
cat <<EOF
subroutine ${proc}(sendbuf, sendcount, sendtype, recvbuf, recvcounts, &
displs, recvtype, comm, request, ierr)
displs, recvtype, comm, request, ierror)
include "mpif-config.h"
${type}, intent(in) :: sendbuf
integer, intent(in) :: sendcount
@ -58,9 +58,9 @@ subroutine ${proc}(sendbuf, sendcount, sendtype, recvbuf, recvcounts, &
integer, intent(in) :: recvtype
integer, intent(in) :: comm
integer, intent(out) :: request
integer, intent(out) :: ierr
integer, intent(out) :: ierror
call ${procedure}(sendbuf, sendcount, sendtype, recvbuf, recvcounts, &
displs, recvtype, comm, request, ierr)
displs, recvtype, comm, request, ierror)
end subroutine ${proc}
EOF

6
ompi/mpi/fortran/use-mpi-tkr/scripts/mpi_iallreduce_f90.f90.sh
Просмотреть файл

@ -47,7 +47,7 @@ output() {
cat <<EOF
subroutine ${proc}(sendbuf, recvbuf, count, datatype, op, &
comm, request, ierr)
comm, request, ierror)
include "mpif-config.h"
${type}, intent(in) :: sendbuf
${type} :: recvbuf
@ -56,9 +56,9 @@ subroutine ${proc}(sendbuf, recvbuf, count, datatype, op, &
integer, intent(in) :: op
integer, intent(in) :: comm
integer, intent(out) :: request
integer, intent(out) :: ierr
integer, intent(out) :: ierror
call ${procedure}(sendbuf, recvbuf, count, datatype, op, &
comm, request, ierr)
comm, request, ierror)
end subroutine ${proc}
EOF

6
ompi/mpi/fortran/use-mpi-tkr/scripts/mpi_ialltoall_f90.f90.sh
Просмотреть файл

@ -47,7 +47,7 @@ output() {
cat <<EOF
subroutine ${proc}(sendbuf, sendcount, sendtype, recvbuf, recvcount, &
recvtype, comm, request, ierr)
recvtype, comm, request, ierror)
include "mpif-config.h"
${type}, intent(in) :: sendbuf
integer, intent(in) :: sendcount
@ -57,9 +57,9 @@ subroutine ${proc}(sendbuf, sendcount, sendtype, recvbuf, recvcount, &
integer, intent(in) :: recvtype
integer, intent(in) :: comm
integer, intent(out) :: request
integer, intent(out) :: ierr
integer, intent(out) :: ierror
call ${procedure}(sendbuf, sendcount, sendtype, recvbuf, recvcount, &
recvtype, comm, request, ierr)
recvtype, comm, request, ierror)
end subroutine ${proc}
EOF

6
ompi/mpi/fortran/use-mpi-tkr/scripts/mpi_ialltoallv_f90.f90.sh
Просмотреть файл

@ -47,7 +47,7 @@ output() {
cat <<EOF
subroutine ${proc}(sendbuf, sendcounts, sdispls, sendtype, recvbuf, &
recvcounts, rdispls, recvtype, comm, request, ierr)
recvcounts, rdispls, recvtype, comm, request, ierror)
include "mpif-config.h"
${type}, intent(in) :: sendbuf
integer, dimension(*), intent(in) :: sendcounts
@ -59,9 +59,9 @@ subroutine ${proc}(sendbuf, sendcounts, sdispls, sendtype, recvbuf, &
integer, intent(in) :: recvtype
integer, intent(in) :: comm
integer, intent(out) :: request
integer, intent(out) :: ierr
integer, intent(out) :: ierror
call ${procedure}(sendbuf, sendcounts, sdispls, sendtype, recvbuf, &
recvcounts, rdispls, recvtype, comm, request, ierr)
recvcounts, rdispls, recvtype, comm, request, ierror)
end subroutine ${proc}
EOF

6
ompi/mpi/fortran/use-mpi-tkr/scripts/mpi_ialltoallw_f90.f90.sh
Просмотреть файл

@ -47,7 +47,7 @@ output() {
cat <<EOF
subroutine ${proc}(sendbuf, sendcounts, sdispls, sendtypes, recvbuf, &
recvcounts, rdispls, recvtypes, comm, request, ierr)
recvcounts, rdispls, recvtypes, comm, request, ierror)
include "mpif-config.h"
${type}, intent(in) :: sendbuf
integer, dimension(*), intent(in) :: sendcounts
@ -59,9 +59,9 @@ subroutine ${proc}(sendbuf, sendcounts, sdispls, sendtypes, recvbuf, &
integer, dimension(*), intent(in) :: recvtypes
integer, intent(in) :: comm
integer, intent(out) :: request
integer, intent(out) :: ierr
integer, intent(out) :: ierror
call ${procedure}(sendbuf, sendcounts, sdispls, sendtypes, recvbuf, &
recvcounts, rdispls, recvtypes, comm, request, ierr)
recvcounts, rdispls, recvtypes, comm, request, ierror)
end subroutine ${proc}
EOF

6
ompi/mpi/fortran/use-mpi-tkr/scripts/mpi_ibcast_f90.f90.sh
Просмотреть файл

@ -47,7 +47,7 @@ output() {
cat <<EOF
subroutine ${proc}(buffer, count, datatype, root, comm&
, request, ierr)
, request, ierror)
include "mpif-config.h"
${type} :: buffer
integer, intent(in) :: count
@ -55,9 +55,9 @@ subroutine ${proc}(buffer, count, datatype, root, comm&
integer, intent(in) :: root
integer, intent(in) :: comm
integer, intent(out) :: request
integer, intent(out) :: ierr
integer, intent(out) :: ierror
call ${procedure}(buffer, count, datatype, root, comm&
, request, ierr)
, request, ierror)
end subroutine ${proc}
EOF

6
ompi/mpi/fortran/use-mpi-tkr/scripts/mpi_ibsend_f90.f90.sh
Просмотреть файл

@ -47,7 +47,7 @@ output() {
cat <<EOF
subroutine ${proc}(buf, count, datatype, dest, tag, &
comm, request, ierr)
comm, request, ierror)
include "mpif-config.h"
${type}, intent(in) :: buf
integer, intent(in) :: count
@ -56,9 +56,9 @@ subroutine ${proc}(buf, count, datatype, dest, tag, &
integer, intent(in) :: tag
integer, intent(in) :: comm
integer, intent(out) :: request
integer, intent(out) :: ierr
integer, intent(out) :: ierror
call ${procedure}(buf, count, datatype, dest, tag, &
comm, request, ierr)
comm, request, ierror)
end subroutine ${proc}
EOF

6
ompi/mpi/fortran/use-mpi-tkr/scripts/mpi_iexscan_f90.f90.sh
Просмотреть файл

@ -47,7 +47,7 @@ output() {
cat <<EOF
subroutine ${proc}(sendbuf, recvbuf, count, datatype, op, &
comm, request, ierr)
comm, request, ierror)
include "mpif-config.h"
${type}, intent(in) :: sendbuf
${type} :: recvbuf
@ -56,9 +56,9 @@ subroutine ${proc}(sendbuf, recvbuf, count, datatype, op, &
integer, intent(in) :: op
integer, intent(in) :: comm
integer, intent(out) :: request
integer, intent(out) :: ierr
integer, intent(out) :: ierror
call ${procedure}(sendbuf, recvbuf, count, datatype, op, &
comm, request, ierr)
comm, request, ierror)
end subroutine ${proc}
EOF

6
ompi/mpi/fortran/use-mpi-tkr/scripts/mpi_igather_f90.f90.sh
Просмотреть файл

@ -47,7 +47,7 @@ output() {
cat <<EOF
subroutine ${proc}(sendbuf, sendcount, sendtype, recvbuf, recvcount, &
recvtype, root, comm, request, ierr)
recvtype, root, comm, request, ierror)
include "mpif-config.h"
${type}, intent(in) :: sendbuf
integer, intent(in) :: sendcount
@ -58,9 +58,9 @@ subroutine ${proc}(sendbuf, sendcount, sendtype, recvbuf, recvcount, &
integer, intent(in) :: root
integer, intent(in) :: comm
integer, intent(out) :: request
integer, intent(out) :: ierr
integer, intent(out) :: ierror
call ${procedure}(sendbuf, sendcount, sendtype, recvbuf, recvcount, &
recvtype, root, comm, request, ierr)
recvtype, root, comm, request, ierror)
end subroutine ${proc}
EOF

6
ompi/mpi/fortran/use-mpi-tkr/scripts/mpi_igatherv_f90.f90.sh
Просмотреть файл

@ -47,7 +47,7 @@ output() {
cat <<EOF
subroutine ${proc}(sendbuf, sendcount, sendtype, recvbuf, recvcounts, &
displs, recvtype, root, comm, request, ierr)
displs, recvtype, root, comm, request, ierror)
include "mpif-config.h"
${type}, intent(in) :: sendbuf
integer, intent(in) :: sendcount
@ -59,9 +59,9 @@ subroutine ${proc}(sendbuf, sendcount, sendtype, recvbuf, recvcounts, &
integer, intent(in) :: root
integer, intent(in) :: comm
integer, intent(out) :: request
integer, intent(out) :: ierr
integer, intent(out) :: ierror
call ${procedure}(sendbuf, sendcount, sendtype, recvbuf, recvcounts, &
displs, recvtype, root, comm, request, ierr)
displs, recvtype, root, comm, request, ierror)
end subroutine ${proc}
EOF

6
ompi/mpi/fortran/use-mpi-tkr/scripts/mpi_imrecv_f90.f90.sh
Просмотреть файл

@ -46,15 +46,15 @@ output() {
cat <<EOF
subroutine ${proc}(buf, count, datatype, message, request, ierr)
subroutine ${proc}(buf, count, datatype, message, request, ierror)
include "mpif-config.h"
${type} :: buf
integer, intent(in) :: count
integer, intent(in) :: datatype
integer, intent(inout) :: message
integer, intent(out) :: request
integer, intent(out) :: ierr
call ${procedure}(buf, count, datatype, message, request, ierr)
integer, intent(out) :: ierror
call ${procedure}(buf, count, datatype, message, request, ierror)
end subroutine ${proc}
EOF

6
ompi/mpi/fortran/use-mpi-tkr/scripts/mpi_irecv_f90.f90.sh
Просмотреть файл

@ -47,7 +47,7 @@ output() {
cat <<EOF
subroutine ${proc}(buf, count, datatype, source, tag, &
comm, request, ierr)
comm, request, ierror)
include "mpif-config.h"
${type} :: buf
integer, intent(in) :: count
@ -56,9 +56,9 @@ subroutine ${proc}(buf, count, datatype, source, tag, &
integer, intent(in) :: tag
integer, intent(in) :: comm
integer, intent(out) :: request
integer, intent(out) :: ierr
integer, intent(out) :: ierror
call ${procedure}(buf, count, datatype, source, tag, &
comm, request, ierr)
comm, request, ierror)
end subroutine ${proc}
EOF

6
ompi/mpi/fortran/use-mpi-tkr/scripts/mpi_ireduce_f90.f90.sh
Просмотреть файл

@ -47,7 +47,7 @@ output() {
cat <<EOF
subroutine ${proc}(sendbuf, recvbuf, count, datatype, op, &
root, comm, request, ierr)
root, comm, request, ierror)
include "mpif-config.h"
${type}, intent(in) :: sendbuf
${type} :: recvbuf
@ -57,9 +57,9 @@ subroutine ${proc}(sendbuf, recvbuf, count, datatype, op, &
integer, intent(in) :: root
integer, intent(in) :: comm
integer, intent(out) :: request
integer, intent(out) :: ierr
integer, intent(out) :: ierror
call ${procedure}(sendbuf, recvbuf, count, datatype, op, &
root, comm, request, ierr)
root, comm, request, ierror)
end subroutine ${proc}
EOF

6
ompi/mpi/fortran/use-mpi-tkr/scripts/mpi_ireduce_scatter_block_f90.f90.sh
Просмотреть файл

@ -47,7 +47,7 @@ output() {
cat <<EOF
subroutine ${proc}(sendbuf, recvbuf, datatype, op, &
comm, request, ierr)
comm, request, ierror)
include "mpif-config.h"
${type}, intent(in) :: sendbuf
${type} :: recvbuf
@ -56,9 +56,9 @@ subroutine ${proc}(sendbuf, recvbuf, datatype, op, &
integer, intent(in) :: op
integer, intent(in) :: comm
integer, intent(out) :: request
integer, intent(out) :: ierr
integer, intent(out) :: ierror
call ${procedure}(sendbuf, recvbuf, recvcount, datatype, op, &
comm, request, ierr)
comm, request, ierror)
end subroutine ${proc}
EOF

6
ompi/mpi/fortran/use-mpi-tkr/scripts/mpi_ireduce_scatter_f90.f90.sh
Просмотреть файл

@ -47,7 +47,7 @@ output() {
cat <<EOF
subroutine ${proc}(sendbuf, recvbuf, recvcounts, datatype, op, &
comm, request, ierr)
comm, request, ierror)
include "mpif-config.h"
${type}, intent(in) :: sendbuf
${type} :: recvbuf
@ -56,9 +56,9 @@ subroutine ${proc}(sendbuf, recvbuf, recvcounts, datatype, op, &
integer, intent(in) :: op
integer, intent(in) :: comm
integer, intent(out) :: request
integer, intent(out) :: ierr
integer, intent(out) :: ierror
call ${procedure}(sendbuf, recvbuf, recvcounts, datatype, op, &
comm, request, ierr)
comm, request, ierror)
end subroutine ${proc}
EOF

6
ompi/mpi/fortran/use-mpi-tkr/scripts/mpi_irsend_f90.f90.sh
Просмотреть файл

@ -47,7 +47,7 @@ output() {
cat <<EOF
subroutine ${proc}(buf, count, datatype, dest, tag, &
comm, request, ierr)
comm, request, ierror)
include "mpif-config.h"
${type}, intent(in) :: buf
integer, intent(in) :: count
@ -56,9 +56,9 @@ subroutine ${proc}(buf, count, datatype, dest, tag, &
integer, intent(in) :: tag
integer, intent(in) :: comm
integer, intent(out) :: request
integer, intent(out) :: ierr
integer, intent(out) :: ierror
call ${procedure}(buf, count, datatype, dest, tag, &
comm, request, ierr)
comm, request, ierror)
end subroutine ${proc}
EOF

6
ompi/mpi/fortran/use-mpi-tkr/scripts/mpi_iscan_f90.f90.sh
Просмотреть файл

@ -47,7 +47,7 @@ output() {
cat <<EOF
subroutine ${proc}(sendbuf, recvbuf, count, datatype, op, &
comm, request, ierr)
comm, request, ierror)
include "mpif-config.h"
${type}, intent(in) :: sendbuf
${type} :: recvbuf
@ -56,9 +56,9 @@ subroutine ${proc}(sendbuf, recvbuf, count, datatype, op, &
integer, intent(in) :: op
integer, intent(in) :: comm
integer, intent(out) :: request
integer, intent(out) :: ierr
integer, intent(out) :: ierror
call ${procedure}(sendbuf, recvbuf, count, datatype, op, &
comm, request, ierr)
comm, request, ierror)
end subroutine ${proc}
EOF

6
ompi/mpi/fortran/use-mpi-tkr/scripts/mpi_iscatter_f90.f90.sh
Просмотреть файл

@ -47,7 +47,7 @@ output() {
cat <<EOF
subroutine ${proc}(sendbuf, sendcount, sendtype, recvbuf, recvcount, &
recvtype, root, comm, request, ierr)
recvtype, root, comm, request, ierror)
include "mpif-config.h"
${type}, intent(in) :: sendbuf
integer, intent(in) :: sendcount
@ -58,9 +58,9 @@ subroutine ${proc}(sendbuf, sendcount, sendtype, recvbuf, recvcount, &
integer, intent(in) :: root
integer, intent(in) :: comm
integer, intent(out) :: request
integer, intent(out) :: ierr
integer, intent(out) :: ierror
call ${procedure}(sendbuf, sendcount, sendtype, recvbuf, recvcount, &
recvtype, root, comm, request, ierr)
recvtype, root, comm, request, ierror)
end subroutine ${proc}
EOF

6
ompi/mpi/fortran/use-mpi-tkr/scripts/mpi_iscatterv_f90.f90.sh
Просмотреть файл

@ -47,7 +47,7 @@ output() {
cat <<EOF
subroutine ${proc}(sendbuf, sendcounts, displs, sendtype, recvbuf, &
recvcount, recvtype, root, comm, request, ierr)
recvcount, recvtype, root, comm, request, ierror)
include "mpif-config.h"
${type}, intent(in) :: sendbuf
integer, dimension(*), intent(in) :: sendcounts
@ -59,9 +59,9 @@ subroutine ${proc}(sendbuf, sendcounts, displs, sendtype, recvbuf, &
integer, intent(in) :: root
integer, intent(in) :: comm
integer, intent(out) :: request
integer, intent(out) :: ierr
integer, intent(out) :: ierror
call ${procedure}(sendbuf, sendcounts, displs, sendtype, recvbuf, &
recvcount, recvtype, root, comm, request, ierr)
recvcount, recvtype, root, comm, request, ierror)
end subroutine ${proc}
EOF

6
ompi/mpi/fortran/use-mpi-tkr/scripts/mpi_isend_f90.f90.sh
Просмотреть файл

@ -47,7 +47,7 @@ output() {
cat <<EOF
subroutine ${proc}(buf, count, datatype, dest, tag, &
comm, request, ierr)
comm, request, ierror)
include "mpif-config.h"
${type}, intent(in) :: buf
integer, intent(in) :: count
@ -56,9 +56,9 @@ subroutine ${proc}(buf, count, datatype, dest, tag, &
integer, intent(in) :: tag
integer, intent(in) :: comm
integer, intent(out) :: request
integer, intent(out) :: ierr
integer, intent(out) :: ierror
call ${procedure}(buf, count, datatype, dest, tag, &
comm, request, ierr)
comm, request, ierror)
end subroutine ${proc}
EOF

6
ompi/mpi/fortran/use-mpi-tkr/scripts/mpi_issend_f90.f90.sh
Просмотреть файл

@ -47,7 +47,7 @@ output() {
cat <<EOF
subroutine ${proc}(buf, count, datatype, dest, tag, &
comm, request, ierr)
comm, request, ierror)
include "mpif-config.h"
${type}, intent(in) :: buf
integer, intent(in) :: count
@ -56,9 +56,9 @@ subroutine ${proc}(buf, count, datatype, dest, tag, &
integer, intent(in) :: tag
integer, intent(in) :: comm
integer, intent(out) :: request
integer, intent(out) :: ierr
integer, intent(out) :: ierror
call ${procedure}(buf, count, datatype, dest, tag, &
comm, request, ierr)
comm, request, ierror)
end subroutine ${proc}
EOF

6
ompi/mpi/fortran/use-mpi-tkr/scripts/mpi_mrecv_f90.f90.sh
Просмотреть файл

@ -46,15 +46,15 @@ output() {
cat <<EOF
subroutine ${proc}(buf, count, datatype, message, status, ierr)
subroutine ${proc}(buf, count, datatype, message, status, ierror)
include "mpif-config.h"
${type} :: buf
integer, intent(in) :: count
integer, intent(in) :: datatype
integer, intent(inout) :: message
integer, dimension(MPI_STATUS_SIZE), intent(inout) :: status
integer, intent(out) :: ierr
call ${procedure}(buf, count, datatype, message, status, ierr)
integer, intent(out) :: ierror
call ${procedure}(buf, count, datatype, message, status, ierror)
end subroutine ${proc}
EOF

6
ompi/mpi/fortran/use-mpi-tkr/scripts/mpi_pack_external_f90.f90.sh
Просмотреть файл

@ -47,7 +47,7 @@ output() {
cat <<EOF
subroutine ${proc}(datarep, inbuf, incount, datatype, outbuf, &
outsize, position, ierr)
outsize, position, ierror)
include "mpif-config.h"
character(len=*), intent(in) :: datarep
${type}, intent(in) :: inbuf
@ -56,9 +56,9 @@ subroutine ${proc}(datarep, inbuf, incount, datatype, outbuf, &
${type} :: outbuf
integer(kind=MPI_ADDRESS_KIND), intent(in) :: outsize
integer(kind=MPI_ADDRESS_KIND), intent(inout) :: position
integer, intent(out) :: ierr
integer, intent(out) :: ierror
call ${procedure}(datarep, inbuf, incount, datatype, outbuf, &
outsize, position, ierr)
outsize, position, ierror)
end subroutine ${proc}
EOF

6
ompi/mpi/fortran/use-mpi-tkr/scripts/mpi_pack_f90.f90.sh
Просмотреть файл

@ -47,7 +47,7 @@ output() {
cat <<EOF
subroutine ${proc}(inbuf, incount, datatype, outbuf, outsize, &
position, comm, ierr)
position, comm, ierror)
include "mpif-config.h"
${type}, intent(in) :: inbuf
integer, intent(in) :: incount
@ -56,9 +56,9 @@ subroutine ${proc}(inbuf, incount, datatype, outbuf, outsize, &
integer, intent(in) :: outsize
integer, intent(inout) :: position
integer, intent(in) :: comm
integer, intent(out) :: ierr
integer, intent(out) :: ierror
call ${procedure}(inbuf, incount, datatype, outbuf, outsize, &
position, comm, ierr)
position, comm, ierror)
end subroutine ${proc}
EOF

6
ompi/mpi/fortran/use-mpi-tkr/scripts/mpi_put_f90.f90.sh
Просмотреть файл

@ -47,7 +47,7 @@ output() {
cat <<EOF
subroutine ${proc}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
target_count, target_datatype, win, ierr)
target_count, target_datatype, win, ierror)
include "mpif-config.h"
${type}, intent(in) :: origin_addr
integer, intent(in) :: origin_count
@ -57,9 +57,9 @@ subroutine ${proc}(origin_addr, origin_count, origin_datatype, target_rank, targ
integer, intent(in) :: target_count
integer, intent(in) :: target_datatype
integer, intent(in) :: win
integer, intent(out) :: ierr
integer, intent(out) :: ierror
call ${procedure}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
target_count, target_datatype, win, ierr)
target_count, target_datatype, win, ierror)
end subroutine ${proc}
EOF

6
ompi/mpi/fortran/use-mpi-tkr/scripts/mpi_recv_f90.f90.sh
Просмотреть файл

@ -47,7 +47,7 @@ output() {
cat <<EOF
subroutine ${proc}(buf, count, datatype, source, tag, &
comm, status, ierr)
comm, status, ierror)
include "mpif-config.h"
${type} :: buf
integer, intent(in) :: count
@ -56,9 +56,9 @@ subroutine ${proc}(buf, count, datatype, source, tag, &
integer, intent(in) :: tag
integer, intent(in) :: comm
integer, dimension(MPI_STATUS_SIZE), intent(inout) :: status
integer, intent(out) :: ierr
integer, intent(out) :: ierror
call ${procedure}(buf, count, datatype, source, tag, &
comm, status, ierr)
comm, status, ierror)
end subroutine ${proc}
EOF

6
ompi/mpi/fortran/use-mpi-tkr/scripts/mpi_recv_init_f90.f90.sh
Просмотреть файл

@ -47,7 +47,7 @@ output() {
cat <<EOF
subroutine ${proc}(buf, count, datatype, source, tag, &
comm, request, ierr)
comm, request, ierror)
include "mpif-config.h"
${type} :: buf
integer, intent(in) :: count
@ -56,9 +56,9 @@ subroutine ${proc}(buf, count, datatype, source, tag, &
integer, intent(in) :: tag
integer, intent(in) :: comm
integer, intent(out) :: request
integer, intent(out) :: ierr
integer, intent(out) :: ierror
call ${procedure}(buf, count, datatype, source, tag, &
comm, request, ierr)
comm, request, ierror)
end subroutine ${proc}
EOF

6
ompi/mpi/fortran/use-mpi-tkr/scripts/mpi_reduce_f90.f90.sh
Просмотреть файл

@ -47,7 +47,7 @@ output() {
cat <<EOF
subroutine ${proc}(sendbuf, recvbuf, count, datatype, op, &
root, comm, ierr)
root, comm, ierror)
include "mpif-config.h"
${type}, intent(in) :: sendbuf
${type} :: recvbuf
@ -56,9 +56,9 @@ subroutine ${proc}(sendbuf, recvbuf, count, datatype, op, &
integer, intent(in) :: op
integer, intent(in) :: root
integer, intent(in) :: comm
integer, intent(out) :: ierr
integer, intent(out) :: ierror
call ${procedure}(sendbuf, recvbuf, count, datatype, op, &
root, comm, ierr)
root, comm, ierror)
end subroutine ${proc}
EOF

6
ompi/mpi/fortran/use-mpi-tkr/scripts/mpi_reduce_scatter_block_f90.f90.sh
Просмотреть файл

@ -47,7 +47,7 @@ output() {
cat <<EOF
subroutine ${proc}(sendbuf, recvbuf, recvcount, datatype, op, &
comm, ierr)
comm, ierror)
include "mpif-config.h"
${type}, intent(in) :: sendbuf
${type} :: recvbuf
@ -55,9 +55,9 @@ subroutine ${proc}(sendbuf, recvbuf, recvcount, datatype, op, &
integer, intent(in) :: datatype
integer, intent(in) :: op
integer, intent(in) :: comm
integer, intent(out) :: ierr
integer, intent(out) :: ierror
call ${procedure}(sendbuf, recvbuf, recvcount, datatype, op, &
comm, ierr)
comm, ierror)
end subroutine ${proc}
EOF

6
ompi/mpi/fortran/use-mpi-tkr/scripts/mpi_reduce_scatter_f90.f90.sh
Просмотреть файл

@ -47,7 +47,7 @@ output() {
cat <<EOF
subroutine ${proc}(sendbuf, recvbuf, recvcounts, datatype, op, &
comm, ierr)
comm, ierror)
include "mpif-config.h"
${type}, intent(in) :: sendbuf
${type} :: recvbuf
@ -55,9 +55,9 @@ subroutine ${proc}(sendbuf, recvbuf, recvcounts, datatype, op, &
integer, intent(in) :: datatype
integer, intent(in) :: op
integer, intent(in) :: comm
integer, intent(out) :: ierr
integer, intent(out) :: ierror
call ${procedure}(sendbuf, recvbuf, recvcounts, datatype, op, &
comm, ierr)
comm, ierror)
end subroutine ${proc}
EOF

6
ompi/mpi/fortran/use-mpi-tkr/scripts/mpi_rsend_f90.f90.sh
Просмотреть файл

@ -47,7 +47,7 @@ output() {
cat <<EOF
subroutine ${proc}(ibuf, count, datatype, dest, tag, &
comm, ierr)
comm, ierror)
include "mpif-config.h"
${type}, intent(in) :: ibuf
integer, intent(in) :: count
@ -55,9 +55,9 @@ subroutine ${proc}(ibuf, count, datatype, dest, tag, &
integer, intent(in) :: dest
integer, intent(in) :: tag
integer, intent(in) :: comm
integer, intent(out) :: ierr
integer, intent(out) :: ierror
call ${procedure}(ibuf, count, datatype, dest, tag, &
comm, ierr)
comm, ierror)
end subroutine ${proc}
EOF

6
ompi/mpi/fortran/use-mpi-tkr/scripts/mpi_rsend_init_f90.f90.sh
Просмотреть файл

@ -47,7 +47,7 @@ output() {
cat <<EOF
subroutine ${proc}(buf, count, datatype, dest, tag, &
comm, request, ierr)
comm, request, ierror)
include "mpif-config.h"
${type}, intent(in) :: buf
integer, intent(in) :: count
@ -56,9 +56,9 @@ subroutine ${proc}(buf, count, datatype, dest, tag, &
integer, intent(in) :: tag
integer, intent(in) :: comm
integer, intent(out) :: request
integer, intent(out) :: ierr
integer, intent(out) :: ierror
call ${procedure}(buf, count, datatype, dest, tag, &
comm, request, ierr)
comm, request, ierror)
end subroutine ${proc}
EOF

6
ompi/mpi/fortran/use-mpi-tkr/scripts/mpi_scan_f90.f90.sh
Просмотреть файл

@ -47,7 +47,7 @@ output() {
cat <<EOF
subroutine ${proc}(sendbuf, recvbuf, count, datatype, op, &
comm, ierr)
comm, ierror)
include "mpif-config.h"
${type}, intent(in) :: sendbuf
${type} :: recvbuf
@ -55,9 +55,9 @@ subroutine ${proc}(sendbuf, recvbuf, count, datatype, op, &
integer, intent(in) :: datatype
integer, intent(in) :: op
integer, intent(in) :: comm
integer, intent(out) :: ierr
integer, intent(out) :: ierror
call ${procedure}(sendbuf, recvbuf, count, datatype, op, &
comm, ierr)
comm, ierror)
end subroutine ${proc}
EOF

6
ompi/mpi/fortran/use-mpi-tkr/scripts/mpi_scatter_f90.f90.sh
Просмотреть файл

@ -47,7 +47,7 @@ output() {
cat <<EOF
subroutine ${proc}(sendbuf, sendcount, sendtype, recvbuf, recvcount, &
recvtype, root, comm, ierr)
recvtype, root, comm, ierror)
include "mpif-config.h"
${type}, intent(in) :: sendbuf
integer, intent(in) :: sendcount
@ -57,9 +57,9 @@ subroutine ${proc}(sendbuf, sendcount, sendtype, recvbuf, recvcount, &
integer, intent(in) :: recvtype
integer, intent(in) :: root
integer, intent(in) :: comm
integer, intent(out) :: ierr
integer, intent(out) :: ierror
call ${procedure}(sendbuf, sendcount, sendtype, recvbuf, recvcount, &
recvtype, root, comm, ierr)
recvtype, root, comm, ierror)
end subroutine ${proc}
EOF

6
ompi/mpi/fortran/use-mpi-tkr/scripts/mpi_scatterv_f90.f90.sh
Просмотреть файл

@ -47,7 +47,7 @@ output() {
cat <<EOF
subroutine ${proc}(sendbuf, sendcounts, displs, sendtype, recvbuf, &
recvcount, recvtype, root, comm, ierr)
recvcount, recvtype, root, comm, ierror)
include "mpif-config.h"
${type}, intent(in) :: sendbuf
integer, dimension(*), intent(in) :: sendcounts
@ -58,9 +58,9 @@ subroutine ${proc}(sendbuf, sendcounts, displs, sendtype, recvbuf, &
integer, intent(in) :: recvtype
integer, intent(in) :: root
integer, intent(in) :: comm
integer, intent(out) :: ierr
integer, intent(out) :: ierror
call ${procedure}(sendbuf, sendcounts, displs, sendtype, recvbuf, &
recvcount, recvtype, root, comm, ierr)
recvcount, recvtype, root, comm, ierror)
end subroutine ${proc}
EOF

6
ompi/mpi/fortran/use-mpi-tkr/scripts/mpi_send_f90.f90.sh
Просмотреть файл

@ -47,7 +47,7 @@ output() {
cat <<EOF
subroutine ${proc}(buf, count, datatype, dest, tag, &
comm, ierr)
comm, ierror)
include "mpif-config.h"
${type}, intent(in) :: buf
integer, intent(in) :: count
@ -55,9 +55,9 @@ subroutine ${proc}(buf, count, datatype, dest, tag, &
integer, intent(in) :: dest
integer, intent(in) :: tag
integer, intent(in) :: comm
integer, intent(out) :: ierr
integer, intent(out) :: ierror
call ${procedure}(buf, count, datatype, dest, tag, &
comm, ierr)
comm, ierror)
end subroutine ${proc}
EOF

6
ompi/mpi/fortran/use-mpi-tkr/scripts/mpi_send_init_f90.f90.sh
Просмотреть файл

@ -47,7 +47,7 @@ output() {
cat <<EOF
subroutine ${proc}(buf, count, datatype, dest, tag, &
comm, request, ierr)
comm, request, ierror)
include "mpif-config.h"
${type}, intent(in) :: buf
integer, intent(in) :: count
@ -56,9 +56,9 @@ subroutine ${proc}(buf, count, datatype, dest, tag, &
integer, intent(in) :: tag
integer, intent(in) :: comm
integer, intent(out) :: request
integer, intent(out) :: ierr
integer, intent(out) :: ierror
call ${procedure}(buf, count, datatype, dest, tag, &
comm, request, ierr)
comm, request, ierror)
end subroutine ${proc}
EOF

6
ompi/mpi/fortran/use-mpi-tkr/scripts/mpi_sendrecv_f90.f90.sh
Просмотреть файл

@ -47,7 +47,7 @@ output() {
cat <<EOF
subroutine ${proc}(sendbuf, sendcount, sendtype, dest, sendtag, &
recvbuf, recvcount, recvtype, source, recvtag, comm, status, ierr)
recvbuf, recvcount, recvtype, source, recvtag, comm, status, ierror)
include "mpif-config.h"
${type}, intent(in) :: sendbuf
integer, intent(in) :: sendcount
@ -61,9 +61,9 @@ subroutine ${proc}(sendbuf, sendcount, sendtype, dest, sendtag, &
integer, intent(in) :: recvtag
integer, intent(in) :: comm
integer, dimension(MPI_STATUS_SIZE), intent(inout) :: status
integer, intent(out) :: ierr
integer, intent(out) :: ierror
call ${procedure}(sendbuf, sendcount, sendtype, dest, sendtag, &
recvbuf, recvcount, recvtype, source, recvtag, comm, status, ierr)
recvbuf, recvcount, recvtype, source, recvtag, comm, status, ierror)
end subroutine ${proc}
EOF

6
ompi/mpi/fortran/use-mpi-tkr/scripts/mpi_sendrecv_replace_f90.f90.sh
Просмотреть файл

@ -47,7 +47,7 @@ output() {
cat <<EOF
subroutine ${proc}(buf, count, datatype, dest, sendtag, &
source, recvtag, comm, status, ierr)
source, recvtag, comm, status, ierror)
include "mpif-config.h"
${type} :: buf
integer, intent(in) :: count
@ -58,9 +58,9 @@ subroutine ${proc}(buf, count, datatype, dest, sendtag, &
integer, intent(in) :: recvtag
integer, intent(in) :: comm
integer, dimension(MPI_STATUS_SIZE), intent(inout) :: status
integer, intent(out) :: ierr
integer, intent(out) :: ierror
call ${procedure}(buf, count, datatype, dest, sendtag, &
source, recvtag, comm, status, ierr)
source, recvtag, comm, status, ierror)
end subroutine ${proc}
EOF

60
ompi/mpi/fortran/use-mpi-tkr/scripts/mpi_sizeof.f90.sh
Просмотреть файл

@ -25,40 +25,40 @@ procedure='MPI_Sizeof'
rank=0
proc="${procedure}${rank}DCH"
echo "subroutine ${proc}(x, size, ierr)"
echo "subroutine ${proc}(x, size, ierror)"
echo " implicit none"
echo " include 'fortran_sizes.h'"
echo " character, intent(in) :: x"
echo " integer, intent(out) :: size"
echo " integer, intent(out) :: ierr"
echo " integer, intent(out) :: ierror"
echo " size = OMPI_SIZEOF_F90_CHARACTER"
echo " ierr = 0"
echo " ierror = 0"
echo "end subroutine ${proc}"
echo
proc="${procedure}${rank}DL"
echo "subroutine ${proc}(x, size, ierr)"
echo "subroutine ${proc}(x, size, ierror)"
echo " implicit none"
echo " include 'fortran_sizes.h'"
echo " logical, intent(in) :: x"
echo " integer, intent(out) :: size"
echo " integer, intent(out) :: ierr"
echo " integer, intent(out) :: ierror"
echo " size = OMPI_SIZEOF_F90_LOGICAL"
echo " ierr = 0"
echo " ierror = 0"
echo "end subroutine ${proc}"
echo
for kind in $ikinds
do
proc="${procedure}${rank}DI${kind}"
echo "subroutine ${proc}(x, size, ierr)"
echo "subroutine ${proc}(x, size, ierror)"
echo " implicit none"
echo " include 'fortran_sizes.h'"
echo " integer*${kind}, intent(in) :: x"
echo " integer, intent(out) :: size"
echo " integer, intent(out) :: ierr"
echo " integer, intent(out) :: ierror"
echo " size = OMPI_SIZEOF_F90_INT${kind}"
echo " ierr = 0"
echo " ierror = 0"
echo "end subroutine ${proc}"
echo
done
@ -66,14 +66,14 @@ done
for kind in $rkinds
do
proc="${procedure}${rank}DR${kind}"
echo "subroutine ${proc}(x, size, ierr)"
echo "subroutine ${proc}(x, size, ierror)"
echo " implicit none"
echo " include 'fortran_sizes.h'"
echo " real*${kind}, intent(in) :: x"
echo " integer, intent(out) :: size"
echo " integer, intent(out) :: ierr"
echo " integer, intent(out) :: ierror"
echo " size = OMPI_SIZEOF_F90_REAL${kind}"
echo " ierr = 0"
echo " ierror = 0"
echo "end subroutine ${proc}"
echo
done
@ -81,14 +81,14 @@ done
for kind in $ckinds
do
proc="${procedure}${rank}DC${kind}"
echo "subroutine ${proc}(x, size, ierr)"
echo "subroutine ${proc}(x, size, ierror)"
echo " implicit none"
echo " include 'fortran_sizes.h'"
echo " complex*${kind}, intent(in) :: x"
echo " integer, intent(out) :: size"
echo " integer, intent(out) :: ierr"
echo " integer, intent(out) :: ierror"
echo " size = OMPI_SIZEOF_F90_COMPLEX${kind}"
echo " ierr = 0"
echo " ierror = 0"
echo "end subroutine ${proc}"
echo
done
@ -105,40 +105,40 @@ do
case "$rank" in 7) dim='1,1,1,1,1,1,*' ; esac
proc="${procedure}${rank}DCH"
echo "subroutine ${proc}(x, size, ierr)"
echo "subroutine ${proc}(x, size, ierror)"
echo " implicit none"
echo " include 'fortran_sizes.h'"
echo " character, dimension(${dim}), intent(in) :: x"
echo " integer, intent(out) :: size"
echo " integer, intent(out) :: ierr"
echo " integer, intent(out) :: ierror"
echo " size = OMPI_SIZEOF_F90_CHARACTER"
echo " ierr = 0"
echo " ierror = 0"
echo "end subroutine ${proc}"
echo
proc="${procedure}${rank}DL"
echo "subroutine ${proc}(x, size, ierr)"
echo "subroutine ${proc}(x, size, ierror)"
echo " implicit none"
echo " include 'fortran_sizes.h'"
echo " logical, dimension(${dim}), intent(in) :: x"
echo " integer, intent(out) :: size"
echo " integer, intent(out) :: ierr"
echo " integer, intent(out) :: ierror"
echo " size = OMPI_SIZEOF_F90_LOGICAL"
echo " ierr = 0"
echo " ierror = 0"
echo "end subroutine ${proc}"
echo
for kind in $ikinds
do
proc="${procedure}${rank}DI${kind}"
echo "subroutine ${proc}(x, size, ierr)"
echo "subroutine ${proc}(x, size, ierror)"
echo " implicit none"
echo " include 'fortran_sizes.h'"
echo " integer*${kind}, dimension(${dim}), intent(in) :: x"
echo " integer, intent(out) :: size"
echo " integer, intent(out) :: ierr"
echo " integer, intent(out) :: ierror"
echo " size = OMPI_SIZEOF_F90_INT${kind}"
echo " ierr = 0"
echo " ierror = 0"
echo "end subroutine ${proc}"
echo
done
@ -146,14 +146,14 @@ do
for kind in $rkinds
do
proc="${procedure}${rank}DR${kind}"
echo "subroutine ${proc}(x, size, ierr)"
echo "subroutine ${proc}(x, size, ierror)"
echo " implicit none"
echo " include 'fortran_sizes.h'"
echo " real*${kind}, dimension(${dim}), intent(in) :: x"
echo " integer, intent(out) :: size"
echo " integer, intent(out) :: ierr"
echo " integer, intent(out) :: ierror"
echo " size = OMPI_SIZEOF_F90_REAL${kind}"
echo " ierr = 0"
echo " ierror = 0"
echo "end subroutine ${proc}"
echo
done
@ -161,14 +161,14 @@ do
for kind in $ckinds
do
proc="${procedure}${rank}DC${kind}"
echo "subroutine ${proc}(x, size, ierr)"
echo "subroutine ${proc}(x, size, ierror)"
echo " implicit none"
echo " include 'fortran_sizes.h'"
echo " complex*${kind}, dimension(${dim}), intent(in) :: x"
echo " integer, intent(out) :: size"
echo " integer, intent(out) :: ierr"
echo " integer, intent(out) :: ierror"
echo " size = OMPI_SIZEOF_F90_COMPLEX${kind}"
echo " ierr = 0"
echo " ierror = 0"
echo "end subroutine ${proc}"
echo
done

6
ompi/mpi/fortran/use-mpi-tkr/scripts/mpi_ssend_f90.f90.sh
Просмотреть файл

@ -47,7 +47,7 @@ output() {
cat <<EOF
subroutine ${proc}(buf, count, datatype, dest, tag, &
comm, ierr)
comm, ierror)
include "mpif-config.h"
${type}, intent(in) :: buf
integer, intent(in) :: count
@ -55,9 +55,9 @@ subroutine ${proc}(buf, count, datatype, dest, tag, &
integer, intent(in) :: dest
integer, intent(in) :: tag
integer, intent(in) :: comm
integer, intent(out) :: ierr
integer, intent(out) :: ierror
call ${procedure}(buf, count, datatype, dest, tag, &
comm, ierr)
comm, ierror)
end subroutine ${proc}
EOF

6
ompi/mpi/fortran/use-mpi-tkr/scripts/mpi_ssend_init_f90.f90.sh
Просмотреть файл

@ -47,7 +47,7 @@ output() {
cat <<EOF
subroutine ${proc}(buf, count, datatype, dest, tag, &
comm, request, ierr)
comm, request, ierror)
include "mpif-config.h"
${type}, intent(in) :: buf
integer, intent(in) :: count
@ -56,9 +56,9 @@ subroutine ${proc}(buf, count, datatype, dest, tag, &
integer, intent(in) :: tag
integer, intent(in) :: comm
integer, intent(out) :: request
integer, intent(out) :: ierr
integer, intent(out) :: ierror
call ${procedure}(buf, count, datatype, dest, tag, &
comm, request, ierr)
comm, request, ierror)
end subroutine ${proc}
EOF

6
ompi/mpi/fortran/use-mpi-tkr/scripts/mpi_testall_f90.f90.sh
Просмотреть файл

@ -36,15 +36,15 @@ output() {
cat <<EOF
subroutine MPI_Testall${suffix}(count, array_of_requests, flag, array_of_statuses, ierr)
subroutine MPI_Testall${suffix}(count, array_of_requests, flag, array_of_statuses, ierror)
include 'mpif-config.h'
integer, intent(in) :: count
integer, dimension(count), intent(inout) :: array_of_requests
logical, intent(out) :: flag
$status_type, intent(out) :: array_of_statuses
integer, intent(out) :: ierr
integer, intent(out) :: ierror
call MPI_Testall(count, array_of_requests, flag, array_of_statuses, ierr)
call MPI_Testall(count, array_of_requests, flag, array_of_statuses, ierror)
end subroutine MPI_Testall${suffix}
EOF

6
ompi/mpi/fortran/use-mpi-tkr/scripts/mpi_testsome_f90.f90.sh
Просмотреть файл

@ -37,16 +37,16 @@ output() {
cat <<EOF
subroutine MPI_Testsome${suffix}(incount, array_of_requests, outcount, array_of_indices, array_of_statuses&
, ierr)
, ierror)
include 'mpif-config.h'
integer, intent(in) :: incount
integer, dimension(incount), intent(inout) :: array_of_requests
integer, intent(out) :: outcount
integer, dimension(*), intent(out) :: array_of_indices
$status_type, intent(out) :: array_of_statuses
integer, intent(out) :: ierr
integer, intent(out) :: ierror
call MPI_Testsome(incount, array_of_requests, outcount, array_of_indices, array_of_statuses, ierr)
call MPI_Testsome(incount, array_of_requests, outcount, array_of_indices, array_of_statuses, ierror)
end subroutine MPI_Testsome${suffix}
EOF

6
ompi/mpi/fortran/use-mpi-tkr/scripts/mpi_unpack_external_f90.f90.sh
Просмотреть файл

@ -47,7 +47,7 @@ output() {
cat <<EOF
subroutine ${proc}(datarep, inbuf, insize, position, outbuf, &
outcount, datatype, ierr)
outcount, datatype, ierror)
include "mpif-config.h"
character(len=*), intent(in) :: datarep
${type}, intent(in) :: inbuf
@ -56,9 +56,9 @@ subroutine ${proc}(datarep, inbuf, insize, position, outbuf, &
${type} :: outbuf
integer, intent(in) :: outcount
integer, intent(in) :: datatype
integer, intent(out) :: ierr
integer, intent(out) :: ierror
call ${procedure}(datarep, inbuf, insize, position, outbuf, &
outcount, datatype, ierr)
outcount, datatype, ierror)
end subroutine ${proc}
EOF

6
ompi/mpi/fortran/use-mpi-tkr/scripts/mpi_unpack_f90.f90.sh
Просмотреть файл

@ -47,7 +47,7 @@ output() {
cat <<EOF
subroutine ${proc}(inbuf, insize, position, outbuf, outcount, &
datatype, comm, ierr)
datatype, comm, ierror)
include "mpif-config.h"
${type}, intent(in) :: inbuf
integer, intent(in) :: insize
@ -56,9 +56,9 @@ subroutine ${proc}(inbuf, insize, position, outbuf, outcount, &
integer, intent(in) :: outcount
integer, intent(in) :: datatype
integer, intent(in) :: comm
integer, intent(out) :: ierr
integer, intent(out) :: ierror
call ${procedure}(inbuf, insize, position, outbuf, outcount, &
datatype, comm, ierr)
datatype, comm, ierror)
end subroutine ${proc}
EOF

6
ompi/mpi/fortran/use-mpi-tkr/scripts/mpi_waitall_f90.f90.sh
Просмотреть файл

@ -36,13 +36,13 @@ output() {
cat <<EOF
subroutine MPI_Waitall${suffix}(count, array_of_requests, array_of_statuses, ierr)
subroutine MPI_Waitall${suffix}(count, array_of_requests, array_of_statuses, ierror)
include 'mpif-config.h'
integer, intent(in) :: count
integer, dimension(count), intent(inout) :: array_of_requests
$status_type, intent(out) :: array_of_statuses
integer, intent(out) :: ierr
call MPI_Waitall(count, array_of_requests, array_of_statuses, ierr)
integer, intent(out) :: ierror
call MPI_Waitall(count, array_of_requests, array_of_statuses, ierror)
end subroutine MPI_Waitall${suffix}
EOF

6
ompi/mpi/fortran/use-mpi-tkr/scripts/mpi_waitsome_f90.f90.sh
Просмотреть файл

@ -37,16 +37,16 @@ output() {
cat <<EOF
subroutine MPI_Waitsome${suffix}(incount, array_of_requests, outcount, array_of_indices, array_of_statuses&
, ierr)
, ierror)
include 'mpif-config.h'
integer, intent(in) :: incount
integer, dimension(incount), intent(inout) :: array_of_requests
integer, intent(out) :: outcount
integer, dimension(*), intent(out) :: array_of_indices
$status_type, intent(out) :: array_of_statuses
integer, intent(out) :: ierr
integer, intent(out) :: ierror
call MPI_Waitsome(incount, array_of_requests, outcount, array_of_indices, array_of_statuses, ierr)
call MPI_Waitsome(incount, array_of_requests, outcount, array_of_indices, array_of_statuses, ierror)
end subroutine MPI_Waitsome${suffix}
EOF

Некоторые файлы не были показаны из-за слишком большого количества измененных файлов Показать больше