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

Fix for [righteous] compiler warnings from xlf90 compiler on OSX

Просмотр исходного кода 
10.3.  Specifically define what the parameter type is, and mark its
intent. 

This commit was SVN r8124.
Этот коммит содержится в:
Jeff Squyres 2005-11-11 23:18:59 +00:00
родитель 59d8c791d9
Коммит 24b9de292c
1 изменённых файлов: 19 добавлений и 19 удалений
Показать статистику Скачать Patch файл Скачать Diff файл Показать все файлы Свернуть все файлы

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

@ -2479,7 +2479,7 @@ echo
proc="${procedure}" proc="${procedure}"
echo "subroutine ${proc}(function, errhandler, ierr)" echo "subroutine ${proc}(function, errhandler, ierr)"
echo " use mpi_kinds" echo " use mpi_kinds"
echo " external :: function" echo " integer(MPI_ADDRESS_KIND), intent(in) :: function"
echo " integer, intent(out) :: errhandler" echo " integer, intent(out) :: errhandler"
echo " integer, intent(out) :: ierr" echo " integer, intent(out) :: ierr"
echo "end subroutine ${proc}" echo "end subroutine ${proc}"
@ -2496,8 +2496,8 @@ echo
proc="${procedure}" proc="${procedure}"
echo "subroutine ${proc}(comm_copy_attr_fn, comm_delete_attr_fn, comm_keyval, extra_state, ierr)" echo "subroutine ${proc}(comm_copy_attr_fn, comm_delete_attr_fn, comm_keyval, extra_state, ierr)"
echo " use mpi_kinds" echo " use mpi_kinds"
echo " external :: comm_copy_attr_fn" echo " integer(MPI_ADDRESS_KIND), intent(in) :: comm_copy_attr_fn"
echo " external :: comm_delete_attr_fn" echo " integer(MPI_ADDRESS_KIND), intent(in) :: comm_delete_attr_fn"
echo " integer, intent(out) :: comm_keyval" echo " integer, intent(out) :: comm_keyval"
echo " integer, intent(in) :: extra_state" echo " integer, intent(in) :: extra_state"
echo " integer, intent(out) :: ierr" echo " integer, intent(out) :: ierr"
@ -2826,7 +2826,7 @@ echo
proc="${procedure}" proc="${procedure}"
echo "subroutine ${proc}(function, errhandler, ierr)" echo "subroutine ${proc}(function, errhandler, ierr)"
echo " use mpi_kinds" echo " use mpi_kinds"
echo " external :: function" echo " integer(MPI_ADDRESS_KIND), intent(in) :: function"
echo " integer, intent(out) :: errhandler" echo " integer, intent(out) :: errhandler"
echo " integer, intent(out) :: ierr" echo " integer, intent(out) :: ierr"
echo "end subroutine ${proc}" echo "end subroutine ${proc}"
@ -3120,7 +3120,7 @@ echo
proc="${procedure}" proc="${procedure}"
echo "subroutine ${proc}(function, errhandler, ierr)" echo "subroutine ${proc}(function, errhandler, ierr)"
echo " use mpi_kinds" echo " use mpi_kinds"
echo " external :: function" echo " integer(MPI_ADDRESS_KIND), intent(in) :: function"
echo " integer, intent(out) :: errhandler" echo " integer, intent(out) :: errhandler"
echo " integer, intent(out) :: ierr" echo " integer, intent(out) :: ierr"
echo "end subroutine ${proc}" echo "end subroutine ${proc}"
@ -8798,9 +8798,9 @@ proc="${procedure}"
echo "subroutine ${proc}(query_fn, free_fn, cancel_fn, extra_state, request& echo "subroutine ${proc}(query_fn, free_fn, cancel_fn, extra_state, request&
, ierr)" , ierr)"
echo " use mpi_kinds" echo " use mpi_kinds"
echo " external :: query_fn" echo " integer(MPI_ADDRESS_KIND), intent(in) :: query_fn"
echo " external :: free_fn" echo " integer(MPI_ADDRESS_KIND), intent(in) :: free_fn"
echo " external :: cancel_fn" echo " integer(MPI_ADDRESS_KIND), intent(in) :: cancel_fn"
echo " integer, intent(in) :: extra_state" echo " integer, intent(in) :: extra_state"
echo " integer, intent(out) :: request" echo " integer, intent(out) :: request"
echo " integer, intent(out) :: ierr" echo " integer, intent(out) :: ierr"
@ -10136,8 +10136,8 @@ echo
proc="${procedure}" proc="${procedure}"
echo "subroutine ${proc}(copy_fn, delete_fn, keyval, extra_state, ierr)" echo "subroutine ${proc}(copy_fn, delete_fn, keyval, extra_state, ierr)"
echo " use mpi_kinds" echo " use mpi_kinds"
echo " external :: copy_fn" echo " integer(MPI_ADDRESS_KIND), intent(in) :: copy_fn"
echo " external :: delete_fn" echo " integer(MPI_ADDRESS_KIND), intent(in) :: delete_fn"
echo " integer, intent(out) :: keyval" echo " integer, intent(out) :: keyval"
echo " integer, intent(in) :: extra_state" echo " integer, intent(in) :: extra_state"
echo " integer, intent(out) :: ierr" echo " integer, intent(out) :: ierr"
@ -10171,7 +10171,7 @@ echo
proc="${procedure}" proc="${procedure}"
echo "subroutine ${proc}(function, commute, op, ierr)" echo "subroutine ${proc}(function, commute, op, ierr)"
echo " use mpi_kinds" echo " use mpi_kinds"
echo " external :: function" echo " integer(MPI_ADDRESS_KIND), intent(in) :: function"
echo " integer, intent(in) :: commute" echo " integer, intent(in) :: commute"
echo " integer, intent(out) :: op" echo " integer, intent(out) :: op"
echo " integer, intent(out) :: ierr" echo " integer, intent(out) :: ierr"
@ -11445,9 +11445,9 @@ echo "subroutine ${proc}(datarep, read_conversion_fn, write_conversion_fn, dtype
, ierr)" , ierr)"
echo " use mpi_kinds" echo " use mpi_kinds"
echo " character(len=*), intent(in) :: datarep" echo " character(len=*), intent(in) :: datarep"
echo " external :: read_conversion_fn" echo " integer(MPI_ADDRESS_KIND), intent(in) :: read_conversion_fn"
echo " external :: write_conversion_fn" echo " integer(MPI_ADDRESS_KIND), intent(in) :: write_conversion_fn"
echo " external :: dtype_file_extent_fn" echo " integer(MPI_ADDRESS_KIND), intent(in) :: dtype_file_extent_fn"
echo " integer, intent(in) :: extra_state" echo " integer, intent(in) :: extra_state"
echo " integer, intent(out) :: ierr" echo " integer, intent(out) :: ierr"
echo "end subroutine ${proc}" echo "end subroutine ${proc}"
@ -13823,8 +13823,8 @@ echo
proc="${procedure}" proc="${procedure}"
echo "subroutine ${proc}(type_copy_attr_fn, type_delete_attr_fn, type_keyval, extra_state, ierr)" echo "subroutine ${proc}(type_copy_attr_fn, type_delete_attr_fn, type_keyval, extra_state, ierr)"
echo " use mpi_kinds" echo " use mpi_kinds"
echo " external :: type_copy_attr_fn" echo " integer(MPI_ADDRESS_KIND), intent(in) :: type_copy_attr_fn"
echo " external :: type_delete_attr_fn" echo " integer(MPI_ADDRESS_KIND), intent(in) :: type_delete_attr_fn"
echo " integer, intent(out) :: type_keyval" echo " integer, intent(out) :: type_keyval"
echo " integer, intent(in) :: extra_state" echo " integer, intent(in) :: extra_state"
echo " integer, intent(out) :: ierr" echo " integer, intent(out) :: ierr"
@ -14903,7 +14903,7 @@ echo
proc="${procedure}" proc="${procedure}"
echo "subroutine ${proc}(function, errhandler, ierr)" echo "subroutine ${proc}(function, errhandler, ierr)"
echo " use mpi_kinds" echo " use mpi_kinds"
echo " external :: function" echo " integer(MPI_ADDRESS_KIND), intent(in) :: function"
echo " integer, intent(out) :: errhandler" echo " integer, intent(out) :: errhandler"
echo " integer, intent(out) :: ierr" echo " integer, intent(out) :: ierr"
echo "end subroutine ${proc}" echo "end subroutine ${proc}"
@ -14920,8 +14920,8 @@ echo
proc="${procedure}" proc="${procedure}"
echo "subroutine ${proc}(win_copy_attr_fn, win_delete_attr_fn, win_keyval, extra_state, ierr)" echo "subroutine ${proc}(win_copy_attr_fn, win_delete_attr_fn, win_keyval, extra_state, ierr)"
echo " use mpi_kinds" echo " use mpi_kinds"
echo " external :: win_copy_attr_fn" echo " integer(MPI_ADDRESS_KIND), intent(in) :: win_copy_attr_fn"
echo " external :: win_delete_attr_fn" echo " integer(MPI_ADDRESS_KIND), intent(in) :: win_delete_attr_fn"
echo " integer, intent(out) :: win_keyval" echo " integer, intent(out) :: win_keyval"
echo " integer, intent(in) :: extra_state" echo " integer, intent(in) :: extra_state"
echo " integer, intent(out) :: ierr" echo " integer, intent(out) :: ierr"