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

Added logical types and removed unused variable.

Просмотр исходного кода 
This commit was SVN r4011.
Этот коммит содержится в:
Craig E Rasmussen 2005-01-14 23:44:33 +00:00
родитель dac75b0909
Коммит 95a4b10d94
1 изменённых файлов: 32 добавлений и 3 удалений
Показать статистику Скачать Patch файл Скачать Diff файл Показать все файлы Свернуть все файлы

35
src/mpi/f90/scripts/mpi_sizeof.f90.sh
Просмотреть файл

@ -5,6 +5,22 @@
procedure='MPI_Sizeof' procedure='MPI_Sizeof'
rank=0 rank=0
for kind in $lkinds
do
proc="${procedure}${rank}DL${kind}"
echo "subroutine ${proc}(x, size, ierr)"
echo " use mpi_kinds"
echo " implicit none"
echo " include 'fortran_sizes.h'"
echo " logical(kind=MPI_INTEGER${kind}_KIND), intent(in) :: x"
echo " integer, intent(out) :: size"
echo " integer, intent(out) :: ierr"
echo " size = OMPI_SIZEOF_F90_LOGICAL${kind}"
echo " ierr = 0"
echo "end subroutine ${proc}"
echo
done
for kind in $ikinds for kind in $ikinds
do do
proc="${procedure}${rank}DI${kind}" proc="${procedure}${rank}DI${kind}"
@ -67,6 +83,22 @@ do
case "$rank" in 6) dim=':,:,:,:,:,:' ; esac case "$rank" in 6) dim=':,:,:,:,:,:' ; esac
case "$rank" in 7) dim=':,:,:,:,:,:,:' ; esac case "$rank" in 7) dim=':,:,:,:,:,:,:' ; esac
for kind in $lkinds
do
proc="${procedure}${rank}DL${kind}"
echo "subroutine ${proc}(x, size, ierr)"
echo " use mpi_kinds"
echo " implicit none"
echo " include 'fortran_sizes.h'"
echo " logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: x"
echo " integer, intent(out) :: size"
echo " integer, intent(out) :: ierr"
echo " size = OMPI_SIZEOF_F90_LOGICAL${kind}"
echo " ierr = 0"
echo "end subroutine ${proc}"
echo
done
for kind in $ikinds for kind in $ikinds
do do
proc="${procedure}${rank}DI${kind}" proc="${procedure}${rank}DI${kind}"
@ -77,7 +109,6 @@ do
echo " integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: x" echo " integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: x"
echo " integer, intent(out) :: size" echo " integer, intent(out) :: size"
echo " integer, intent(out) :: ierr" echo " integer, intent(out) :: ierr"
echo " integer(kind=MPI_INTEGER${kind}_KIND) :: type"
echo " size = OMPI_SIZEOF_F90_INT${kind}" echo " size = OMPI_SIZEOF_F90_INT${kind}"
echo " ierr = 0" echo " ierr = 0"
echo "end subroutine ${proc}" echo "end subroutine ${proc}"
@ -94,7 +125,6 @@ do
echo " real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: x" echo " real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: x"
echo " integer, intent(out) :: size" echo " integer, intent(out) :: size"
echo " integer, intent(out) :: ierr" echo " integer, intent(out) :: ierr"
echo " real(kind=MPI_REAL${kind}_KIND) :: type"
echo " size = OMPI_SIZEOF_F90_REAL${kind}" echo " size = OMPI_SIZEOF_F90_REAL${kind}"
echo " ierr = 0" echo " ierr = 0"
echo "end subroutine ${proc}" echo "end subroutine ${proc}"
@ -114,7 +144,6 @@ do
echo " complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: x" echo " complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: x"
echo " integer, intent(out) :: size" echo " integer, intent(out) :: size"
echo " integer, intent(out) :: ierr" echo " integer, intent(out) :: ierr"
echo " complex(kind=MPI_REAL${kind}_KIND) :: type"
echo " size = OMPI_SIZEOF_F90_COMPLEX${size_kind}" echo " size = OMPI_SIZEOF_F90_COMPLEX${size_kind}"
echo " ierr = 0" echo " ierr = 0"
echo "end subroutine ${proc}" echo "end subroutine ${proc}"